7 18 3 DEF_BREAK Example

LANSA Technical

7.18.3 DEF_BREAK Example

This example applies to the DEF_BREAK command.

Write an RDML program to read a regional sales file, print details of each record read and produce regional subtotals.

DEF_LINE   NAME(#DETAIL) FIELDS(#REGION #PRODES #VALUE)
DEF_BREAK  NAME(#REGTOT) FIELDS(#REGVAL) TRIGGER_BY(#REGION)
 
SELECT     FIELDS(#DETAIL) FROM_FILE(SALEHIST)
KEEP_TOTAL OF_FIELD(#VALUE) IN_FIELD(#REGVAL) BY_FIELD(#REGION)
PRINT      LINE(#DETAIL)
ENDSELECT
 
ENDPRINT
 

Refer also to Producing Reports Using LANSA.