4.4.6 Using a Trailing DEF_BREAK Command

"Trailing" break lines are typically used to insert level or break totals.

As an example of this, consider the following modifications to the RDML program used in the 4.4.5 Using a Leading DEF_BREAK Command to demonstrate "leading" break lines:

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_BREAK   NAME(#BREAK02) FIELDS(#DIV #DIVEXP #DIVRNU)

            TRIGGER_BY(#COMP #DIV) TYPE(*TRAILING)

DEF_LINE    NAME(#DETAILS) FIELDS(#DEPT #EXPEND #REVNU)

 

DEFINE      FIELD(#DIVEXP) REFFLD(#EXPEND) LABEL('Expend')

DEFINE      FIELD(#DIVRNU) REFFLD(#REVNU)  LABEL('Revenue')

 

SELECT      FIELDS(#ACCOUNT) FROM_FILE(ACCOUNTS)

KEEP_TOTAL  OF_FIELD(#EXPEND) IN_FIELD(#DIVEXP) 

            BY_FIELD(#COMP #DIV)

KEEP_TOTAL  OF_FIELD(#REVNU)  IN_FIELD(#DIVRNU) 

            BY_FIELD(#COMP #DIV)

PRINT       LINE(#DETAILS)

ENDSELECT

ENDPRINT

 

Note how the DEF_BREAK command is "triggered" by change of #COMP or #DIV. Note also the KEEP_TOTAL commands into the SELECT loop. These are used to automatically keep the company/division subtotals. Refer to the KEEP_XXXXX command series for more details of these commands and their usage.

The resulting report, using default design attributes, would probably look something like this:

 

       Company 01                                                

                                                                 

           Department   Expenditure   Revenue                    

       Division 1                                                

              ADM              400       576                     

              MKT              678        56                     

              SAL              123      6784                     

       Division 1 Expend 1201 Revenue 7416                       

       Division 2                                                

              ADM               46        52                     

              SAL              978       456                     

       Division 2 Expend 1024 Revenue  508                       

       Division 3                                                

              ACC              456       678                     

              SAL              123       679                     

       Division 3 Expend  579 Revenue 1357                       

 

 

 

       Company 02                                                

                                                                 

           Department   Expenditure   Revenue                    

       Division 1                                                

              ACC              843       400                     

              MKT               23         0                     

              SAL              876        10                     

       Division 1 Expend 1742 Revenue  410                       

       Division 2                                                

              ACC                0        43                     

       Division 2 Expend    0 Revenue   43                       

 

 

 

However, by using the Report Design Facility in the LANSA for i User Guide, the entire report layout could be modified in a few minutes to look like the examples following.

 

       Company 01                                                

                                                                 

           Department   Expenditure   Revenue                    

           =========== Division 1 ===========                    

              ADM              400       576                     

              MKT              678        56                     

              SAL              123      6784                     

                              ----      ----                     

                              1201      7416                     

                              ----      ----                     

                                                                 

           =========== Division 2 ===========                    

              ADM               46        52                     

              SAL              978       456                     

                              ----      ----                     

                              1024       508                     

                              ----      ----                     

                                                                 

           =========== Division 3 ===========                    

              ACC              456       678                     

              SAL              123       679                     

                              ----      ----                     

                               579      1357                     

                              ----      ----                     

                                                                 

 

 

 

       Company 02                                                

                                                                 

           Department   Expenditure   Revenue                    

                                                                 

           =========== Division 1 ===========                    

              ACC              843       400                     

              MKT               23         0                     

              SAL              876        10                     

                              ----      ----                     

                              1742       410                     

                              ----      ----                     

           =========== Division 2 ===========                    

              ACC                0        43                     

                              ----      ----                     

                                 0        43                     

                              ----      ----