If a new data set is created, trigger a backup job.
Figure 202 ON DSNEVENT Parameter Example
RL: PRDJ0003 LIB CTOP.PRODSMP.RULES TABLE: $HASP
COMMAND ===> SCROLL===> CRSR
------------------------------------------------------------------------------
ON DSNEVENT = PRDJ0003 JTYPE SMFID SYSTEM
DSN PROD.* DISP CATLG
PROCSTEP PGMSTEP STEPRC OK And/Or/Not
OWNER IOAADMIN GROUP MODE PROD RUNTSEC
THRESHOLD
DESCRIPTION NEW DATASET CREATED - TRIGGER A BACKUP JOB
DESCRIPTION
===========================================================================
DO SET = %%BACKUP\DATASET=%%$DSN GLOBAL N
DO COMMAND = F %%CONTROLO,WRITEGLOBAL=BACKUP
WAIT CONSOLEID CONSOLE SYSTEM
WAITMODE Y WAITRESP Y TIMEOUT 0300 0001
RESPMSG CTO163I
IF %%$MSGID EQ CTO163I
/* SCHEDULE A CONTROL-M JOB TO HANDLE THE BACKUP
DO FORCEJOB = TABLE BACKUP JOB BACKUP UFLOW N DATE ODAT
LIBRARY PROD.ALL.SCHEDULE
/* WRITE A MESSAGE TO THE IOA LOG
DO SHOUT = TO U-BACKUP URGENCY R SYSTEM CTO282I
MESSAGE BACKUP WAS STARTED FOR JOB %%$JOBNAME, DATASET %%$DSN
ELSE
DO SHOUT = TO OPER URGENCY R SYSTEM CTO282I
MESSAGE WRITEGLOBAL DID NOT TERMINATE IN FIVE MINUTES - JOB NOT FORCED
ENDIF
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 18.42.56
Parent Topic |