Skip to content

Instantly share code, notes, and snippets.

@bdietz400
Created January 3, 2022 03:46
Show Gist options
  • Save bdietz400/0ed85f77b50af4ab68f1dce22bf018ad to your computer and use it in GitHub Desktop.
Save bdietz400/0ed85f77b50af4ab68f1dce22bf018ad to your computer and use it in GitHub Desktop.
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'SFL014RG'
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)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment