In this example, an AUDIT comment in the JCL reflects the last time that an enforcement for the JCL took place and who made the change:
//********************************************************************
//** JCLVERY 180503 162449 K68
//********************************************************************
The following rule looks for a JCLVERY eye-catcher and replaces the AUDIT comment with a new DATE and TIME and userID.
Fig.JV.3.24b DO WHILE example
| =========================================================================== |
| ON INIT |
| =========================================================================== |
| ENFORCEMENT O N T Y P E S : |
| |
| INIT END |
| JOB INCLUDE JCLLIB |
| EXEC PROC STEPEND |
| DD DDSYSIN DDSYSOUT |
| =========================================================================== |
| DO SET %%CONSTCMNT = JCLVERY |
| DO SET %%CMNTNUM = %%$CMNT0 |
| IF %%CMNTNUM NE# 0 |
| DO SET %%INDEX = 1 |
| WHILE %%INDEX LT# %%CMNTNUM |
| DO SET %%COMTEMP = %%$CMNT%%INDEX |
| DO SET %%FNDCOMNT = %%$POS %%CONSTCMNT %%COMTEMP 1 |
| IF %%FNDCOMNT NE# 0 |
| DO REPCMNT COMMENT# %%INDEX |
| * JCLVERY %%$DATE %%$TIME %%#REQUSER |
| ENDIF |
| DO SET %%INDEX = %%INDEX %%$PLUS 1 |
| DO |
| ENDWHILE |
| ENDIF |
| DO |
| =========================================================================== |
Parent Topic |