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')