Products Downloads


French version


 

 

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

↑ Top of page


  • Aucune étiquette