*
      *  To compile:
      *
      *             CRTDSPF FILE(XXX/SDBYSDDF) SRCFILE(XXX/QDDSSRC)
      *
      *=======================================================================
     A                                      DSPSIZ(24 80 *DS3)
     A                                      CA03
     A                                      CA12
     A                                      CF09
     A*
     A          R HEADER
     A*
     A                                      OVERLAY
     A                                  1 25'Multiple Subfiles - Side by Side'
     A                                      DSPATR(HI)
     A                                  1  3'SFL015RG'
     A                                  1 71DATE
     A                                      EDTCDE(Y)
     A                                  2 71TIME
     A*
     A          R SFL1                      SFL
     A*
     A            DBFNAM    R        O  4  5REFFLD(PFR/DBFNAM *LIBL/SFL001PF)
     A            DBMINI    R        O  4 31REFFLD(PFR/DBMINI *LIBL/SFL001PF)
     A*
     A          R SF1CTL                    SFLCTL(SFL1)
     A*
     A                                      OVERLAY
     A  32                                  SFLDSP
     A                                      SFLDSPCTL
     A  31                                  SFLCLR
     A  90                                  SFLEND(*MORE)
     A                                      SFLSIZ(0050)
     A                                      SFLPAG(0010)
     A                                      WINDOW(3 2 15 35)
     A                                      WDWBORDER((*CHAR '        '))
     A                                  3  5'First Name'
     A                                      DSPATR(HI)
     A                                  3 30'MI'
     A                                      DSPATR(HI)
     A            RRN1           4S 0H      SFLRCDNBR
     A*
     A          R SFL2                      SFL
     A*
     A            DBLNAM    R        O  4  5REFFLD(PFR/DBLNAM *LIBL/SFL001PF)
     A*
     A          R SF2CTL                    SFLCTL(SFL2)
     A*
     A                                      OVERLAY
     A  42                                  SFLDSP
     A                                      SFLDSPCTL
     A  41                                  SFLCLR
     A  90                                  SFLEND(*MORE)
     A                                      SFLSIZ(0050)
     A                                      SFLPAG(0010)
     A                                      WINDOW(3 41 15 35)
     A                                      WDWBORDER((*CHAR '        '))
     A                                      USRRSTDSP
     A                                  3  5'Last Name'
     A                                      DSPATR(HI)
     A            RRN2           4S 0H      SFLRCDNBR
     A          R FOOTER
     A*
     A                                      OVERLAY
     A                                 22  3'F3=Exit'
     A                                      COLOR(BLU)
     A                                 22 13'F9=Toggle'
     A                                      COLOR(BLU)
     A                                 22 25'F12=Cancel'
     A                                      COLOR(BLU)