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)
- 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
- 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
- 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.