A
DSPSIZ(24 80 *DS3)
A
R SUBFILEREC
SFL
A
DSP_OPT 1A B 8 28
A
DISTS 1A O 8
64DSPATR(ND)
A
FLD001 9 O 8
32
A
FLD002 9 0B 8 43
A
FLD003 4 O 8
56
A
R CONTROLREC
SFLCTL(SUBFILEREC)
A
SFLSIZ(0014)
A
SFLPAG(0013)
A
CA03(03 'EXIT')
A
CA06(06 'ADD')
A
OVERLAY
A 29
SFLDSP
A 30
SFLDSPCTL
A 31
SFLCLR
A 32
SFLEND(*MORE)
A
1 2DATE
A
EDTCDE(Y)
A
2 2TIME
A
1 70USER
A
7 27'Opt'
A
DSPATR(UL)
A
DSP_PGM 10A O 2 70
A
7 32'ENTER FIELDS FROM FILE BELOW'
A
DSPATR(UL)
A
1 28'SHELL FOR LOAD ALL SUBFILE'
A
R MESSAGE
A
23 2'F3=Exit'
A
23 11'X=Edit/Change the record'
A
23 37'F6=Add'
A
R SCREEN2
A
CA12(12 'CANCEL')
A
1 2DATE
A
EDTCDE(Y)
A
2 2TIME
A
1 70USER
A
DSP_PGM 10A O 2 70
A
22 3'F12=Exit'
A
22 13'<Enter>=Save'
A
ERROR 70A O 23 3
A
7 3'FIELD DESCRIPTION 1'
A
8 3'FIELD DESCRIPTION 2'
A
9 3'FIELD DESCRIPTION 3'
A
FLD001 9 B 7
24
A
FLD002 9 0B 8 24
A
FLD003 4 B 9
24
A
1 28'SHELL FOR LOAD ALL SUBFILE'