Red Hat SATELLITE 5.1.0 RELEASE NOTES Instrukcja Instalacji Pobierz pdf (Strona 243)

Appendix B. z/VM source code 225

say "Syntax is:"

say ""

say " >>---LABEL540--res--spl--pag--w01--w02------------------------><"

say ""

say " where res, spl, pag, w01 and w02 are 4 digit virtual addresses"

say " of the volumes that z/VM 5.2 is installed onto"

say ""

exit 1

/*+------------------------------------------------------------------+*/

getLabel: procedure

/*| Compose the six character label of a minidisk |*/

/*| parm 1: labelPrefix - first two characters of label |*/

/*| parm 2: disk - vaddr of length 1, 2, 3 or 4 |*/

/*| return: the 6 character label |*/

/*+------------------------------------------------------------------+*/

arg labelPrefix disk

if (DATATYPE(disk, 'X') = 0) then

say "Error:" disk "is not a hexadecimal number"

call help

end

diskLen = length(disk)

select

when (diskLen = 1) then /* insert 3 zeros */

label = labelPrefix||'000'||disk

when (diskLen = 2) then /* insert 2 zeros */

label = labelPrefix||'00'||disk

when (diskLen = 3) then /* insert a zero */

label = labelPrefix||'0'||disk

otherwise /* it must be length 4 or query would have failed */

label = labelPrefix||disk

end /* select */

return label /* from getLabel */

The LABEL540 XEDIT macro

Following is the code for the XEDIT macro that changes all passwords in the z/VM 5.4 USER

DIRECT file:

/*+------------------------------------------------------------------+*/

/*| EXEC: LABEL540 wrapper around CPFMTXA to LABEL and ALLOC DASD |*/

/*| retVal: 0 - success |*/

/*| 1 - help was asked for or given |*/

/*| 2 - user is not sure |*/

/*| 3 - DASD (minidisk) range is not valid |*/

/*| 4 - at least one DASD (minidisk) is reserved to MAINT |*/

/*+------------------------------------------------------------------+*/

/* For details on how this EXEC is used, see the book:

"z/VM and Linux on IBM System z: The Virtualization Cookbook for SLES 10 SP2"

on the Web at: http://www.redbooks.ibm.com/abstracts/SG247493.html */

/*------------------------------------------------------------------

THE PROGRAM IS PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR

CONDITIONS OF ANY KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT

LIMITATION, ANY WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT,

MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.

NEITHER RECIPIENT NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR

ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED

AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,

1 2 ... 238 239 240 241 242 243 244 245 246 247 248 ... 267 268

Komentarze do niniejszej Instrukcji

Brak uwag

Red Hat SATELLITE 5.1.0 RELEASE NOTES Instrukcja Instalacji Strona 243

Komentarze do niniejszej Instrukcji

Powiązane produkty i podręczniki dla Oprogramowanie Red Hat SATELLITE 5.1.0 RELEASE NOTES