Example 4

  COPY FROM(INPUT) TO(TEMP) USING(TREG)
  DISPLAY FROM(TEMP) LIST(REGULAR) -
    PAGE TITLE('Report on Regular Tools') TBETWEEN(12)-
    HEADER(NONE) ON(1,18,CH) -
    HEADER(,'Item') ON(35,5,CH) -
    HEADER('Percent','Change') ON(28,4,FS,B1) -
    LINES(66)
  COPY FROM(INPUT) TO(TEMP) USING(TPOW)
  DISPLAY FROM(TEMP) LIST(POWER) -
    PAGE TITLE('Report on Power Tools ') TBETWEEN(12)-
    HEADER(NONE) ON(1,18,CH) -
    HEADER(,'Item') ON(35,5,CH) -
    HEADER('Percent','Change') ON(28,4,FS,B1) -
    LINES(66)

This example shows how reports for different subsets of data can be produced. Assume that:

The TREGCNTL data set contains:
```
  INCLUDE COND=(44,8,CH,EQ,C'Regular')
```
The TPOWCNTL data set contains:
```
  INCLUDE COND=(44,8,CH,EQ,C'Power')
```

The first COPY operator copies the records from the INPUT data set that contain 'Regular ' in positions 44-51 to the TEMP (temporary) data set

The first DISPLAY operator uses the first subset of records in the TEMP data set to print, in the REGULAR data set:

A title line containing the page number and specified title, with twelve blanks between these report elements.
A two-line heading containing the specified underlined strings (with no heading for the first ON field)). Note the comma in HEADER(,'Item') to place 'Item' on line2 of the heading.
Data lines for the first subset of records containing:
- The characters from positions 1-18
- The characters from positions 35-39
- The floating sign values from positions 28-31 formatted with one decimal place and a period as the decimal point

The second COPY operator copies the records from the INPUT data set that contain 'Power ' in positions 44-51 to the TEMP (temporary) data set

The second DISPLAY operator uses the second subset of records in the TEMP data set to print, in the POWER data set:

A title line containing the page number and specified title, with twelve blanks between these report elements.
A two-line heading containing the specified underlined strings (with no heading for the first ON field)). Note the comma in HEADER(,'Item') to place 'Item' on line2 of the heading.
Data lines for the second subset of records containing:
- The characters from positions 1-18
- The characters from positions 35-39
- The floating sign values from positions 28-31 formatted with one decimal place and a period as the decimal point

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

- 1 -            Report on Regular Tools

                             Percent
                     Item     Change
                     -----   -------
Hammers              10325      -7.3
Wrenches             00273      15.8

The title line and underlined heading lines appear at the top of each page. The number of lines per page is 66, overriding the default of 58.

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

- 1 -            Report on Power Tools

                             Percent
                     Item     Change
                     -----   -------
Hammers              10325       9.8
Wrenches             00273     123.0

The title line and underlined heading lines appear at the top of each page. The number of lines per page is 66, overriding the default of 58.