Re: Command Validation Programs

Check out Doug McKenzie's RTVCMDSRC command at:

        http://www.news400.com/sharewarefiles/rtvcmd.zip

HTH

Gary

PaulMmn wrote:
> 
> The help desk did it the first time.  The operator did it the second time.
> And we can't let it happen again.  One of the jobs used by PC support to
> link a wholllllle bunch of users to the AS/400 got cancelled.
> 
> Our thought is that a validation program on the ENDJOB command will allow
> us to block this error in the future.
> 
> My problem is discovering the parameters and their sizes for the command
> processing program living under the ENDJOB command.
> 
> So far, I've got the right number of parameters (and the program does check
> for valid job name), but the other fields are totally out of whack.  The
> field lengths are my best guesses.
> 
> Is there a manual that lists the parameters and their sizes for IBM
> commands?  Or a helpful list member who has such a thing?
> 
> Paul E Musselman
> PaulMMn@ix.netcom.com
> 
>   SOURCE FILE . . . . . . .  HQPGPEM/QCLSRC
>   MEMBER  . . . . . . . . .  ENDJOBVLD
> 
>   SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6
> ...+... 7 ...+
>     100              PGM        PARM(&JOB &USER &NBRA &OPTION &DELAY
> &SPLFILE +
>     200                           &LOGLMT &ADLINTJOBS &DUPJOBOPT)
> 
>     300
> 
>     400              DCL        VAR(&JOB26     ) TYPE(*CHAR) LEN(  30)
> 
>     500              DCL        VAR(&JOB       ) TYPE(*CHAR) LEN(  10)
> 
>     600              DCL        VAR(&USER      ) TYPE(*CHAR) LEN(  10)
> 
>     700              DCL        VAR(&NBR       ) TYPE(*DEC ) LEN(15 5) <-
> integer
>     800              DCL        VAR(&NBRA      ) TYPE(*CHAR) LEN(   6)
> 
>     900              DCL        VAR(&OPTION    ) TYPE(*CHAR) LEN(   7)
> 
>    1000              DCL        VAR(&DELAY     ) TYPE(*DEC ) LEN(15 5) <-
> integer
>    1100              DCL        VAR(&SPLFILE   ) TYPE(*CHAR) LEN(   4)
> 
>    1200              DCL        VAR(&LOGLMT    ) TYPE(*DEC ) LEN(15 5) <-
> integer
>    1300              DCL        VAR(&ADLINTJOBS) TYPE(*CHAR) LEN(   7)
> 
>    1400              DCL        VAR(&DUPJOBOPT ) TYPE(*CHAR) LEN(   7)
> 
>    1500
> 
>    1600              CHGVAR     VAR(&NBRA) VALUE(*NBR)
> 
>    1700              SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Job '
> +
>    1800                           *CAT &JOB *CAT 'User ' *CAT &USER *CAT +
> 
>    1900                           'Number ' *CAT &NBRA) TOUSR(HQPGPEM)
> 
>    2000
> 
> Just a sample command to guide my muse...
> 
>    2100          /*  ENDJOB     JOB(&NBR/&USER/&JOB) OPTION(&OPTION) +
> */
>    2200          /*               DELAY(&DELAY) SPLFILE(&SPLFILE) +
> */
>    2300          /*               LOGLMT(&LOGLMT) ADLINTJOBS(&ADLINTJOBS) +
> */
>    2400          /*               DUPJOBOPT(&DUPJOBOPT)
> */
>    2500
> 
> I thought at first that the nbr/usr/job would be passed as a single
> concatenated field, but the number of parameters didn't match 'till I split
> them apart...
> 
>    2600      /*      CHGVAR     VAR(&JOB ) VALUE(%SST(&JOB26  1 10))
> */
>    2700      /*      CHGVAR     VAR(&USER) VALUE(%SST(&JOB26 11 10))
> */
>    2800      /*      CHGVAR     VAR(&NBR ) VALUE(%SST(&JOB26 21  6))      */
> 
>    2900
> 
>    3000              IF         COND(&JOB *EQ 'QPWFSERV  '  +
> 
>    3100                          *OR &JOB *EQ 'QPASVRP   '  +
>    3200                          *OR &JOB *EQ 'TESTJOBNAM'  +
> 
>    3500                          *OR &JOB *EQ 'QPASVRS   ') THEN(DO)
> 
>    3600                SNDPGMMSG  MSGID(UTL3001) MSGF(UTLMSGF)
> MSGDTA('0000' +
>    3700                             !! &JOB !! &USER !! &NBRA) MSGTYPE(*DIAG)
>    37xx                             /* message says, "Can't touch that!" */
> 
>    3800                SNDPGMMSG  MSGID(CPF0002) MSGF(QCPFMSG)
> MSGTYPE(*ESCAPE)
>    3900              ENDDO
> 
>    4000
> 
>    4100              ENDPGM
> 
>                                   * * * *  E N D  O F  S O U R C E  * * * *
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---