CMD        PROMPT('SPLF TO PF')

             PARM       KWD(FILE) TYPE(*NAME) LEN(10) RSTD(*NO) +
                          MIN(1) MAX(1) PROMPT('スプールファイル名:' 40)

             PARM       KWD(JOB) TYPE(QJOB) DFT(*) SNGVAL((*)) +
                          FILE(*NO) PROMPT('ジョブ名:' 41)

             PARM       KWD(SPLNBR) TYPE(*DEC) LEN(4) DFT(*LAST) +
                          RANGE(1 9999) SPCVAL((*ONLY 0) (*LAST +
                          -1)) PROMPT('番号:' 42)

 QJOB:       QUAL       TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
             QUAL       TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES) +
                          PROMPT('ユーザー')
             QUAL       TYPE(*CHAR) LEN(6) RANGE(000000 999999) +
                          MIN(1) FULL(*YES) EXPR(*YES) PROMPT('番号')