As400 load all subfile
- 1. Find many more at website: www.go4as400.com Load-All Subfile In Load-All subfile all the records are written to the subfile buffer at once and then the data in the subfile loaded from the buffer. In this case SFLSIZ should be at-least 1 greater than the SFLPAG. If we are writing more records in the subfile buffer than the SFLSIZ declared and SFLSIZ<9999, then the SFLSIZ is extended to accommodate all records till the size of 9999. 9999 is the buffer limit. In this case PAGEUP AND PAGEDOWN is taken care by system. SFLPAG should be less than SFLSIZ. In load-All subfile if we do PAGEDOWN and then press ENTER on the page, by-default ENTER bring the display screen to the very first page irrespective of the current page number. To avoid this situation, we use file information data structure to get the current page RRN number and pass it to the SFLRCDNBR hidden field defined in the display file DDS. Load all subfile Example Physical file used in the program= MASTER ORG CODE ACC NUMBER 190 A00000000001 190 A00000000002 190 A00000000004 190 A00000000005 191 A00000000006 191 A00000000007 191 A00000000008 192 A00000000009 192 A00000000010 192 A00000000011 192 A00000000012 ******** End of data CURRENCY OPEN DATE PARTY NUM EUR 20120605 P00000000001 USD 20120605 P00000000002 EUR 1072012 P00000000004 USD 6072011 P00000000005 USD 9082012 P00000000006 EUR 9082000 P00000000007 USD 9082007 P00000000008 TRY 6092000 P00000000009 INR 1012012 P00000000001 INR 1012022 P00000000012 INR 1012022 P00000000002 ******** A/C STS 2 3 2 1 2 2 1 2 2 1 2 ENT STS 1 1 2 1 1 1 1 2 1 2 2 VER STS 1 1 1 1 1 1 1 2 1 1 1 AUT STS 1 1 1 1 1 1 1 2 1 1 1 REC STS TIMESTAMP 2 2012-06-05-03.07.34.011000 2 2012-06-05-03.07.49.859000 2 0001-01-01-00.00.00.000000 1 0001-01-01-00.00.00.000000 1 0001-01-01-00.00.00.000000 1 0001-01-01-00.00.00.000000 1 0001-01-01-00.00.00.000000 2 0001-01-01-00.00.00.000000 2 0001-01-01-00.00.00.000001 2 0001-01-01-00.00.00.000021 2 0001-01-01-00.00.00.000011 Display file used in the program= LOAD_DSP Columns . . . : 1 80Browse AMIT/QRPGLESRC SEU==> LOAD_DSP FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+++++++++++++++++++++++++++ *************** Beginning of data ***************************************************** 0001.00 A DSPSIZ(24 80 *DS3) 0002.00 A CA03(03 'EXIT') 0003.00 A R HEADER 0004.00 A OVERLAY
- 2. 0005.00 A 0006.00 A 0007.00 A 0008.00 A 0009.00 A 0010.00 A 0011.00 A 0012.00 A 0013.00 A 0014.00 A 0015.00 A 0016.00 A 0017.00 A 0018.00 A R 0019.00 A 0020.00 A 0021.00 A 0022.00 A 0023.00 A 0024.00 A 0025.00 A 0026.00 A 0027.00 A 0028.00 A R 0029.00 A 56 0030.00 A 0031.00 A 0032.00 A 0033.00 A R 0034.00 A 0035.00 A 52 0036.00 A 51 0037.00 A 50 0038.00 A 45 0039.00 A 0040.00 A 0041.00 A 0042.00 A 0043.00 A 0044.00 A ****************** End of 1 3USER DSPATR(HI) COLOR(BLU) 1 71DATE EDTCDE(Y) DSPATR(HI) COLOR(BLU) 2 71TIME DSPATR(HI) COLOR(BLU) 1 23'DISPLAY THE LOADALL SUBFILE' DSPATR(HI) COLOR(BLU) FOOTER OVERLAY 7'F3' DSPATR(RI) COLOR(WHT) 23 10'= EXIT' 23 26'F12' DSPATR(HI) DSPATR(RI) 23 30'=PREVIOUS' EXPD_SFL SFL SFLNXTCHG S_ORG 3S 0O 8 12 S_ACC 12A O 8 28 S_CCY 3A O 8 49 EXPD_CTL SFLCTL(EXPD_SFL) OVERLAY SFLDSP SFLDSPCTL SFLCLR SFLEND(*MORE) SFLSIZ(0006) SFLPAG(0005) S_RECNO 4S 0H SFLRCDNBR 6 12'ORG CODE' 6 27'ACCOUNT NUMBER' 6 48'CURRENCY' data ****************************************************** 23 MAIN PROGRAM Columns . . . : 6 80Browse AMIT/QRPGLESRC SEU==> LOAD_RPGLE FMT * *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 *************** Beginning of data **************************************************** 0001.00 0002.00 HDEBUG(*YES) 0003.00 HOPTION(*NODEBUGIO) 0004.00 * 0005.00 FMASTER IF E K DISK
- 3. 0006.00 0007.00 0008.00 0009.00 0010.00 0011.00 0012.00 0013.00 0014.00 0015.00 0015.01 0015.02 0015.02 0016.00 0017.00 0018.00 0019.00 0020.00 0021.00 0022.00 0023.00 FLOAD_DSP CF E WORKSTN F SFILE(EXPD_SFL:RRN) F INFDS(infds) * Dinfds DS DRECNO 378 379I 0 *____________________________________________________________________ *______ In load-All subfile if we do PAGEDOWN and then press ENTER on *______ the page, by-default ENTER bring thedisplay screen to the very *______ first page irrespective of the current page number. To avoid *______ this situation, we use file information data structure to get the *______ the current page RRN number and pass it to the SFLRCDNBR hidden *______ field defined in the display file DDS. *____________________________________________________________________ C *IN03 DOWEQ *OFF C EXSR MAIN C EXSR DSPSFL C ENDDO C SETON LR C* C*_____________________________________________ **** To see full example please visit website: www.go4as400.com 0068.00 *- - Don't write to subfile buffer if RRN>9999 0069.00 C IF RRN>9999 0070.00 C LEAVE 0071.00 C ENDIF 0072.00 C WRITE EXPD_SFL 0073.00 C ENDDO 0074.00 C ENDSR 0075.00 C*_________________________________________________ 0076.00 C* 0077.00 C DSPSFL BEGSR 0078.00 C SETON 5152 0079.00 * - - - Handle session device error if RRN<=0 i.e. no data in the buffer 0080.00 C IF RRN<=0 0081.00 C SETOFF 52 0082.00 C ENDIF 0083.00 * 0084.00 C WRITE HEADER 0085.00 C WRITE FOOTER 0086.00 C EXFMT EXPD_CTL 0087.00 C EVAL S_RECNO=RECNO 0088.00 C SETOFF 5152 0089.00 C ENDSR ****************** End of data ***************************************************** OUTPUT
- 4. ARUN DISPLAY THE LOADALL SUBFILE ORG CODE ACCOUNT NUMBER 190 190 190 190 191 2/21/13 08:07:59 CURRENCY A00000000001 A00000000002 A00000000004 A00000000005 A00000000006 EUR USD EUR USD USD More... F3 = EXIT F12 =PREVIOUS Find many more at website: www.go4as400.com