Ü
SFLINZ and SFLRNA
·
These two keyword is used to
initialize a subfile which is done in case we want to make a data entry screen.
·
After the entry is made to be the
subfile then only it becomes active, before that it will be inactive. This is
done by SFLRNA.
·
By using SFLINZ, the fields in each
subfile record are initialized like as below:
CHARèBLANKS
NUMEèZEROS
FLOATèNULLS
Example
0018.00 A
0019.00 A R ACC_SFL SFL
0019.01 A 66 SFLNXTCHG
0019.02 A A_ORG 3Y 0B 05 02EDTCDE(4)
0019.03 A 81 DSPATR(RI)
0019.04 A 81 DSPATR(PC)
0019.05 A A_ACC 12 B 05 09
0019.06 A 82 DSPATR(RI)
0019.07 A 82 DSPATR(PC)
0019.08 A A_CCY 03 B 05 25
0019.09 A 83 DSPATR(RI)
0019.10 A 83 DSPATR(PC)
0019.11 A A_MNGR 10 B 05 32
0020.00 A A_CNTRY 10 B 05 46
0021.00 *
0022.00 A R ACC_CTL SFLCTL(ACC_SFL)
0022.01 A WINDOW(06 15 13 57)
0022.03 A SFLPAG(0005)
0022.04 A SFLSIZ(9999)
0022.05 A 63 SFLDSP
0022.06 A 62 SFLDSPCTL
0022.07 A 61 SFLCLR
0022.08 A 60 SFLINZ
0022.09 A SFLRNA
0022.10 A 65 SFLEND(*MORE)
0023.00 A 01 02'ENTER NEW ACCOUNTS FOR PARTY'
0023.01 A COLOR(BLU)
0024.00 A A_PNUM 12 O 01 31
0025.00 A A_PNAME 12 O 01 45
0026.00 A 03 02'ORG ACCOUNT NUMBER +
0027.00 A CCY ACC MANAGER COUNTRY'
0027.01 A COLOR(BLU)
0028.00 *
0029.00 A R ACC_FOOTER
0029.02 A WINDOW(ACC_CTL)
0029.03 A OVERLAY
0031.00 A 12 02'F12 = CANCEL'
0032.00 A COLOR(BLU)
****************** End of data ********************************************
Columns . . . : 6 80 Browse AMITCCCCC/QRPGLESRC
SEU==> EDTRPGCC
FMT * *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8
*************** Beginning of data *****************************************************
0001.00 *
0001.01 HOPTION(*NODEBUGIO)
0001.02 FPARTYD UF A E K DISK
0002.00 FACCSUBPF UF A E K DISK
0002.01 FEDTDSPCC CF E WORKSTN
0002.02 F SFILE(EXPD_SFL:RRN)
0002.03 F SFILE(ACC_SFL:RRN1)
0002.04 *
0002.05 DRRN S 4P 0 INZ(*ZEROS)
0002.06 DRRN1 S 4P 0 INZ(*ZEROS)
0002.07 DRRNMAX S 4P 0 INZ(*ZEROS)
0002.08 D@ERROR S 1A INZ(*BLANKS)
0002.09 DOPNDT DS
0002.10 DMM 2
0002.11 DFILLER1 1 INZ('-')
0002.12 DDD 2
0002.13 DFILLER2 1 INZ('-')
0002.14 DYY 4
0002.15 *______________________________________________
0002.16 C SETOFF 414243
0002.17 C SETOFF 818283
0002.18 C SETOFF 455051
0002.19 C SETOFF 5666
0003.00 C DOW *IN03=*OFF
0004.00 C EXSR MAIN
0004.01 C EXSR DSPLY
0004.02 C ENDDO
0005.00 C SETON LR
0006.00 *______________________________________________
0007.00 *___MAIN SUBROUTINE BEGINGS HERE_______________
0008.00 C MAIN BEGSR
0008.01 C READC EXPD_SFL
0008.02 C DOW NOT %EOF()
0008.03 C SELECT
0008.04 C S_OPT WHENEQ '1'
0008.05 C EXSR OPTION1
0008.06 C S_OPT WHENEQ '2'
0008.07 C EXSR OPTION2
0008.08 C S_OPT WHENEQ '4'
0008.09 C EXSR OPTION4
0008.10 C S_OPT WHENEQ '5'
0008.11 C EXSR OPTION5
0008.12 C OTHER
0008.13 C EXSR VALIDATE
0008.14 C ENDSL
0008.15 C READC EXPD_SFL
0008.16 C ENDDO
0009.00 C ENDSR
0010.00 *______________________________________________
0011.00 *___DSPLY SUBROUTINE BEGINS HERE_______________
0012.00 C DSPLY BEGSR
0012.01 C EXSR CLRSFL
0012.02 C EXSR FILSFL
0012.03 C EXSR DSPSFL
0013.00 C ENDSR
0013.01 *___________________________________________
0017.13 C OPTION1 BEGSR
0017.14 C SETOFF 12
0017.15 C EXSR CLEARACC
0017.16 C EXSR LOADACC
0017.17 C EXSR DSPACC
0020.28 *- - - - -- -- - - -- - -- - - - - - - - - - -
0020.29 C CLEARACC BEGSR
0020.30 C SETON 6061
0020.31 C WRITE ACC_CTL
0020.32 C SETOFF 6061
0020.33 C ENDSR
0020.34 * -- - - - - - - - - - - - - - - - - -- - - - - -
0020.06 C LOADACC BEGSR
0020.07 C EVAL RRN1=0
0020.10 C S_PNUM SETLL REC5
0020.11 C IF %EQUAL()
0020.12 C S_PNUM READE REC5
0020.13 C DOW NOT %EOF(ACCSUBPF)
0020.14 C EVAL A_ORG=ORG
0020.15 C EVAL A_ACC=ACC
0020.16 C EVAL A_CCY=CCY
0020.17 C EVAL A_MNGR=ACCMNGR
0020.18 C EVAL A_CNTRY=COUNTRY
0020.19 C EVAL A_PNAME=S_PNAME
0020.20 C EVAL A_PNUM=S_PNUM
0020.22 C EVAL RRN1=RRN1+1
0020.23 C WRITE ACC_SFL
0020.24 C S_PNUM READE REC5
0020.25 C ENDDO
0020.26 C ENDIF
0020.27 C ENDSR
0020.28 *- - - - -- -- - - -- - -- - - - - - - - - - -
0020.35 C DSPACC BEGSR
0020.36 C SETON 6263
0020.37 C WRITE ACC_CTL
0020.38 C WRITE ACC_FOOTER
0020.39 C READ ACC_CTL
0020.40 C EVAL S_OPT=*BLANKS
0020.41 C ENDSR
0020.42 *- - - - -- - - - - - - - - - - - - - - - - --
AMIT DISPLAY THE EDITABEL SUBFILE 9/04/13
11/59/03
OPTION: 1 = NEW A/C ENTRY FOR PARTY, 2=EDIT, 4 = DELETE, 5 =DISPLAY
OPT PARTY NAME PARTY NUMBER PARTY ADDRESS
1 IROBO P00000000001 CHENNAI
IROBO P00000000002 EMPHAL
SHMANT P00000000003 CHENNAI
AFTAB P00000000007 HOMEIIEA
AMI P00000000008 HELLY CORN
More...
F3 = EXIT
AMIT DISPLAY THE EDITABEL SUBFILE 9/04/13
11/59/03
OPTION: 1 = NEW A/C ENTRY FOR PARTY, 2=EDIT, 4 = DELETE, 5 =DISPLAY
_________________________________________________________
| ENTER NEW ACCOUNTS FOR PARTY P00000000001 IROBO |
OPT PAR | |
1 IRO | ORG ACCOUNT NUMBER CCY ACC MANAGER COUNTRY |
IRO | |
SHM | 195 A00000000006 TRY APPRINA SOUTN |
AFT | ___ ___________ ___ _______ _____ |
AMI | ___ ___________ ___ _______ _____ |
| ___ ___________ ___ _______ _____ | ...
| ___ ___________ ___ _______ _____ |
| More...|
| |
| F12 = CANCEL |
|_________________________________________________________|
F3 = EXIT