CMD PROMPT('CCSID 検査 ') PARM KWD(FILE) TYPE(*NAME) LEN(10) MIN(1) + FILE(*IN) EXPR(*YES) + PROMPT(' スプール・ファイル ' 1) PARM KWD(JOB) TYPE(Q0406) DFT(*) SNGVAL((*)) + PROMPT(' ジョブ名 ' 3) PARM KWD(SPLNBR) TYPE(*INT4) DFT(*ONLY) RANGE(1 + 999999) SPCVAL((*ONLY 0) (*LAST -1) (*ANY + -2)) EXPR(*YES) + PROMPT(' スプール・ファイル番号 ' 4) Q0406: QUAL TYPE(*NAME) + LEN(10) + MIN(1) + EXPR(*YES) QUAL TYPE(*NAME) + LEN(10) + EXPR(*YES) + PROMPT(' ユーザー ') QUAL TYPE(*CHAR) + LEN(6) + RANGE( + '000000' + '999999') + FULL(*YES) + EXPR(*YES) + PROMPT(' 番号 ')