CMD        PROMPT('CSV形式ファイルへコピー')
             PARM       KWD(INFILE) TYPE(Q1) MIN(1) MAX(1) FILE(*NO) +
                          PROMPT('取出しファイル' 10)

             PARM       KWD(OUTFILE) TYPE(Q2) SNGVAL((*STMF)) MIN(1) +
                          MAX(1) FILE(*OUT) +
                          PROMPT('受取りファイル' 30)

             PARM       KWD(INMBR) TYPE(*NAME) LEN(10) DFT(*FIRST) +
                          SPCVAL((*FIRST *FIRST)) MIN(0) MAX(1) +
                          FILE(*NO) PROMPT('メンバー:' 20)

             PARM       KWD(REPOPT) TYPE(*CHAR) LEN(8) RSTD(*YES) +
                          DFT(*REPLACE) SPCVAL((*REPLACE *REPLACE) +
                          (*ADD *ADD)) MIN(0) MAX(1) VARY(*NO) +
                          PASSATR(*NO) PROMPT('置換または追加' 40)

             PARM       KWD(CRTFILE) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                          DFT(*YES) SPCVAL((*YES *YES) (*NO *NO)) +
                          MIN(0) MAX(1) VARY(*NO) PASSATR(*NO) +
                          PROMPT('ファイル作成' 50)

             PARM       KWD(STMF) TYPE(*CHAR) LEN(256) DFT('/HOME/') +
                          MIN(0) MAX(1) CASE(*MIXED) PMTCTL(P1) +
                          PROMPT('ストリーム・ファイル名' 60)

 Q1:         QUAL       TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
                          SPCVAL((*LIBL) (*CURLIB)) EXPR(*YES) +
                          PROMPT('ライブラリー')
 Q2:         QUAL       TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
             QUAL       TYPE(*NAME) LEN(10) DFT(*CURLIB) +
                          SPCVAL((*CURLIB *CURLIB)) EXPR(*YES) +
                          PROMPT('ライブラリー')
 P1:         PMTCTL     CTL(OUTFILE) COND((*EQ *STMF))