Last week I updated a REXX that is called from a TOD rule, I did not disable and enable the rule. This weekend when the TOD ran the updates were not executed. My question is, does a called REXX routine get compiled when the rule is initially enabled?
TOD Rule
)TOD SATURDAY 22:00:02,WEEK ,
)INIT
)PROC
/* This TOD rule will remind the operators it's time to shutdown the */
/* IMS regions. It will give the operators a chance to make choices */
/* as to which IMS regions should come down. In addition all tasks */
/* dependent on the IMS region will come down. */
call pimsy
exit
Called REXX:
Options "NOMAXCLAUSES NOMAXTIME NOMAXSAYS NOMAXCMDS NOMAXSTRING"
do until goodreply = 'YES'
replytext = 'Do you want to shutdown IMS00Y and its CICSs (YES,NO)?'
address WTO "Text('"replytext"') Msgid(OPSNOTIFY) Wait(60)",
"Route(2) Reply Hilite"
pull edq
parse var edq . reply
if reply = 'YES' | reply = 'NO' then goodreply = 'YES'
end
if reply = 'YES' then do
address OSF "OI STATESET" CICSZ041 "DESIRED(DOWN)"
address OSF "OI STATESET" CICSZ046 "DESIRED(DOWN)"
address OSF "OI STATESET" CICSZ051 "DESIRED(DOWN)"
address OSF "OI STATESET" CICSA760 "DESIRED(DOWN)" New-did not execute
address OSF "OI STATESET" CICSA761 "DESIRED(DOWN)" New-did not execute
" " " " "
" " " " "