* DB FILE INFORMATION DATA STRUCTURE
      * CRTPF MBR(*NONE)
      * SYSTEM        : TS400
      * USER NAME     : JOHN ROSS
      * DATE          : 02/21/1999
      *=====================================================================
      * MAINTENANCE   :
      *=====================================================================
     A          R @INFDS1                   TEXT('INFDS DBF COPY 1.')
     A            @1XX01        10          TEXT('FILLER')
     A            @1STCD         5S 0       TEXT('*STATUS')
     A            @1OPCD         6          TEXT('*OPCODE')
     A            @1RTVN         8          TEXT('*ROUTINE')
     A            @1SQNO         8          TEXT('SOURCE STMT SEQ. NO.')
     A            @1FFM          8          TEXT('*RECORD')
     A            @1MSID         7          TEXT('EXCEPTION MSGID.')
     A            @1XX03        30          TEXT('FILLER')
     A            @1FFL         10          TEXT('FILE NAME.')
     A            @1FLB         10          TEXT('LIBRARY NAME.')
     A            @1XX04        26          TEXT('FILLER')
     A            @1FMB         10          TEXT('MEMBER NAME.')
     A            @1XX05        17          TEXT('FILLER')
     A            @1NROP         9B 0       TEXT('NO.RECS AT MBR OPEN.')
     A            @1XX06       237          TEXT('FILLER')
     A            @1RCNO         9B 0       TEXT('PF MBR RECORD NO.')
     A            @1XX07       124          TEXT('FILLER')