CMD        PROMPT('Send Batch Command')


 JOB:        PARM       KWD(JOB) TYPE(QJOB) SNGVAL((*)) MIN(1) +
                          PROMPT('Target job name')

 QJOB:       QUAL       TYPE(*NAME) LEN(10) MIN(1)
             QUAL       TYPE(*NAME) LEN(10) PROMPT('User') MIN(1)
             QUAL       TYPE(*CHAR) LEN(6) CHOICE('000000-999999') +
                          PROMPT('Number') MIN(1)

 CMD:        PARM       KWD(CMD) TYPE(*CMDSTR) LEN(2000) +
                          PROMPT('Command')

 RQSDTA:     PARM       KWD(RQSDTA) TYPE(*CHAR) LEN(2000) DFT(*CMD) +
                          SPCVAL((*SRC)) PMTCTL(*PMTRQS) +
                          PROMPT('Request ''data'' or command')

 LOG:        PARM       KWD(LOG) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                          DFT(*YES) VALUES(*NO *YES) PROMPT('Log +
                          command')

 EXECUTE:    PARM       KWD(EXECUTE) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                          DFT(*YES) VALUES(*NO *YES) +
                          PROMPT('Execute command')

 RSPTIM:     PARM       KWD(RSPTIM) TYPE(*DEC) LEN(3) DFT(*NOWAIT) +
                          SPCVAL((*NOWAIT 0) (*NOMAX -1)) +
                          PROMPT('Wait time for response')

 SRCFILE:    PARM       KWD(SRCFILE) TYPE(QSRCFILE) DFT(*NONE) +
                          SNGVAL((*NONE)) PMTCTL(*PMTRQS) +
                          PROMPT('Source file')

 QSRCFILE:   QUAL       TYPE(*NAME) LEN(10)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL) +
                          (*CURLIB)) PROMPT('Library')

 SRCMBR:     PARM       KWD(SRCMBR) TYPE(*NAME) LEN(10) +
                          SPCVAL((*FIRST)) PMTCTL(*PMTRQS) +
                          PROMPT('Source member')

 ALWERR:     PARM       KWD(ALWERR) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                          DFT(*NO) VALUES(*NO *YES) PROMPT('Allow +
                          error on command')

/*-------------------------------------------------------------------*/
/* Ensure a command is passed with EXECUTE(*NO).                     */

             DEP        CTL(&RQSDTA *EQ '*SRC') PARM((SRCFILE))