testdata.rpgle

     P*  -----------------------------------------------------------------------
     P*  Fixed Format
     P*  -----------------------------------------------------------------------
     P GetTestData     b
     Ftestpfl1  if   e           k disk    rename(testpfr:testpfr1)
     D GetTestData     pi
     C                   read      testpfl1
     P GetTestData     e
     P
       // Full free format
       dcl-proc GetTestData2;
         dcl-pi GetTestData2;
         end-pi;
         dcl-f testpfl1 disk keyed rename(testpfr:testpfr1);

         read testpfl1;

         return;
       end-proc;