CMD        PROMPT('Fix module in save file')
             PARM       KWD(SAVF) TYPE(*CHAR) LEN(10) PROMPT('Save +
                          file')
             PARM       KWD(SAVFLIB) TYPE(*CHAR) LEN(10) +
                          PROMPT('Save file library')
             PARM       KWD(PGM) TYPE(*CHAR) LEN(10) PROMPT('Program')
             PARM       KWD(PGMLIB) TYPE(*CHAR) LEN(10) +
                          PROMPT('Program library')
             PARM       KWD(PGMTYPE) TYPE(*CHAR) LEN(10) RSTD(*YES) +
                          DFT(*PGM) VALUES(*PGM *SRVPGM) +
                          PROMPT('Program type')
             PARM       KWD(MOD) TYPE(*CHAR) LEN(10) PROMPT('Module')
             PARM       KWD(MODLIB) TYPE(*CHAR) LEN(10) +
                          PROMPT('Module library')
             PARM       KWD(NEWLIB) TYPE(*CHAR) LEN(10) DFT(*SAME) +
                          PROMPT('Module new library')
             PARM       KWD(NEWSFIL) TYPE(*CHAR) LEN(10) DFT(*SAME) +
                          PROMPT('Module new source file')
             PARM       KWD(NEWSLIB) TYPE(*CHAR) LEN(10) DFT(*SAME) +
                          PROMPT('Module new source library')
             PARM       KWD(RETURN) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
                          PROMPT('Return value')