********************************************************************
      * File Name    - SCDSPFPF                                          *
      *                                                                  *
      * Function     - This file was designed to serve as an external    *
      *                data structure to define the file information     *
      *                data structure for display files.                 *
      *                                                                  *
      * Programmer   - Steve Croy        09/15/95                        *
      ********************************************************************

      *===============================================================
      * FILE INFORMATION DATA STRUCTURE: FRO DISPLAY FILE
      *===============================================================
     A          R RSCDSPF                   TEXT('DSPF INFDS')
     A            FILNAM         8          COLHDG('FILE' 'NAME')
     A            DSPOPN         1          COLHDG('FILE' 'OPEN')
     A            DSPEND         1          COLHDG('FILE' 'END')
     A            DSPSTS         5S 0       COLHDG('FILE' 'STS')
     A            DSCODE         6          COLHDG('RPG' 'OPCODE')
     A            DSRRTN         8          COLHDG('RPG' 'ROUTINE')
     A            DSRSTM         8          COLHDG('RPG' 'STATMNT')
     A            FMTNAM         8          COLHDG('FORMAT' 'NAME')
     A            DSPMSG         7          COLHDG('CPF' 'MSG')
     A            DSPINS         4          COLHDG('PGM' 'INSTR')
     A            DSUN01        10          COLHDG('UNDEFINED')
     A            DSPSIZ         4S 0       COLHDG('DSP' 'SIZE')
     A            DSPINP         2S 0       COLHDG('INPUT')
     A            DSPOUT         2S 0       COLHDG('OUTPUT')
     A            DSPMOD         2S 0       COLHDG('MODE')
     A            DSUN02         4          COLHDG('UNDEFINED')
     A            DSPODP         2S 0       COLHDG('ODP' 'TYPE')
     A            DSXNAM        10          COLHDG('XT' 'NAME')
     A            DSPLIB        10          COLHDG('FILE' 'LIB')
     A            DSSPLF        10          COLHDG('SPLF' 'NAME')
     A            DSSPLB        10          COLHDG('SPLF' 'LIB')
     A            DSSPL#         4B 0       COLHDG('SPLF' 'NBR')
     A            DSPLEN         4B 0       COLHDG('RECORD' 'LENGTH')
     A            DSUN03         2          COLHDG('UNDEFINED')
     A            DSPMBR        10          COLHDG('FILE' 'MEMBER')
     A            DSUN04         8          COLHDG('UNDEFINED 01')
     A            DSPTYP         4B 0       COLHDG('FILE' 'SUBTYPE')
     A            DSUN05         3          COLHDG('UNDEFINED 01')
     A            DSPLIN         4B 0       COLHDG('NBR OF' 'LINES')
     A            DSPCOL         4B 0       COLHDG('COLUMNS' 'DSP')
     A            DSPRCD         8B 0       COLHDG('RECORD' 'COUNT')
     A            DSPACC         2          COLHDG('ACCESS' 'TYPE')
     A            DSPDUP         1          COLHDG('ALLOW' 'DUPE')
     A            DSPSRC         1          COLHDG('SOURCE' 'FILE')
     A            DSUFCB        10          COLHDG('USER' 'FC' 'BLK')
     A            DSFBOV        10          COLHDG('FC' 'BLK' 'OVR')
     A            DSVLID         4B 0       COLHDG('VOL' 'ID' 'OVR')
     A            DSBKIO         4B 0       COLHDG('BLK' 'IO')
     A            DSPOFL         4B 0       COLHDG('OVERFLOW' 'LINE')
     A            DSBKOO         4B 0       COLHDG('BLK' 'IO' 'OFL')
     A            DSUN06         5          COLHDG('UNDEFINED')
     A            DSPDEV        10          COLHDG('PROGRAM' 'DEVICE')
     A            DSFBST         4B 0       COLHDG('FC' 'BLK' 'STS')
     A            DSUN07         2          COLHDG('UNDEFINED')
     A            DSPOST         4B 0       COLHDG('DB' 'OPN' 'STS')
     A            DSFLAG         1          COLHDG('FILE' 'FLAG')
     A            DSOPID         2          COLHDG('OPEN' 'ID')
     A            DSMAXR         4B 0       COLHDG('MAX' 'RECORDS')
     A            DSUN08       151          COLHDG('UNDEFINED')
     A            KEYPRESSED     1          COLHDG('FUNCTION' 'KEY')
     A            ROW            1          COLHDG('CURSOR' 'ROW')
     A            COL            1          COLHDG('CURSOR' 'COL')
     A            DSUN09         6          COLHDG('UNDEFINED')
     A            SFRRN#         4B 0       COLHDG('SFL' 'RRN')