Article

Kenneth Graap's program

Kenneth Graap
 

5769PW1 V4R4M0  990521                  SEU SOURCE LISTING                            02/11/02 05:33:20                 PAGE    1

  SOURCE FILE . . . . . . .  KENNETH/OLDPGMSRC
  MEMBER  . . . . . . . . .  CHKRMTJRN

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
    100 /* ************************************************************** */                                            07/18/91
    200 /* PROGRAM DESCRIPTION :                                          */                                            07/18/91
    300 /*                                                                */                                            04/07/00
    400 /* TRY TO START REMOTE JOURNALING IN ORDER TO INSURE IT IS ACTIVE */                                            06/12/00
    500 /*                                                                */                                            07/18/91
    600 /* SPECIAL COMPILE OPTIONS:                                       */                                            07/18/91
    700 /*                                                                */                                            07/18/91
    800 /*           WRITTEN BY: KEN GRAAP 06/12/00                       */                                            06/12/00
    900 /*           UPDATED BY:           06/19/2001 ADD NGOJRN AND      */                                            06/19/01
   1000 /*                                            LAWJRN SUPPORT      */                                            06/19/01
   1100 /*           UPDATED BY:           06/20/2001 ADD LAWP1JRN        */                                            06/20/01
   1200 /*                                            SUPPORT             */                                            06/20/01
   1300 /*                                            ADD SBMRMTCMD AND   */                                            06/20/01
   1400 /*                                            PARM &RUN TO        */                                            06/20/01
   1500 /*                                            SUPPORT RUNNING IN  */                                            06/20/01
   1600 /*                                            CHKRMTJRN2 IJS JOB  */                                            06/20/01
   1700 /*                                                                */                                            06/20/01
   1800 /* ************************************************************** */                                            07/18/91
   1900              PGM        PARM(&RUN)                                                                              06/20/01
   2000 /* ************************************************************** */                                            07/18/91
   2100 /*                                                                */                                            07/18/91
   2200 /* DECLARE PROGRAM VARIABLES                                      */                                            07/18/91
   2300 /*                                                                */                                            07/18/91
   2400 /* ************************************************************** */                                            07/18/91
   2500              DCL        &ERRORSW *LGL                     /* Std err */
   2600              DCL        &MSGID *CHAR LEN(7)               /* Std err */
   2700              DCL        &MSGDTA *CHAR LEN(100)            /* Std err */
   2800              DCL        &MSGF *CHAR LEN(10)               /* Std err */
   2900              DCL        &MSGFLIB *CHAR LEN(10)            /* Std err */
   3000              DCL        VAR(&RUN) TYPE(*CHAR) LEN(10)                                                           06/20/01
   3100 /* ************************************************************** */                                            07/18/91
   3200 /*                                                                */                                            07/18/91
   3300 /* GLOBAL MESSAGE MONITOR                                         */                                            07/18/91
   3400 /*                                                                */                                            07/18/91
   3500 /* ************************************************************** */                                            07/18/91
   3600              MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(STDERR1))                                               07/18/91
   3700 /* ************************************************************** */                                            07/18/91
   3800 /*  IF &RUN = *RESTART                                            */                                            06/20/01
   3900 /*   THEN ATTEMPT TO START REMOTE JOURNALING ONLY AND CHECK FOR   */                                            06/20/01
   4000 /*   ERROR MESSAGES. IF AN UNMONITORED MESSAGE IS  ENCOUNTERED    */                                            06/20/01
   4100 /*   IJS WILL SEND A PAGE                                         */                                            06/20/01
   4200 /*                                                                */                                            06/20/01
   4300 /*  IF &RUN = *SHUTDOWN                                           */                                            06/20/01
   4400 /*   THEN TRY SUBMITTING JOBS TO INACTIVATE REMOTE                */                                            06/20/01
   4500 /*   JOURNALING ON S17. ERROR MESSAGES WILL BE IGNORED.           */                                            06/20/01
   4600 /*                                                                */                                            06/20/01
   4700 /* ************************************************************** */                                            07/18/91
   4800                                                                                                                 07/18/91
   4900              SAE        ID(CHKRMTJRN) ENTDTA('The CHKRMTJRN program +                                           06/12/00
   5000                           has been executed.')                                                                  06/12/00
   5100                                                                                                                 07/18/91
   5200  RESTART:    IF         COND(&RUN *EQ *RESTART) THEN(DO)                                                        06/20/01
   5300              CHGRMTJRN  RDB(S17) SRCJRN(P1FILES/OCCISJRN) +                                                     06/12/00







  5769PW1 V4R4M0  990521                  SEU SOURCE LISTING                            02/11/02 05:33:20                 PAGE    2

  SOURCE FILE . . . . . . .  KENNETH/OLDPGMSRC
  MEMBER  . . . . . . . . .  CHKRMTJRN

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
   5400                           TGTJRN(S02RMTJRN/OCCISJRN) +                                                          06/12/00
   5500                           JRNSTATE(*ACTIVE) DELIVERY(*ASYNC) +                                                  06/12/00
   5600                           STRJRNRCV(*ATTACHED) SNDTSKPTY(*SYSDFT) +                                             06/12/00
   5700                           /* Start CIS Remote Journaling to S17 */                                              06/19/01
   5800              MONMSG     MSGID(CPF70DE CPF697A) /* Ignore certain +                                              06/12/00
   5900                           RMTJRN messages */                                                                    06/12/00
   6000                                                                                                                 06/19/01
   6100              DLYJOB     DLY(10)                                                                                 06/20/01
   6200                                                                                                                 06/20/01
   6300              CHGRMTJRN  RDB(S17) SRCJRN(LAWPRDDBF/LAWJRN) +                                                     06/19/01
   6400                           TGTJRN(S02RMTJRN/LAWJRN) +                                                            06/19/01
   6500                           JRNSTATE(*ACTIVE) DELIVERY(*ASYNC) +                                                  06/19/01
   6600                           STRJRNRCV(*ATTACHED) SNDTSKPTY(*SYSDFT) +                                             06/19/01
   6700                           /* Start LAW Remote Journaling to S17 */                                              06/19/01
   6800              MONMSG     MSGID(CPF70DE CPF697A) /* Ignore certain +                                              06/19/01
   6900                           RMTJRN messages */                                                                    06/19/01
   7000                                                                                                                 06/20/01
   7100              DLYJOB     DLY(10)                                                                                 06/20/01
   7200                                                                                                                 06/20/01
   7300              CHGRMTJRN  RDB(S17) SRCJRN(LAWP1FILES/LAWP1JRN) +                                                  06/20/01
   7400                           TGTJRN(S02RMTJRN/LAWP1JRN) +                                                          06/20/01
   7500                           JRNSTATE(*ACTIVE) DELIVERY(*ASYNC) +                                                  06/20/01
   7600                           STRJRNRCV(*ATTACHED) SNDTSKPTY(*SYSDFT) +                                             06/20/01
   7700                           /* Start LAW Remote Journaling to S17 */                                              06/20/01
   7800              MONMSG     MSGID(CPF70DE CPF697A) /* Ignore certain +                                              06/20/01
   7900                           RMTJRN messages */                                                                    06/20/01
   8000                                                                                                                 06/20/01
   8100              DLYJOB     DLY(10)                                                                                 06/20/01
   8200                                                                                                                 06/20/01
   8300              CHGRMTJRN  RDB(S17) SRCJRN(NGOP1FILES/NGOJRN) +                                                    06/19/01
   8400                           TGTJRN(S02RMTJRN/NGOJRN) +                                                            06/19/01
   8500                           JRNSTATE(*ACTIVE) DELIVERY(*ASYNC) +                                                  06/19/01
   8600                           STRJRNRCV(*ATTACHED) SNDTSKPTY(*SYSDFT) +                                             06/19/01
   8700                           /* Start NGO Remote Journaling to S17 */                                              06/19/01
   8800              MONMSG     MSGID(CPF70DE CPF697A) /* Ignore certain +                                              06/19/01
   8900                           RMTJRN messages */                                                                    06/19/01
   9000              ENDDO                                                                                              06/20/01
   9100                                                                                                                 06/19/01
   9200  SHUTDOWN:   IF         COND(&RUN *EQ *SHUTDOWN) THEN(DO)                                                       06/20/01
   9300              SBMRMTCMD  CMD('CHGJRN JRN(S02RMTJRN/OCCISJRN) +                                                   06/20/01
   9400                           JRNSTATE(*INACTIVE)') DDMFILE(KENNETH/S17)                                            06/20/01
   9500              MONMSG     MSGID(CPF0000)                                                                          06/20/01
   9600                                                                                                                 06/20/01
   9700              DLYJOB     DLY(10)                                                                                 06/20/01
   9800                                                                                                                 06/20/01
   9900              SBMRMTCMD  CMD('CHGJRN JRN(S02RMTJRN/NGOJRN) +                                                     06/20/01
  10000                           JRNSTATE(*INACTIVE)') DDMFILE(KENNETH/S17)                                            06/20/01
  10100              MONMSG     MSGID(CPF0000)                                                                          06/20/01
  10200                                                                                                                 06/20/01
  10300              DLYJOB     DLY(10)                                                                                 06/20/01
  10400                                                                                                                 06/20/01
  10500              SBMRMTCMD  CMD('CHGJRN JRN(S02RMTJRN/LAWJRN) +                                                     06/20/01
  10600                           JRNSTATE(*INACTIVE)') DDMFILE(KENNETH/S17)                                            06/20/01







  5769PW1 V4R4M0  990521                  SEU SOURCE LISTING                            02/11/02 05:33:20                 PAGE    3

  SOURCE FILE . . . . . . .  KENNETH/OLDPGMSRC
  MEMBER  . . . . . . . . .  CHKRMTJRN

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  10700              MONMSG     MSGID(CPF0000)                                                                          06/20/01
  10800                                                                                                                 06/20/01
  10900              DLYJOB     DLY(10)                                                                                 06/20/01
  11000                                                                                                                 06/20/01
  11100              SBMRMTCMD  CMD('CHGJRN JRN(S02RMTJRN/LAWP1JRN) +                                                   06/20/01
  11200                           JRNSTATE(*INACTIVE)') DDMFILE(KENNETH/S17)                                            06/20/01
  11300              MONMSG     MSGID(CPF0000)                                                                          06/20/01
  11400              ENDDO                                                                                              06/20/01
  11500                                                                                                                 06/20/01
  11600 /* ************************************************************** */                                            07/18/91
  11700 /*                                                                */                                            07/18/91
  11800 /* NORMAL END OF PROGRAM                                          */                                            07/18/91
  11900 /*                                                                */                                            07/18/91
  12000 /* ************************************************************** */                                            07/18/91
  12100  END:        RETURN                                                                                             07/18/91
  12200 /* ************************************************************** */                                            07/18/91
  12300 /*                                                                */                                            07/18/91
  12400 /* STANDARD ERROR PROCESSING                                      */                                            07/18/91
  12500 /*                                                                */                                            07/18/91
  12600 /* ************************************************************** */                                            07/18/91
  12700  STDERR1:               /* Standard error handling routine */
  12800              IF         &ERRORSW SNDPGMMSG MSGID(CPF9999) +
  12900                           MSGF(QCPFMSG) MSGTYPE(*ESCAPE) /* Func chk */
  13000              CHGVAR     &ERRORSW '1' /* Set to fail ir error occurs */
  13100  STDERR2:    RCVMSG     MSGTYPE(*DIAG) MSGDTA(&MSGDTA) MSGID(&MSGID) +
  13200                           MSGF(&MSGF) MSGFLIB(&MSGFLIB)
  13300              IF         (&MSGID *EQ '       ') GOTO STDERR3
  13400              SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
  13500                           MSGDTA(&MSGDTA) MSGTYPE(*DIAG)
  13600              GOTO       STDERR2 /* Loop back for addl diagnostics */
  13700  STDERR3:    RCVMSG     MSGTYPE(*EXCP) MSGDTA(&MSGDTA) MSGID(&MSGID) +
  13800                           MSGF(&MSGF) MSGFLIB(&MSGFLIB)
  13900              SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
  14000                           MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE)
  14100              ENDPGM


                                  * * * *  E N D  O F  S O U R C E  * * * * 

There are Comments. Add yours.

 
TIP: Want to include a code block in your comment? Use <pre> or <code> tags around the desired text. Ex: <code>insert code</code>

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
Sort by: OldestNewest

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to: