/*           CRTCMD     CMD(mylib/PRCCMD) +                       */
/*                      PGM(QSYS/QCAPCMD) +                        */
/*                      SRCFILE(mylib/mysrcf) +               */
/*                      SRCMBR(PRCCMD) +                           */
/*                      TEXT('QCAPCMD')                            */

             CMD        PROMPT('Process command')
             PARM       KWD(CMD) +
                        TYPE(*CHAR) +
                        LEN(5000) +
                        PROMPT('Command' 1)
             PARM       KWD(CMDLEN) +
                        TYPE(*INT4) +
                        PROMPT('Command string length' 2)
             PARM       KWD(OCB) +
                        TYPE(*CHAR) +
                        LEN(20) +
                        DFT(*DFT) +
                        SPCVAL( +
                          (*DFT X'00000000F0F2F00000000000000000000000+
                          0000') +
                          (*CHECK X'00000003F0F0F000000000000000000000+
                          000000')) +
                        PROMPT('Options control block' 3)
             PARM       KWD(OCBLEN) +
                        TYPE(*INT4) +
                        CONSTANT(20)
             PARM       KWD(OCBFMT) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        CONSTANT(CPOP0100)
             PARM       KWD(CHGCMD) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Changed command string' 9)
             PARM       KWD(CHGCMDLEN) +
                        TYPE(*INT4) +
                        CONSTANT(0)
             PARM       KWD(CHGCMDAVL) +
                        TYPE(*INT4) +
                        CONSTANT(0)
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)