Re: Command Validation Programs -- MIDRANGE-L

There was a RTVCMD command written by Dave McKenzie that is on the net 
somewhere.
It says it works up to V2R3, but I recall using it on R4V1 and possibly R4V2. 
The
neat thing is that it apppears to handle situation where the command parameters
are listed in a different order than they appear on the screen.

I will send you the rtvcmd.zip directly.
Bob Larkin
blarkin@wt.net

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
> +---

begin:          vcard
fn:             Bob Larkin
n:              Larkin;Bob
org:            <A HREF="HTTP://web.wt.net/~blarkin/">Larkin Computer Consulting</A>
adr:            <A HREF="http://web.wt.net/~blarkin/">Bob and Diana's Page</A>;;;Houston;TX;<A HREF="http://web.wt.net/~blarkin/">;United States
email;internet: blarkin@wt.net
title:          Systems Consultant
x-mozilla-cpt:  ;4104
x-mozilla-html: FALSE
version:        2.1
end:            vcard