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.