Process to monitor Restricted Tablespace/Index – cont.
Original
post for developing a process to monitor Restricted TS/IX can be found here.
Searching
for the Dataset having the Restricted TS/IX details can be painful as the
monitoring process I developed creates a Dataset every 15 minutes, if the
Dataset name doesn’t have any unique identifier.
I made
modifications to the REXX routine, so that Restricted TS/IX details can be
displayed in the email and text messages. Below is the modified REXX routine I
coded.
/*REXX*/
I = 0
J = 0
CALL
READ_INPUT
CALL
INIT_PARA
CALL
TERM_PARA
READ_INPUT:
"EXECIO * DISKR SYSUT1 (STEM INP.
FINIS"
IF RC <> 0 THEN SAY 'INPUT FILE READ
FAILED WITH RC =' RC
ELSE NOP
RETURN;
TERM_PARA:
FREE ALL
"EXECIO 0 DISKR SYSUT1 (FINIS"
"EXECIO 0 DISKW SYSUT2 (FINIS"
EXIT
0
INIT_PARA:
DO I = 1 TO INP.0
DBRES = SUBSTR(INP.I,1,10)
DBRES = STRIP(DBRES,"B")
IF DBRES = 'DSNT362I' THEN
DO
PARSE VAR INP.I AA AB AC '=' AD AE '='
AF
SAY AC '=' AD AE '=' AF
PUSH AC '=' AD AE '=' AF
"EXECIO 1 DISKW SYSUT2"
CALL RESDB
END
ELSE NOP
END
RETURN;
RESDB:
DO J = I + 5 TO INP.0
OBJ = STRIP(INP.J,"B")
PARSE VAR OBJ AA BB
AA = STRIP(AA,"B")
IF AA = '*******' THEN LEAVE
ELSE
DO
SAY OBJ
PUSH OBJ
"EXECIO 1 DISKW SYSUT2"
END
END
RETURN;
No comments:
Post a Comment