Group Jobs Sample -- MIDRANGE-L

I hope these attachments are O.K.  I can never get statements to line up
right when doing a simple copy and paste.



Joe Giusto II
Programmer/Analyst
Ritz Camera
Beltsville, MD
301-419-3209 x347
410-813-2812 x347

 -----Original Message-----
From:   owner-midrange-l@midrange.com [mailto:owner-midrange-l@midrange.com]
On Behalf Of rob@dekko.com
Sent:   Thursday, May 31, 2001 10:47 AM
To:     MIDRANGE-L@midrange.com
Subject:        RE: backups on AS/400; part2


Okay, I understand now.  One of the things I miss about OV/400 is the group
jobs by using attention key from the OV/400 menu.

Rob Berendt

==================

/*********************************************************************/
/*  TO ADD GROUPS, COPY LAST BLOCK, MAKE CHANGES, CHANGE THE         */
/*  VALUE OF &LSTGRPJOB TO THE LAST JOB NAME IN THE SET              */
/*********************************************************************/
             PGM
             DCL        VAR(&GRPJOBNAME) TYPE(*CHAR) LEN(10)
             DCL        VAR(&LSTGRPJOB) TYPE(*CHAR) LEN(10) +
                          VALUE(QS36PRC) /* This value should +
                          equal the last group job name to be set up */
/*********************************************************************/
             MONMSG     MSGID(CPF1310) EXEC(GOTO CMDLBL(SIGNOFF))
             MONMSG     MSGID(CPF9999)
/*********************************************************************/
             RTVGRPA    GRPJOB(&GRPJOBNAME)
/*********************************************************************/
             IF         COND(&GRPJOBNAME = '*NONE') THEN(DO)

             CHGGRPA    GRPJOB(SIGNOFF) TEXT(SIGNOFF)
             TFRGRPJOB  GRPJOB(WRKMBRPDM) INLGRPPGM(JUICE/SIGNON)
 JOB_01:     ?          SIGNOFF LOG(*NOLIST)
             MONMSG     MSGID(CPF6801) /* F3 OR F12 */
             TFRGRPJOB  GRPJOB(*PRV)
             GOTO       CMDLBL(JOB_01)
             ENDDO
/*********************************************************************/
             IF         COND(&GRPJOBNAME = 'WRKMBRPDM') THEN(DO)
             CHGGRPA     TEXT(WRKMBRPDM)
             TFRGRPJOB  GRPJOB(&LSTGRPJOB) INLGRPPGM(JUICE/SIGNON)
 JOB_02:     WRKMBRPDM
             MONMSG     MSGID(CPF9999) /* F3 OR F12 */
             TFRGRPJOB  GRPJOB(*PRV)
             GOTO       CMDLBL(JOB_02)
             ENDDO
/*********************************************************************/
             IF         COND(&GRPJOBNAME = 'QCMD') THEN(DO)
             CHGGRPA     TEXT(QCMD)
             TFRGRPJOB  GRPJOB(WRKMBRPDM) INLGRPPGM(JUICE/SIGNON)
 JOB_03:     CALL       PGM(QCMD)
             MONMSG     MSGID(CPF9999)
             TFRGRPJOB  GRPJOB(*PRV)
             GOTO       CMDLBL(JOB_03)
             ENDDO
/*********************************************************************/
             IF         COND(&GRPJOBNAME = 'QRY') THEN(DO)
             CHGGRPA     TEXT(QRY)
             TFRGRPJOB  GRPJOB(QCMD) INLGRPPGM(JUICE/SIGNON)
 JOB_04:     WRKQRY
             MONMSG     MSGID(CPF9999) /* F3 OR F12 */
             TFRGRPJOB  GRPJOB(*PRV)
             GOTO       CMDLBL(JOB_04)
             ENDDO
/*********************************************************************/
             IF         COND(&GRPJOBNAME = 'QCLSRC') THEN(DO)
             CHGGRPA     TEXT(QCLSRC)
             TFRGRPJOB  GRPJOB(QRY) INLGRPPGM(JUICE/SIGNON)
 JOB_05:     WRKMBRPDM  ??FILE(QCLSRC)
             MONMSG     MSGID(CPF9999)
             TFRGRPJOB  GRPJOB(*PRV)
             GOTO       CMDLBL(JOB_05)
             ENDDO
/*********************************************************************/
             IF         COND(&GRPJOBNAME = 'QDDSSRC') THEN(DO)
             CHGGRPA     TEXT(QDDSSRC)
             TFRGRPJOB  GRPJOB(QCLSRC) INLGRPPGM(JUICE/SIGNON)
 JOB_06:     WRKMBRPDM  ??FILE(QDDSSRC)
             MONMSG     MSGID(CPF9999)
             TFRGRPJOB  GRPJOB(*PRV)
             GOTO       CMDLBL(JOB_06)
             ENDDO
/*********************************************************************/
             IF         COND(&GRPJOBNAME = 'QS36SRC') THEN(DO)
             CHGGRPA     TEXT(QS36SRC)
             TFRGRPJOB  GRPJOB(QDDSSRC) INLGRPPGM(JUICE/SIGNON)
 JOB_07:     WRKMBRPDM  ??FILE(QS36SRC)
             MONMSG     MSGID(CPF9999)
             TFRGRPJOB  GRPJOB(*PRV)
             GOTO       CMDLBL(JOB_07)
             ENDDO
/*********************************************************************/
             IF         COND(&GRPJOBNAME = 'QS36PRC') THEN(DO)
             CHGGRPA     TEXT(QS36PRC)
             TFRGRPJOB  GRPJOB(QS36SRC) INLGRPPGM(JUICE/SIGNON)
 JOB_08:     WRKMBRPDM  ??FILE(QS36PRC)
             MONMSG     MSGID(CPF9999)
             TFRGRPJOB  GRPJOB(*PRV)
             GOTO       CMDLBL(JOB_08)
             ENDDO
/*********************************************************************/
/*********************************************************************/
/*********************************************************************/
             TFRCTL     PGM(QCMD)

 SIGNOFF:    SIGNOFF    LOG(*LIST)

             ENDPGM

             PGM
             TFRGRPJOB  GRPJOB(*SELECT)
             MONMSG     MSGID(CPF1310)
             ENDPGM

             PGM
             MONMSG     MSGID(CPF2103 CPF2110)

             CHGJOB     RUNPTY(20)
             CALL       PGM(JUICE/DPCPGM)
             ADDLIBLE   LIB(JUICETOOLS)
             SETATNPGM  PGM(JUICE/ATN002CL)
             CALL       PGM(JUICE/INT002CL)

             ENDPGM