Kenneth Graap's program

Kenneth Graap's program

 

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

Dig deeper on iSeries programming commands

0 comments

Oldest 

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:

SearchEnterpriseLinux

SearchDataCenter

Close