Home page  Up a level  Display Fields command source  Display Fields control language source  Display Fields display file source  Display Fields help PanelGroup source  Display Fields RPG Source  Display Fields printer file source  Display Fields CL Subprogram 1  Display Fields CL subprogram 2  Display Fields Logicals  Display Fields create command source

Display Fields display file source

 

      *********************************************************************
      ***   FILE NAME: DSPFLDDF                    TYPE: DISPLAY        ***
      *** DESCRIPTION: Display a list of the fields for a file, along   ***
      *** with the key fields, select/omit parameters and the related   ***
      *** logical files.  Also includes general information about the   ***
      *** file, such as number of records, file size, date/time created ***
      *** etc.                                                          ***
      ***                                                               ***
      *** Copyright 1995 by John H. Daily III                           ***
      *********************************************************************
      ***                      Function Keys                            ***
      *** Key Description                                               ***
      *** F3  exit the program                                          ***
      *** F5  switch files                                              ***
      *** F6  display key fields window                                 ***
      *** F7  display select/omit window                                ***
      *** F8  display database relations window                         ***
      *** F9  execute RUNQRY with record select on the file             ***
      *** F10 execute RUNQRY without record select on the file          ***
      *** F10 re-execute the program with the pointed-to file in DBR    ***
      *** F11 display new file - up to 4 can be shown                   ***
      *** F12 exits the program                                         ***
      *** F13 switches between file size and physical if a logical      ***
      *** F14 show list of related files with key fields                ***
      *** F17 displays field position-to window                         ***
      *** F20 display list of files being displayed, allow select/close ***
      *** F21 displays a command line                                   ***
      *** F23 close the currently displayed file                        ***
      *** F24 show more function keys                                   ***
      *********************************************************************
      ***                      File Formats                             ***
      *** Format     Description                                        ***
      *** Subfil01   field list subfile for file 1                      ***
      *** SubFil02   field list subfile for file 2                      ***
      *** SubFil03   field list subfile for file 3                      ***
      *** SubFil04   field list subfile for file 4                      ***
      *** KeySfl01   key field list subfile for file 1                  ***
      *** KeySfl02   key field list subfile for file 2                  ***
      *** KeySfl03   key field list subfile for file 3                  ***
      *** KeySfl04   key field list subfile for file 4                  ***
      *** KeyNon     no key fields found                                ***
      *** SelSfl01   select/omit subfile for file 1                     ***
      *** SelSfl02   select/omit subfile for file 2                     ***
      *** SelSfl03   select/omit subfile for file 3                     ***
      *** SelSfl04   select/omit subfile for file 4                     ***
      *** Scrn06     find field in list and position to it              ***
      *** FilSfl01   list of database relations with key fields file 1  ***
      *** FilSfl02   list of database relations with key fields file 2  ***
      *** FilSfl03   list of database relations with key fields file 3  ***
      *** FilSfl04   list of database relations with key fields file 4  ***
      *** DbrSfl01   list related database files file 1                 ***
      *** DbrSfl02   list related database files file 2                 ***
      *** DbrSfl03   list related database files file 3                 ***
      *** DbrSfl04   list related database files file 4                 ***
      *** Scrn08     request new file and library                       ***
      *** Scrn09     new file/lib not found                             ***
      *** Scrn10     list of files open - allow select/delete           ***
      *** Scrn11     max files open message                             ***
      *** Scrn12     all files have been deleted message                ***
      *** Scrn13     find field was not found                           ***
      *** Scrn14     select which sections to print                     ***
      *********************************************************************
     A                                      DSPSIZ(24 80 *DS3)
     A                                      CHGINPDFT
     A                                      PRINT(99)
     A                                      ALTHELP(CA01)
     A                                      CA02
     A                                      CA03
     A                                      CA04
     A                                      CA05
     A                                      CA06
     A                                      CA07
     A                                      CA08
     A                                      CA11
     A                                      CA12
     A                                      CA13
     A                                      CA14
     A                                      CA15
     A                                      CA16
     A                                      CA17
     A                                      CA18
     A                                      CA19
     A                                      CA20
     A                                      CA21
     A                                      CA22
     A                                      CA23
     A                                      CA24
     A                                      HELP
      *********************************************************************
      *** Field list subfile.                                           ***
      *********************************************************************
     A          R SUBFIL01                  SFL
     A            H1TYPE         1A  H
     A            H1START        5S 0H
     A            S1KEY          1A  O 10  2DSPATR(HI)
     A            S1FIELD   R        O 10  4REFFLD(QWHFDACP/APKEYF ACCPTH)
     A  45                                  DSPATR(RI)
     A            S1LENGTH       5Y 0O 10 20EDTCDE(2)
     A            S1DECIMAL      2A  O 10 27
     A            S1TYPE         4A  O 10 15
     A            S1TEXT    R        O 10 31REFFLD(QWHDRFFD/WHFTXT FLDLST)
     A          R SUBCTL01                  SFLCTL(SUBFIL01)
     A                                      SFLSIZ(0013)
     A                                      SFLPAG(0012)
     A                                      CA09
     A                                      CA10
     A                                      OVERLAY
     A                                      HLPTITLE('Help for Display File Fie-
     A                                      lds')
     A  44                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND(*MORE)
     A          H                           HLPPNLGRP(DSPFLD DSPFLDPG)
     A                                      HLPARA(01 001 24 080)
     A            S1RRN          4S 0H      SFLRCDNBR
     A            H1FIELDS       7A  H
     A            H1RECLEN       7A  H
     A                                  1  2'DSPFLD'
     A                                  1 28'Display Fields for a File'
     A                                      DSPATR(HI)
     A                                  1 63TIME
     A                                  1 73DATE
     A                                      EDTCDE(Y)
     A                                  3  3'(1)'
     A                                  3  7'Name:'
     A            S1FILE        10A  O  3 13DSPATR(HI)
     A                                  3 28'Source:'
     A            S1SRCFILE     10A  O  3 36
     A                                  3 52'Create:'
     A                                      COLOR(RED)
     A            S1CRTDATE      8Y 0O  3 60TEXT('Object create date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(RED)
     A            S1CRTTIME      6Y 0O  3 72TEXT('Object create time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(RED)
     A                                  4  4'Library:'
     A            S1LIB         10A  O  4 13DSPATR(HI)
     A                                  4 31'Lib:'
     A            S1SRCLIB      10A  O  4 36
     A                                  4 52'Change:'
     A                                      COLOR(RED)
     A            S1CHGDATE      8Y 0O  4 60TEXT('Object change date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(RED)
     A            S1CHGTIME      6Y 0O  4 72TEXT('Object change time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(RED)
     A                                  5  5'Format:'
     A            S1FORMAT      10A  O  5 13
     A                                  5 28'Member:'
     A            S1SRCMBR      10A  O  5 36
     A                                  5 54'Save:'
     A                                      COLOR(TRQ)
     A            S1SAVEDATE     8Y 0O  5 60TEXT('Object save date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(TRQ)
     A            S1SAVETIME     6Y 0O  5 72TEXT('Object save time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(TRQ)
     A                                  6  4'Records:'
     A            S1RECORDS     20A  O  6 13TEXT('Number of records in physical-
     A                                       file')
     A                                  6 52'Source:'
     A                                      COLOR(YLW)
     A            S1SRCDATE      8Y 0O  6 60TEXT('Object source change date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(YLW)
     A            S1SRCTIME      6Y 0O  6 72TEXT('Object source change time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(YLW)
     A  39                              7  3'Physical:'
     A N39                              7  7'Size:'
     A N39        S1SIZE        20A  O  7 13TEXT('Physical file size')
     A  39        S1PHYS        10A  O  7 13
     A                                  7 51'Org Src:'
     A                                      COLOR(YLW)
     A            S1ORGSRCDT     8Y 0O  7 60TEXT('Original source change date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(YLW)
     A            S1ORGSRCTM     6Y 0O  7 72TEXT('Original source change time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(YLW)
     A                                  8  7'Text:'
     A                                      COLOR(BLU)
     A            S1PGMTEXT     50A  O  8 13COLOR(BLU)
     A                                  9  2'K'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9  4'Field     '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9 15'Type'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9 20'Length'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9 27'Dec'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9 31'Description                       -
     A                                                      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** Field list subfile.                                           ***
      *********************************************************************
     A          R SUBFIL02                  SFL
     A            H2TYPE         1A  H
     A            H2START        5S 0H
     A            S2KEY          1A  O 10  2DSPATR(HI)
     A            S2FIELD   R        O 10  4REFFLD(QWHFDACP/APKEYF ACCPTH)
     A  45                                  DSPATR(RI)
     A            S2TYPE         4A  O 10 15
     A            S2LENGTH       5Y 0O 10 20EDTCDE(2)
     A            S2DECIMAL      2A  O 10 27
     A            S2TEXT    R        O 10 31REFFLD(QWHDRFFD/WHFTXT FLDLST)
     A          R SUBCTL02                  SFLCTL(SUBFIL02)
     A                                      SFLSIZ(0013)
     A                                      SFLPAG(0012)
     A                                      CA09
     A                                      CA10
     A                                      OVERLAY
     A  48                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND(*MORE)
     A            S2RRN          4S 0H      SFLRCDNBR
     A            H2FIELDS       7A  H
     A            H2RECLEN       7A  H
     A                                  1  2'DSPFLD'
     A                                  1 28'Display Fields for a File'
     A                                      DSPATR(HI)
     A                                  1 63TIME
     A                                  1 73DATE
     A                                      EDTCDE(Y)
     A                                  3  3'(2)'
     A                                  3  7'Name:'
     A            S2FILE        10A  O  3 13DSPATR(HI)
     A                                  3 28'Source:'
     A            S2SRCFILE     10A  O  3 36
     A                                  3 52'Create:'
     A                                      COLOR(RED)
     A            S2CRTDATE      8Y 0O  3 60TEXT('Object create date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(RED)
     A            S2CRTTIME      6Y 0O  3 72TEXT('Object create time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(RED)
     A                                  4  4'Library:'
     A            S2LIB         10A  O  4 13DSPATR(HI)
     A                                  4 31'Lib:'
     A            S2SRCLIB      10A  O  4 36
     A                                  4 52'Change:'
     A                                      COLOR(RED)
     A            S2CHGDATE      8Y 0O  4 60TEXT('Object change date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(RED)
     A            S2CHGTIME      6Y 0O  4 72TEXT('Object change time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(RED)
     A                                  5  5'Format:'
     A            S2FORMAT      10A  O  5 13
     A                                  5 28'Member:'
     A            S2SRCMBR      10A  O  5 36
     A                                  5 54'Save:'
     A                                      COLOR(TRQ)
     A            S2SAVEDATE     8Y 0O  5 60TEXT('Object save date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(TRQ)
     A            S2SAVETIME     6Y 0O  5 72TEXT('Object save time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(TRQ)
     A                                  6  4'Records:'
     A            S2RECORDS     20A  O  6 13TEXT('Number of records in physical-
     A                                       file')
     A                                  6 52'Source:'
     A                                      COLOR(YLW)
     A            S2SRCDATE      8Y 0O  6 60TEXT('Object source change date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(YLW)
     A            S2SRCTIME      6Y 0O  6 72TEXT('Object source change time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(YLW)
     A  39                              7  3'Physical:'
     A N39                              7  7'Size:'
     A N39        S2SIZE        20A  O  7 13TEXT('Physical file size')
     A  39        S2PHYS        10A  O  7 13
     A                                  7 51'Org Src:'
     A                                      COLOR(YLW)
     A            S2ORGSRCDT     8Y 0O  7 60TEXT('Original source change date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(YLW)
     A            S2ORGSRCTM     6Y 0O  7 72TEXT('Original source change time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(YLW)
     A                                  8  7'Text:'
     A                                      COLOR(BLU)
     A            S2PGMTEXT     50A  O  8 13COLOR(BLU)
     A                                  9  2'K'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9  4'Field     '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9 15'Type'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9 20'Length'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9 27'Dec'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9 31'Description                       -
     A                                                      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** Field list subfile.                                           ***
      *********************************************************************
     A          R SUBFIL03                  SFL
     A            H3TYPE         1A  H
     A            H3START        5S 0H
     A            S3KEY          1A  O 10  2DSPATR(HI)
     A            S3FIELD   R        O 10  4REFFLD(QWHFDACP/APKEYF ACCPTH)
     A  45                                  DSPATR(RI)
     A            S3TYPE         4A  O 10 15
     A            S3LENGTH       5Y 0O 10 20EDTCDE(2)
     A            S3DECIMAL      2A  O 10 27
     A            S3TEXT    R        O 10 31REFFLD(QWHDRFFD/WHFTXT FLDLST)
     A          R SUBCTL03                  SFLCTL(SUBFIL03)
     A                                      SFLSIZ(0013)
     A                                      SFLPAG(0012)
     A                                      CA09
     A                                      CA10
     A                                      OVERLAY
     A  50                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND(*MORE)
     A            S3RRN          4S 0H      SFLRCDNBR
     A            H3FIELDS       7A  H
     A            H3RECLEN       7A  H
     A                                  1  2'DSPFLD'
     A                                  1 28'Display Fields for a File'
     A                                      DSPATR(HI)
     A                                  1 63TIME
     A                                  1 73DATE
     A                                      EDTCDE(Y)
     A                                  3  3'(3)'
     A                                  3  7'Name:'
     A            S3FILE        10A  O  3 13DSPATR(HI)
     A                                  3 28'Source:'
     A            S3SRCFILE     10A  O  3 36
     A                                  3 52'Create:'
     A                                      COLOR(RED)
     A            S3CRTDATE      8Y 0O  3 60TEXT('Object create date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(RED)
     A            S3CRTTIME      6Y 0O  3 72TEXT('Object create time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(RED)
     A                                  4  4'Library:'
     A            S3LIB         10A  O  4 13DSPATR(HI)
     A                                  4 31'Lib:'
     A            S3SRCLIB      10A  O  4 36
     A                                  4 52'Change:'
     A                                      COLOR(RED)
     A            S3CHGDATE      8Y 0O  4 60TEXT('Object change date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(RED)
     A            S3CHGTIME      6Y 0O  4 72TEXT('Object change time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(RED)
     A                                  5  5'Format:'
     A            S3FORMAT      10A  O  5 13
     A                                  5 28'Member:'
     A            S3SRCMBR      10A  O  5 36
     A                                  5 54'Save:'
     A                                      COLOR(TRQ)
     A            S3SAVEDATE     8Y 0O  5 60TEXT('Object save date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(TRQ)
     A            S3SAVETIME     6Y 0O  5 72TEXT('Object save time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(TRQ)
     A                                  6  4'Records:'
     A            S3RECORDS     20A  O  6 13TEXT('Number of records in physical-
     A                                       file')
     A                                  6 52'Source:'
     A                                      COLOR(YLW)
     A            S3SRCDATE      8Y 0O  6 60TEXT('Object source change date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(YLW)
     A            S3SRCTIME      6Y 0O  6 72TEXT('Object source change time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(YLW)
     A  39                              7  3'Physical:'
     A N39                              7  7'Size:'
     A N39        S3SIZE        20A  O  7 13TEXT('Physical file size')
     A  39        S3PHYS        10A  O  7 13
     A                                  7 51'Org Src:'
     A                                      COLOR(YLW)
     A            S3ORGSRCDT     8Y 0O  7 60TEXT('Original source change date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(YLW)
     A            S3ORGSRCTM     6Y 0O  7 72TEXT('Original source change time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(YLW)
     A                                  8  7'Text:'
     A                                      COLOR(BLU)
     A            S3PGMTEXT     50A  O  8 13COLOR(BLU)
     A                                  9  2'K'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9  4'Field     '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9 15'Type'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9 20'Length'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9 27'Dec'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9 31'Description                       -
     A                                                      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** Field list subfile.                                           ***
      *********************************************************************
     A          R SUBFIL04                  SFL
     A            H4TYPE         1A  H
     A            H4START        5S 0H
     A            S4KEY          1A  O 10  2DSPATR(HI)
     A            S4FIELD   R        O 10  4REFFLD(QWHFDACP/APKEYF ACCPTH)
     A  45                                  DSPATR(RI)
     A            S4TYPE         4A  O 10 15
     A            S4LENGTH       5Y 0O 10 20EDTCDE(2)
     A            S4DECIMAL      2A  O 10 27
     A            S4TEXT    R        O 10 31REFFLD(QWHDRFFD/WHFTXT FLDLST)
     A          R SUBCTL04                  SFLCTL(SUBFIL04)
     A                                      SFLSIZ(0013)
     A                                      SFLPAG(0012)
     A                                      CA09
     A                                      CA10
     A                                      OVERLAY
     A  56                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND(*MORE)
     A            S4RRN          4S 0H      SFLRCDNBR
     A            H4FIELDS       7A  H
     A            H4RECLEN       7A  H
     A                                  1  2'DSPFLD'
     A                                  1 28'Display Fields for a File'
     A                                      DSPATR(HI)
     A                                  1 63TIME
     A                                  1 73DATE
     A                                      EDTCDE(Y)
     A                                  3  3'(4)'
     A                                  3  7'Name:'
     A            S4FILE        10A  O  3 13DSPATR(HI)
     A                                  3 28'Source:'
     A            S4SRCFILE     10A  O  3 36
     A                                  3 52'Create:'
     A                                      COLOR(RED)
     A            S4CRTDATE      8Y 0O  3 60TEXT('Object create date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(RED)
     A            S4CRTTIME      6Y 0O  3 72TEXT('Object create time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(RED)
     A                                  4  4'Library:'
     A            S4LIB         10A  O  4 13DSPATR(HI)
     A                                  4 31'Lib:'
     A            S4SRCLIB      10A  O  4 36
     A                                  4 52'Change:'
     A                                      COLOR(RED)
     A            S4CHGDATE      8Y 0O  4 60TEXT('Object change date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(RED)
     A            S4CHGTIME      6Y 0O  4 72TEXT('Object change time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(RED)
     A                                  5  5'Format:'
     A            S4FORMAT      10A  O  5 13
     A                                  5 28'Member:'
     A            S4SRCMBR      10A  O  5 36
     A                                  5 54'Save:'
     A                                      COLOR(TRQ)
     A            S4SAVEDATE     8Y 0O  5 60TEXT('Object save date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(TRQ)
     A            S4SAVETIME     6Y 0O  5 72TEXT('Object save time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(TRQ)
     A                                  6  4'Records:'
     A            S4RECORDS     20A  O  6 13TEXT('Number of records in physical-
     A                                       file')
     A                                  6 52'Source:'
     A                                      COLOR(YLW)
     A            S4SRCDATE      8Y 0O  6 60TEXT('Object source change date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(YLW)
     A            S4SRCTIME      6Y 0O  6 72TEXT('Object source change time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(YLW)
     A  39                              7  3'Physical:'
     A N39                              7  7'Size:'
     A N39        S4SIZE        20A  O  7 13TEXT('Physical file size')
     A  39        S4PHYS        10A  O  7 13
     A                                  7 51'Org Src:'
     A                                      COLOR(YLW)
     A            S4ORGSRCDT     8Y 0O  7 60TEXT('Original source change date')
     A                                      EDTWRD('  /  /    ')
     A                                      COLOR(YLW)
     A            S4ORGSRCTM     6Y 0O  7 72TEXT('Original source change time')
     A                                      EDTWRD('  :  :  ')
     A                                      COLOR(YLW)
     A                                  8  7'Text:'
     A                                      COLOR(BLU)
     A            S4PGMTEXT     50A  O  8 13COLOR(BLU)
     A                                  9  2'K'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9  4'Field     '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9 15'Type'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9 20'Length'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9 27'Dec'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9 31'Description                       -
     A                                                      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** Function keys for field lists.                                ***
      *********************************************************************
     A          R SUBKEY01
     A                                      OVERLAY
     A N24N25                          23  2'F3=Exit'
     A                                      COLOR(BLU)
     A  24                             23  2'F9=Query'
     A                                      COLOR(BLU)
     A  25                             23  2'F14=Logicals'
     A                                      COLOR(BLU)
     A N24N25                          23 12'F5=Switch'
     A                                      COLOR(BLU)
     A  24                             23 13'F10=Query w/Sel'
     A                                      COLOR(BLU)
     A  25                             23 18'F17=Find field'
     A                                      COLOR(BLU)
     A N24N25                          23 24'F6=Key List'
     A                                      COLOR(BLU)
     A  24                             23 31'F11=New file'
     A                                      COLOR(BLU)
     A  25                             23 36'F20=Files'
     A                                      COLOR(BLU)
     A N24N25                          23 38'F7=Select'
     A                                      COLOR(BLU)
     A  24                             23 46'F13=Size/Phys'
     A                                      COLOR(BLU)
     A  25                             23 49'F21=Cmd Line'
     A                                      COLOR(BLU)
     A N24N25                          23 50'F8=Relations'
     A                                      COLOR(BLU)
     A                                 23 65'F24=More Keys'
     A                                      COLOR(BLU)
     A                                 24 46'Copyright 1996 by John H. Daily II-
     A                                      I'
     A                                      DSPATR(HI)
      *********************************************************************
      *** File keys subfile                                             ***
      *********************************************************************
     A          R KEYSFL01                  SFL
     A                                      SFLNXTCHG
     A            K1KEYNBR  R        O  3  1REFFLD(QWHFDACP/APKEYN ACCPTH)
     A                                      EDTCDE(Z)
     A            K1KEYFIELDR        O  3  5REFFLD(QWHFDACP/APKEYF ACCPTH)
     A            K1ASCDESC      1A  O  3 17
     A            K1TEXT    R        O  3 20REFFLD(QWHDRFFD/WHFTXT FLDLST)
     A          R KEYCTL01                  SFLCTL(KEYSFL01)
     A                                      OVERLAY
     A  65                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND(*MORE)
     A                                      SFLSIZ(0010)
     A                                      SFLPAG(0009)
     A                                      WINDOW(9 6 12 69 *NOMSGLIN)
     A            K1RRN          4S 0H      SFLRCDNBR
     A                                  1 29'Key Field List'
     A                                      COLOR(BLU)
     A                                  2  1'Seq'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2  5'Key Field '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 20'Description                       -
     A                                                      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 16'A/D'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** File keys subfile                                             ***
      *********************************************************************
     A          R KEYSFL02                  SFL
     A                                      SFLNXTCHG
     A            K2KEYNBR  R        O  3  1REFFLD(QWHFDACP/APKEYN ACCPTH)
     A                                      EDTCDE(Z)
     A            K2KEYFIELDR        O  3  5REFFLD(QWHFDACP/APKEYF ACCPTH)
     A            K2ASCDESC      1A  O  3 17
     A            K2TEXT    R        O  3 20REFFLD(QWHDRFFD/WHFTXT FLDLST)
     A          R KEYCTL02                  SFLCTL(KEYSFL02)
     A                                      OVERLAY
     A  66                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND(*MORE)
     A                                      SFLSIZ(0010)
     A                                      SFLPAG(0009)
     A                                      WINDOW(9 6 12 69 *NOMSGLIN)
     A            K2RRN          4S 0H      SFLRCDNBR
     A                                  1 29'Key Field List'
     A                                      COLOR(BLU)
     A                                  2  1'Seq'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2  5'Key Field '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 16'A/D'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 20'Description                       -
     A                                                      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** File keys subfile                                             ***
      *********************************************************************
     A          R KEYSFL03                  SFL
     A                                      SFLNXTCHG
     A            K3KEYNBR  R        O  3  1REFFLD(QWHFDACP/APKEYN ACCPTH)
     A                                      EDTCDE(Z)
     A            K3KEYFIELDR        O  3  5REFFLD(QWHFDACP/APKEYF ACCPTH)
     A            K3ASCDESC      1A  O  3 17
     A            K3TEXT    R        O  3 20REFFLD(QWHDRFFD/WHFTXT FLDLST)
     A          R KEYCTL03                  SFLCTL(KEYSFL03)
     A                                      OVERLAY
     A  67                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND(*MORE)
     A                                      SFLSIZ(0010)
     A                                      SFLPAG(0009)
     A                                      WINDOW(9 6 12 69 *NOMSGLIN)
     A            K3RRN          4S 0H      SFLRCDNBR
     A                                  1 29'Key Field List'
     A                                      COLOR(BLU)
     A                                  2  1'Seq'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2  5'Key Field '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 16'A/D'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 20'Description                       -
     A                                                      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** File keys subfile                                             ***
      *********************************************************************
     A          R KEYSFL04                  SFL
     A                                      SFLNXTCHG
     A            K4KEYNBR  R        O  3  1REFFLD(QWHFDACP/APKEYN ACCPTH)
     A                                      EDTCDE(Z)
     A            K4KEYFIELDR        O  3  5REFFLD(QWHFDACP/APKEYF ACCPTH)
     A            K4ASCDESC      1A  O  3 17
     A            K4TEXT    R        O  3 20REFFLD(QWHDRFFD/WHFTXT FLDLST)
     A          R KEYCTL04                  SFLCTL(KEYSFL04)
     A                                      OVERLAY
     A  68                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND(*MORE)
     A                                      SFLSIZ(0010)
     A                                      SFLPAG(0009)
     A                                      WINDOW(9 6 12 69 *NOMSGLIN)
     A            K4RRN          4S 0H      SFLRCDNBR
     A                                  1 29'Key Field List'
     A                                      COLOR(BLU)
     A                                  2  1'Seq'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2  5'Key Field '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 16'A/D'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 20'Description                       -
     A                                                      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** No key fields exist record.                                   ***
      *********************************************************************
     A          R KEYNON01
     A                                      CLRL(*NO)
     A                                      OVERLAY
     A                                 16 30'The file is not keyed'
     A                                      DSPATR(HI)
     A                                      DSPATR(RI)
      *********************************************************************
      *** Select/Omit field subfile.                                    ***
      *********************************************************************
     A          R SELSFL01                  SFL
     A            S1SORULE  R        O  3  3REFFLD(QWHFDSO/SORULE SELECT)
     A            S1SOFLD   R        O  3  9REFFLD(QWHFDSO/SOFLD SELECT)
     A            S1SOCOMP  R        O  3 24REFFLD(QWHFDSO/SOCOMP SELECT)
     A            S1SOVALU  R        O  3 31REFFLD(QWHFDSO/SOVALU SELECT)
     A          R SELCTL01                  SFLCTL(SELSFL01)
     A                                      SFLSIZ(0008)
     A                                      SFLPAG(0007)
     A                                      WINDOW(12 13 10 63 *NOMSGLIN)
     A  51                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND
     A            L1RRN          4S 0H
     A                                  1 21'Select/Omit Field Values'
     A                                      COLOR(BLU)
     A                                  2  2'S/O'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2  9'Field     '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 23'Comp'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 31'Value                           '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** Select/Omit field subfile.                                    ***
      *********************************************************************
     A          R SELSFL02                  SFL
     A            S2SORULE  R        O  3  3REFFLD(QWHFDSO/SORULE SELECT)
     A            S2SOFLD   R        O  3  9REFFLD(QWHFDSO/SOFLD SELECT)
     A            S2SOCOMP  R        O  3 24REFFLD(QWHFDSO/SOCOMP SELECT)
     A            S2SOVALU  R        O  3 31REFFLD(QWHFDSO/SOVALU SELECT)
     A          R SELCTL02                  SFLCTL(SELSFL02)
     A                                      SFLSIZ(0008)
     A                                      SFLPAG(0007)
     A                                      WINDOW(12 13 10 63 *NOMSGLIN)
     A  52                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND
     A            L2RRN          4S 0H
     A                                  1 21'Select/Omit Field Values'
     A                                      COLOR(BLU)
     A                                  2  2'S/O'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2  9'Field     '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 23'Comp'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 31'Value                           '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** Select/Omit field subfile.                                    ***
      *********************************************************************
     A          R SELSFL03                  SFL
     A            S3SORULE  R        O  3  3REFFLD(QWHFDSO/SORULE SELECT)
     A            S3SOFLD   R        O  3  9REFFLD(QWHFDSO/SOFLD SELECT)
     A            S3SOCOMP  R        O  3 24REFFLD(QWHFDSO/SOCOMP SELECT)
     A            S3SOVALU  R        O  3 31REFFLD(QWHFDSO/SOVALU SELECT)
     A          R SELCTL03                  SFLCTL(SELSFL03)
     A                                      SFLSIZ(0008)
     A                                      SFLPAG(0007)
     A                                      WINDOW(12 13 10 63 *NOMSGLIN)
     A  53                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND
     A            L3RRN          4S 0H
     A                                  1 21'Select/Omit Field Values'
     A                                      COLOR(BLU)
     A                                  2  2'S/O'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2  9'Field     '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 23'Comp'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 31'Value                           '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** Select/Omit field subfile.                                    ***
      *********************************************************************
     A          R SELSFL04                  SFL
     A            S4SORULE  R        O  3  3REFFLD(QWHFDSO/SORULE SELECT)
     A            S4SOFLD   R        O  3  9REFFLD(QWHFDSO/SOFLD SELECT)
     A            S4SOCOMP  R        O  3 24REFFLD(QWHFDSO/SOCOMP SELECT)
     A            S4SOVALU  R        O  3 31REFFLD(QWHFDSO/SOVALU SELECT)
     A          R SELCTL04                  SFLCTL(SELSFL04)
     A                                      SFLSIZ(0008)
     A                                      SFLPAG(0007)
     A                                      WINDOW(12 13 10 63 *NOMSGLIN)
     A  54                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND
     A            L4RRN          4S 0H
     A                                  1 21'Select/Omit Field Values'
     A                                      COLOR(BLU)
     A                                  2  2'S/O'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2  9'Field     '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 23'Comp'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 31'Value                           '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** Position-to field window.                                     ***
      *********************************************************************
     A          R SCRN06
     A                                      CLRL(*NO)
     A                                      OVERLAY
     A                                      WINDOW(8 54 1 22 *NOMSGLIN)
     A                                  1  1'Find Field:'
     A            S6POSTO       10A  B  1 13DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** Display all files related to physical.                        ***
      *********************************************************************
     A          R FILSFL01                  SFL
     A            S5OPT1         1A  I  3  1DSPATR(HI)
     A                                      DSPATR(UL)
     A  36
     AO 37
     AO 38                                  DSPATR(ND)
     A  36
     AO 37
     AO 38                                  DSPATR(PR)
     A            S5FILE1       10A  O  3  3
     A N36                                  COLOR(PNK)
     A  36                                  COLOR(TRQ)
     A            S5LIB1        10A  O  3 14
     A N37                                  COLOR(PNK)
     A  37                                  COLOR(TRQ)
     A            S5TEXT1       50A  O  3 25
     A N38                                  COLOR(PNK)
     A  38                                  COLOR(WHT)
     A          R FILCTL01                  SFLCTL(FILSFL01)
     A                                      OVERLAY
     A  71                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND(*MORE)
     A                                      SFLSIZ(0015)
     A                                      SFLPAG(0014)
     A                                      WINDOW(6 2 17 74 *NOMSGLIN)
     A            S5RRN1         4S 0H      SFLRCDNBR
     A                                  1 28'Database Relations'
     A                                      COLOR(RED)
     A                                  2  1'X'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2  3'File      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 14'Library   '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 25'Text                              -
     A                                                      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** Display all files related to physical.                        ***
      *********************************************************************
     A          R FILSFL02                  SFL
     A            S5OPT2         1A  I  3  1DSPATR(HI)
     A                                      DSPATR(UL)
     A  36
     AO 37
     AO 38                                  DSPATR(ND)
     A  36
     AO 37
     AO 38                                  DSPATR(PR)
     A            S5FILE2       10A  O  3  3
     A N36                                  COLOR(PNK)
     A  36                                  COLOR(TRQ)
     A            S5LIB2        10A  O  3 14
     A N37                                  COLOR(PNK)
     A  37                                  COLOR(TRQ)
     A            S5TEXT2       50A  O  3 25
     A N38                                  COLOR(PNK)
     A  38                                  COLOR(WHT)
     A          R FILCTL02                  SFLCTL(FILSFL02)
     A                                      OVERLAY
     A  72                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND(*MORE)
     A                                      SFLSIZ(0015)
     A                                      SFLPAG(0014)
     A                                      WINDOW(6 2 17 74 *NOMSGLIN)
     A            S5RRN2         4S 0H      SFLRCDNBR
     A                                  1 28'Database Relations'
     A                                      COLOR(RED)
     A                                  2  1'X'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2  3'File      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 14'Library   '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 25'Text                              -
     A                                                      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** Display all files related to physical.                        ***
      *********************************************************************
     A          R FILSFL03                  SFL
     A            S5OPT3         1A  I  3  1DSPATR(HI)
     A                                      DSPATR(UL)
     A  36
     AO 37
     AO 38                                  DSPATR(ND)
     A  36
     AO 37
     AO 38                                  DSPATR(PR)
     A            S5FILE3       10A  O  3  3
     A N36                                  COLOR(PNK)
     A  36                                  COLOR(TRQ)
     A            S5LIB3        10A  O  3 14
     A N37                                  COLOR(PNK)
     A  37                                  COLOR(TRQ)
     A            S5TEXT3       50A  O  3 25
     A N38                                  COLOR(PNK)
     A  38                                  COLOR(WHT)
     A          R FILCTL03                  SFLCTL(FILSFL03)
     A                                      OVERLAY
     A  73                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND(*MORE)
     A                                      SFLSIZ(0015)
     A                                      SFLPAG(0014)
     A                                      WINDOW(6 2 17 74 *NOMSGLIN)
     A            S5RRN3         4S 0H      SFLRCDNBR
     A                                  1 28'Database Relations'
     A                                      COLOR(RED)
     A                                  2  1'X'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2  3'File      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 14'Library   '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 25'Text                              -
     A                                                      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** Display all files related to physical.                        ***
      *********************************************************************
     A          R FILSFL04                  SFL
     A            S5OPT4         1A  I  3  1DSPATR(HI)
     A                                      DSPATR(UL)
     A  36
     AO 37
     AO 38                                  DSPATR(ND)
     A  36
     AO 37
     AO 38                                  DSPATR(PR)
     A            S5FILE4       10A  O  3  3
     A N36                                  COLOR(PNK)
     A  36                                  COLOR(TRQ)
     A            S5LIB4        10A  O  3 14
     A N37                                  COLOR(PNK)
     A  37                                  COLOR(TRQ)
     A            S5TEXT4       50A  O  3 25
     A N38                                  COLOR(PNK)
     A  38                                  COLOR(WHT)
     A          R FILCTL04                  SFLCTL(FILSFL04)
     A                                      OVERLAY
     A  74                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND(*MORE)
     A                                      SFLSIZ(0015)
     A                                      SFLPAG(0014)
     A                                      WINDOW(6 2 17 74 *NOMSGLIN)
     A            S5RRN4         4S 0H      SFLRCDNBR
     A                                  1 28'Database Relations'
     A                                      COLOR(RED)
     A                                  2  1'X'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2  3'File      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 14'Library   '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 25'Text                              -
     A                                                      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** Database relations subfile.                                   ***
      *********************************************************************
     A          R DBRSFL01                  SFL
     A            S5FILE1   R        O  3  2REFFLD(QWHDRDBR/WHREFI DBR)
     A            S5LIB1    R        O  3 13REFFLD(QWHDRDBR/WHRELI DBR)
     A          R DBRCTL01                  SFLCTL(DBRSFL01)
     A                                      SFLSIZ(0009)
     A                                      SFLPAG(0008)
     A                                      WINDOW(12 40 11 23 *NOMSGLIN)
     A                                      OVERLAY
     A  81                                  CA09
     A  81                                  CA10
     A  81                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND(*MORE)
     A            S9RRN1         4S 0H      SFLRCDNBR
     A                                  1  4'Database Relations'
     A                                      COLOR(BLU)
     A                                  2  2'File      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 13'Library   '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** Database relations subfile.                                   ***
      *********************************************************************
     A          R DBRSFL02                  SFL
     A            S5FILE2   R        O  3  2REFFLD(QWHDRDBR/WHREFI DBR)
     A            S5LIB2    R        O  3 13REFFLD(QWHDRDBR/WHRELI DBR)
     A          R DBRCTL02                  SFLCTL(DBRSFL02)
     A                                      SFLSIZ(0009)
     A                                      SFLPAG(0008)
     A                                      WINDOW(12 40 11 23 *NOMSGLIN)
     A                                      OVERLAY
     A  82                                  CA09
     A  82                                  CA10
     A  82                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND(*MORE)
     A            S9RRN2         4S 0H      SFLRCDNBR
     A                                  1  4'Database Relations'
     A                                      COLOR(BLU)
     A                                  2  2'File      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 13'Library   '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** Database relations subfile.                                   ***
      *********************************************************************
     A          R DBRSFL03                  SFL
     A            S5FILE3   R        O  3  2REFFLD(QWHDRDBR/WHREFI DBR)
     A            S5LIB3    R        O  3 13REFFLD(QWHDRDBR/WHRELI DBR)
     A          R DBRCTL03                  SFLCTL(DBRSFL03)
     A                                      SFLSIZ(0009)
     A                                      SFLPAG(0008)
     A                                      WINDOW(12 40 11 23 *NOMSGLIN)
     A                                      OVERLAY
     A  83                                  CA09
     A  83                                  CA10
     A  83                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND(*MORE)
     A            S9RRN3         4S 0H      SFLRCDNBR
     A                                  1  4'Database Relations'
     A                                      COLOR(BLU)
     A                                  2  2'File      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 13'Library   '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** Database relations subfile.                                   ***
      *********************************************************************
     A          R DBRSFL04                  SFL
     A            S5FILE4   R        O  3  2REFFLD(QWHDRDBR/WHREFI DBR)
     A            S5LIB4    R        O  3 13REFFLD(QWHDRDBR/WHRELI DBR)
     A          R DBRCTL04                  SFLCTL(DBRSFL04)
     A                                      SFLSIZ(0009)
     A                                      SFLPAG(0008)
     A                                      WINDOW(12 40 11 23 *NOMSGLIN)
     A                                      OVERLAY
     A  84                                  CA09
     A  84                                  CA10
     A  84                                  SFLDSP
     A  43                                  SFLDSPCTL
     A  42                                  SFLCLR
     A  43                                  SFLEND(*MORE)
     A            S9RRN4         4S 0H      SFLRCDNBR
     A                                  1  4'Database Relations'
     A                                      COLOR(BLU)
     A                                  2  2'File      '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  2 13'Library   '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
      *********************************************************************
      *** Get new library/file.                                         ***
      *********************************************************************
     A          R SCRN08
     A                                      OVERLAY
     A                                      WINDOW(4 60 3 16 *NOMSGLIN)
     A                                  1  4'Select File'
     A                                      COLOR(BLU)
     A                                  2  1'File:'
     A            S8FILE        10   I  2  7DSPATR(UL)
     A                                      DSPATR(HI)
     A                                  3  1'LIb:'
     A            S8LIB         10   I  3  7DSPATR(UL)
     A                                      DSPATR(HI)
      *********************************************************************
      *** Display file/lib not found message.                           ***
      *********************************************************************
     A          R SCRN09
     A                                      OVERLAY
     A                                      WINDOW(14 14 1 51 *NOMSGLIN)
     A                                  1  1'File'
     A            S8FILE        10A  O  1  6COLOR(BLU)
     A                                  1 17'in library'
     A            S8LIB         10A  O  1 28COLOR(BLU)
     A                                  1 39'was not found'
      *********************************************************************
      *** Select or delete file window.                                 ***
      *********************************************************************
     A          R SCRN10
     A                                      OVERLAY
     A                                      WINDOW(16 5 5 14 *NOMSGLIN)
     A                                  1  3'Window List'
     A                                      DSPATR(HI)
     A  75        S10SEL1        1   I  2  1DSPATR(HI)
     A                                      DSPATR(UL)
     A                                      VALUES('S' 'D' ' ')
     A  76        S10SEL2        1   I  3  1DSPATR(HI)
     A                                      DSPATR(UL)
     A                                      VALUES('S' 'D' ' ')
     A  77        S10SEL3        1   I  4  1DSPATR(HI)
     A                                      DSPATR(UL)
     A                                      VALUES('S' 'D' ' ')
     A  78        S10SEL4        1   I  5  1DSPATR(HI)
     A                                      DSPATR(UL)
     A                                      VALUES('S' 'D' ' ')
     A                                  2  3'1'
     A                                  3  3'2'
     A                                  4  3'3'
     A                                  5  3'4'
     A            S10FILE1      10   O  2  5
     A            S10FILE2      10   O  3  5
     A            S10FILE3      10   O  4  5
     A            S10FILE4      10   O  5  5
      *********************************************************************
      *** Four files are already open message window.                   ***
      *********************************************************************
     A          R SCRN11
     A                                      OVERLAY
     A                                      WINDOW(18 40 2 36 *NOMSGLIN)
     A                                  1  1'You already have four files open.'
     A                                  2  1'Close one before opening another o-
     A                                      ne'
      *********************************************************************
      *** All files closed message.                                     ***
      *********************************************************************
     A          R SCRN12
     A                                 10  2'                                  -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                      All-
     A                                       files have been closed            -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                                         -
     A                                                    '
     A                                 23  2'F3=Exit'
     A                                      COLOR(BLU)
     A                                 23 14'F11=Add file'
     A                                      COLOR(BLU)
      *********************************************************************
      *** Find field was not found message.                             ***
      *********************************************************************
     A          R SCRN13
     A                                      OVERLAY
     A                                      WINDOW(10 25 1 30 *NOMSGLIN)
     A                                  1  1'Field'
     A            S6POSTO       10A  O  1  7COLOR(BLU)
     A                                  1 18'was not found'
      *********************************************************************
      *** Select options to print.                                      ***
      *********************************************************************
     A          R SCRN14
     A                                      OVERLAY
     A                                      WINDOW(11 30 6 20 *NOMSGLIN)
     A                                  1  1'Select what to print'
     A                                      DSPATR(HI)
     A            S14FIELDS      1   B  3  1DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  3  3'Field List'
     A            S14KEYS        1   B  4  1DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  4  3'Key Fields'
     A            S14DBR         1   B  5  1DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  5  3'Database Relations'
     A            S14SELECT      1   B  6  1DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  6  3'Select/Omit'