Example 1
EXECUTE block BAL determines if a stock order should be issued for items that belong to group 781.
The current on-hand quantity of items in this group was calculated in previous EXECUTE blocks. Using the IF parameter, the current on-hand quantity amount can be compared to 1000 to determine if a stock order must be issued.
Figure 235 IF Statement – Example 1
LIBRARY : CTB.PROD.RULES RULE : RULINV
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
===========================================================================
EXECUTE BAL UPON C
ON DATA
ALWAYS
DO PRINT = TOTAL QUANTITY FOR FINAL ASSEMBLY SHOP F C
DO PRINT = GROUP 781 IS &&QTY F C
DO
IF QTY < 1000 C
DO SHOUT TO U-M18 URGENCY R
= ORDER NEW STOCK FOR GROUP 781 (QTY=&&QTY)
DO REMARK = REQUEST ORDER OF STOCK FOR GROUP 781
DO TERMINAT = NOTOK COD 0004
DO
ELSE
DO REMARK = STOCK OF GROUP 781 IS OK
DO TERMINAT = OK COD 0000
DO
(ENTER "ALWAYS", "IF")
===========================================================================
EXECUTE UPON C
PLEASE FILL IN RULE DEFINITION. 18.49.42
Example 2
In EXECUTE block PROCESS, the current total value (DB_CURRENT_TOTAL) is compared to the same value from last month's report (DB_CURRENT_TOTAL@G01). This example represents a "run-to-run check." To verify that the current total value is reasonable, the two values are compared; Their difference should not be greater than 10,000.
Figure 236 IF Statement – Example 2
LIBRARY : CTB.PROD.RULES RULE : RUNCHK
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
===========================================================================
EXECUTE PROCESS UPON C
ON DATA
IF (DB_CURRENT_TOTAL - DB_CURRENT_TOTAL.@G01) > 10000 C
DO SHOUT TO OPER URGENCY R
= -- ADMIN REPORT IS OUT OF BALANCE --- CALL 714-5678 - JOHN
DO TERMINAT = NOTOK COD 1501
DO
ELSE
DO TERMINAT = OK COD 0000
DO
(ENTER "ALWAYS", "IF")
===========================================================================
EXECUTE UPON C
ON
======= >>>>>>>>>>>>>>> END OF RULE DEFINITION PARAMETERS <<<<<<<<<<<<<<< =====
PLEASE FILL IN RULE DEFINITION. 19.02.08
Parent Topic |