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