Figure 1 - DDS for sample file TestPF

 
 *  ===================================================================
 *  = File.......... TestPF                                           =
 *  = Source type... PF                                               =
 *  = Description... Sample file for reading files in CL              =
 *  ===================================================================

A          R TESTPFR                   TEXT('Test Record')
A            CODE           1          TEXT('Test Code')
A            NUMBER         5S 0       TEXT('Test Number')
A            FIELD         30          TEXT('Test Field')