ADELIA |
|
|
|
|
(B) |
|
|
|
|
Section for use
All
Syntax
TOTAL_PROCEDURE ControlBreakGuideWord
Description
This instruction marks the beginning of a processing section where the procedure is associated with a total control break.
This section is called by the " PROCESS_TOTAL ControlBreakGuideWord" instruction which has the same control break guide word ControlBreakGuideWord.
This processing corresponds to a group change (processing the total of the former group associated with this control break).
Example
* Pgm to print orders/customer (1st brk on cust.code, 2nd on warehouse code)
READ ORDER
DO_WHILE ORDER EXISTS
PROCESS_BRK CUSTOMER_BK
PROCESS_BRK WAREHOUSE_BK
WAREH_AMOUNT = WAREH_AMOUNT + LINE_AMOUNT
PRINT_VIEWS ORDER_LINE
READ ORDER
PROCESS_TOTAL WAREHOUSE_BK
PROCESS_TOTAL CUSTOMER_BK
REDO
*
BREAK_PROCEDURE CUSTOMER_BK
PRINT_VIEWS CUSTOMER_FMT
CUSTOMER_AMOUNT = 0
END_PROCESSING
*
BREAK_PROCEDURE WAREHOUSE_BK
PRINT_VIEWS WAREHOUSE_FMT
WAREHOUSE_AMOUNT = 0
END_PROCESSING
* Total procedures
TOTAL_PROCEDURE WAREHOUSE_BK
PRINT TOTAL_WAREH
CUSTOMER_AMOUNT = CUSTOMER_AMOUNT + WAREH_AMOUNT
END_PROCESSING
*
TOTAL_PROCEDURE CUSTOMER_BK
PRINT TOTAL_CUST
END_PROCESSING
Other example:
* In Visual Adelia
See also the list of 4GL instructions by topic