Example 6
DISPLAY FROM(INV) LIST(RDWLIST2) -
DATE(DMY.) -
TFIRST TBETWEEN(3) -
TITLE('Fancy RDW Report with') -
TITLE('length in decimal and hex') -
TITLE('and max and min length') -
TIME(12:) -
HEADER('Relative Record') ON(NUM) -
HEADER(' RDW (length)') ON(VLEN) -
HEADER('RDW (Hex)') ON(1,4,HEX) -
BLANK -
MINIMUM('Smallest Record:') -
MAXIMUM('Largest Record:') -
COUNT('Number of Records: ') EDCOUNT(U04)
Prints, in the RDWLIST2 data set:
- Title lines containing the date, the specified title strings and the time
- A heading line containing the specified underlined headings
- Data lines in the BLANK format containing:
- The record number
- The record length
- The record descriptor word (RDW) in hexadecimal
- A MINIMUM line containing the specified string and the minimum record length in the BLANK format
- A MAXIMUM line containing the specified string and the maximum record length in the BLANK format
- A COUNT line containing the specified string and the edited overall record count.
RDWLIST2 output starts on a new page and looks as follows (the first 2 records are shown with illustrative values):
22.07.08 Fancy RDW Report with 05:37:43 pm
length in decimal and hex
and max and min length
Relative Record RDW (length) RDW (Hex)
--------------- ---------------- ---------
1 84 00540000
2 47 002F0000
3 31 001F0000
4 31 001F0000
5 31 001F0000
...
Relative Record RDW (length) RDW (Hex)
--------------- ---------------- ---------
51 31 001F0000
52 31 001F0000
53 31 001F0000
54 31 001F0000
55 31 001F0000
56 31 001F0000
Smallest Record: 31
Largest Record: 84
Number of Records: 56
The title lines only appear at the top of the first page as specified by the TFIRST operand. The underlined heading line appears at the top of each page.