The rule terminates NOTOK with a condition code of 0055 if the sum computed is more than 1,000,000.00. Otherwise, the rule terminates OK with a condition code of 0.
Figure 228 DO TERMINAT Statement Example
LIBRARY : CTB.PROD.RULES RULE : RULCURR
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
IF SUM > 1000000.00 C
DO SHOUT TO TSO-M18 URGENCY R
= PLEASE CHECK CURRENCY FILE; SUM COMPUTED IS %%SUM
DO REMARK = SUM IS OVER 1000000.00 SUM=%%SUM
DO COND = NOTOK-%%SYSJOBNAME 0704 +
DO TERMINAT = NOTOK COD 0055
DO
ELSE
DO REMARK = SUM IS NOT OVER 1000000.00 SUM=%%SUM
DO TERMINAT = OK COD 0000
DO
(ENTER "ALWAYS", "IF")
===========================================================================
EXECUTE UPON C
ON
======= >>>>>>>>>>>>>>> END OF RULE DEFINITION PARAMETERS <<<<<<<<<<<<<<< =====
PLEASE FILL IN RULE DEFINITION. 13.52.20
Parent Topic |