Page History
The original example RDML program that printed the ACCOUNTS file with the company number in the page heading looked like this:
GROUP_BY NAME(#ACCOUNT)
...
FIELDS(
...
#COMP #DIV #DEPT #EXPEND #REVNU)
DEF_HEAD NAME(#HEADING)
...
FIELDS(#COMP)
...
TRIGGER_BY(
...
#COMP *OVERFLOW)
DEF_LINE NAME(#DETAILS)
...
FIELDS(
...
#DIV #DEPT #EXPEND #REVNU)
SELECT FIELDS(#ACCOUNT)
...
FROM_FILE(ACCOUNTS)
PRINT LINE(#DETAILS)
ENDSELECT
ENDPRINT
which produced a 2 page report like this:
Company 01
Division Department Expenditure Revenue
1 ADM 400 576
1 MKT 678 56
1 SAL 123 6784
2 ADM 46 52
2 SAL 978 456
3 ACC 456 678
3 SAL 123 679
Company 02
Division Department Expenditure Revenue
1 ACC 843 400
1 MKT 23 0
1 SAL 876 10
2 ACC 0 43
Division Department Expenditure Revenue
1 ADM 400 576
1 MKT 678 56
1 SAL 123 6784
2 ADM 46 52
2 SAL 978 456
3 ACC 456 678
3 SAL 123 679
Company 02
Division Department Expenditure Revenue
1 ACC 843 400
1 MKT 23 0
1 SAL 876 10
2 ACC 0 43
The layout of this report can be easily improved by using a "leading" break line to "cluster" the divisions together. This could be done like this:
GROUP_BY NAME(#ACCOUNT)
...
FIELDS(
...
#COMP #DIV #DEPT #EXPEND #REVNU)
DEF_HEAD NAME(#HEADING)
...
FIELDS(#COMP)
...
TRIGGER_BY(
...
#COMP *OVERFLOW)
DEF_BREAK NAME(#BREAK01)
...
FIELDS(#DIV)
...
TRIGGER_BY(
...
#COMP #DIV) TYPE(*LEADING)
DEF_LINE NAME(#DETAILS)
...
FIELDS(#DEPT #EXPEND #REVNU)
SELECT FIELDS(#ACCOUNT)
...
FROM_FILE(ACCOUNTS)
PRINT LINE(#DETAILS)
ENDSELECT
ENDPRINT
...
Note how the DEF_BREAK command indicates the field #DIV is to be printed and it is to be "triggered" by change of #COMP or change of #DIV.
The resulting report would probably look something like this:
Company 01
Company 01
Department Expenditure Revenue
Division 1
ADM 400 576
MKT 678 56
SAL 123 6784
Division 2
ADM 46 52
SAL 978 456
Division 3
ACC 456 678
SAL 123 679
Company 02
Department Expenditure Revenue
Division 1
ACC 843 400
MKT 23 0
SAL 876 10
Division 2
ACC 0 43
ADM 400 576
MKT 678 56
SAL 123 6784
Division 2
ADM 46 52
SAL 978 456
Division 3
ACC 456 678
SAL 123 679
Company 02
Department Expenditure Revenue
Division 1
ACC 843 400
MKT 23 0
SAL 876 10
Division 2
ACC 0 43