Our shop cycles CICS every Sunday. But I wanted to run this program every day at 10 a.m. and again at 10 p.m. So, what I did was, I coded this piece at the end of the program (just before "EXEC CICS RETURN END-EXEC"):
IF WS-TIME > '21.59.59'
EXEC CICS START TRANSID(WS-THIS-TRAN)
REQID(WS-REQID)
AT HOURS(10)
END-EXEC
ELSE
EXEC CICS START TRANSID(WS-THIS-TRAN)
REQID(WS-REQID)
AT HOURS(22)
END-EXEC
END-IF
Thanks to my colleague who taught me this technique.
No comments:
Post a Comment