ADELIA |
|
|
|
|
(B) |
|
|
|
|
Section for use
End of PROCESSING section
Syntax
END_PROCESSING
Description
This instruction marks the end of a processing section which began with one of the following three instructions:
Program control returns to the program:
after the instruction which called the section that ends with END_PROCESSING, for the following two instructions:
BREAK_PROCEDURE (this section is called by PROCESS_BRK),
TOTAL_PROCEDURE (this section is called by PROCESS_TOTAL).
for the CHANGE_PAGE paragraph, at the place in the program when the capacity overflow was detected.
Example
* Batch program to print orders per customer (break on customer code)
READ ORDER
DO_WHILE ORDER EXISTS
PROCESS_BRK CUSTOMER_BK
CUSTOMER_AMOUNT = CUSTOMER_AMOUNT + LINE_AMOUNT
PRINT_VIEWS ORDER_LINE
READ ORDER
PROCESS_TOTAL CUSTOMER_BK
REDO
* Heading procedure
*
BREAK_PROCEDURE CUSTOMER_BK
CHAIN CUSTOMERS
PRINT_VIEWS CUSTOMER_FMT
CUSTOMER_AMOUNT = 0
END_PROCESSING
* Total procedure
*
TOTAL_PROCEDURE CUSTOMER_BK
PRINT TOTAL_CUST
END_PROCESSING
*
* Change-page procedure (overflow)
*
CHANGE_PAGE
PRINT CUSTOMER_FMT
END_PROCESSING