36 lines
1.1 KiB
Batchfile
36 lines
1.1 KiB
Batchfile
CMD PROMPT('Create MEDDFN - 6 volumes')
|
|
|
|
PARM KWD(MEDDFN) TYPE(*NAME) LEN(10) MIN(1) +
|
|
PROMPT('Media definition')
|
|
|
|
PARM KWD(LIB) TYPE(*NAME) LEN(10) DFT(*CURLIB) +
|
|
SPCVAL((*CURLIB)) +
|
|
PROMPT('Library')
|
|
|
|
PARM KWD(DEV) TYPE(*NAME) LEN(10) MIN(1) +
|
|
PROMPT('Tape library/device')
|
|
|
|
PARM KWD(VOL1) TYPE(*CHAR) LEN(6) MIN(1) +
|
|
PROMPT('Volume 1')
|
|
|
|
PARM KWD(VOL2) TYPE(*CHAR) LEN(6) MIN(1) +
|
|
PROMPT('Volume 2')
|
|
|
|
PARM KWD(VOL3) TYPE(*CHAR) LEN(6) MIN(1) +
|
|
PROMPT('Volume 3')
|
|
|
|
PARM KWD(VOL4) TYPE(*CHAR) LEN(6) MIN(1) +
|
|
PROMPT('Volume 4')
|
|
|
|
PARM KWD(VOL5) TYPE(*CHAR) LEN(6) MIN(1) +
|
|
PROMPT('Volume 5')
|
|
|
|
PARM KWD(VOL6) TYPE(*CHAR) LEN(6) MIN(1) +
|
|
PROMPT('Volume 6')
|
|
|
|
PARM KWD(TEXT) TYPE(*CHAR) LEN(50) DFT(*BLANKS) +
|
|
PROMPT('Text description')
|
|
|
|
PARM KWD(REPLACE) TYPE(*CHAR) LEN(4) RSTD(*YES) +
|
|
DFT(*NO) SPCVAL((*YES) (*NO)) +
|
|
PROMPT('Replace existing') |