Previous Topic

Next Topic

Book Contents

Book Index

Example 1

If variable TOTAL or variable AVERAGE (extracted from the report by a previous EXECUTE block) is not within the specified range, rule processing flow proceeds directly to label ERROR using statement DO GOTO. The rule then terminates NOTOK.

Figure 205 DO GOTO Statement – Example 1

     LIBRARY : CTB.PROD.RULES                                RULE : CHKACC

 COMMAND ===>                                                    SCROLL===> CRSR

 +-----------------------------------------------------------------------------+

   =========================================================================== 

   EXECUTE CHECK    UPON                                                   C   

   ON DATA                                                                    

   ALWAYS                                                                      

 DO PRINT    = CHECKING ACCOUNTS REPORT - SYSDATE,  SYSTIME        F   C   

 DO                                                                        

   IF        TOTAL>200                                                     C   

 DO PRINT    = TOTAL CHECKED AND IS ACCORDING TO EXPECTATIONS.     F   C   

 DO                                                                        

   ELSE                                                                        

 DO PRINT    =  TOTAL NOTOK, PLEASE CHECK ...                      F   C   

 DO GOTO     LABEL ERROR                                                   

 DO                                                                        

   IF        AVERAGE>150 AND AVERAGE<2000                                  C   

 DO PRINT    = AVERAGE CHECKED AND IS IN THE CORRECT RANGE.        F   C   

 DO                                                                        

   ELSE                                                                        

 DO PRINT    = AVERAGE NOT IN THE RIGHT RANGE, PLEASE CHECK ...    F   C   

 DO GOTO     LABEL ERROR                                                   

 DO                                                                        

   ALWAYS                                                                      

 DO TERMINAT = OK       COD 0000                                           

 DO                                                                        

   LABEL: ERROR                                                                

   ALWAYS                                                                      

 DO TERMINAT = NOTOK    COD 3333                                           

 DO                                                                        

            (ENTER "ALWAYS", "IF")                                         

   =========================================================================== 

   EXECUTE          UPON                                                   C   

   ON                                                                          

 ======= >>>>>>>>>>>>>>> END OF RULE DEFINITION PARAMETERS <<<<<<<<<<<<<<< =====

 PLEASE FILL IN RULE DEFINITION.                                        10.35.56

Parent Topic

DO GOTO: Automated Balancing Statement