Example 2

 DISPLAY FROM(IN) LIST(LIST1) -
       TITLE('National Accounting Report') -
       PAGE DATE TIME -
       HEADER('Division') HEADER('Revenue') HEADER('Profit/Loss') -
       ON(1,25,CH)        ON(45,10,ZD)       ON(35,10,ZD) -
       BLANK -
       TOTAL('Company Totals') -
       AVERAGE('Company Averages')

Prints, in the LIST1 data set:

A title line containing the specified title, the page number, the date and the time
A heading line containing the specified underlined headings
Data lines in the BLANK format containing:
- The characters from positions 1-25 of the IN data set
- The zoned decimal values from positions 45-54 of the IN data set
- The zoned decimal values from positions 35-44 of the IN data set
A TOTAL line containing the specified string and the total for each of the two zoned decimal fields in the BLANK format
An AVERAGE line containing the specified string and the average for each of the two zoned decimal fields in the BLANK format.

The LIST1 output starts on a new page and looks as follows (the first 2 records are shown with illustrative values):

 National Accounting Report        - 1 -        02/21/05        18:52:44

 Division                             Revenue        Profit/Loss
 -------------------------   ----------------   ----------------
 Research and Development            54323456            -823325
 Manufacturing                      159257631            1372610
 .                                          .                  .
 .                                          .                  .
 .                                          .                  .

 Company Totals                     612867321            5277836

 Company Averages                    76608415             659729

The title line and underlined heading line appear at the top of each page.