练习时做的AS/400　subfile 的一个例子！（2）

最新推荐文章于 2022-03-21 20:26:32 发布

最新推荐文章于 2022-03-21 20:26:32 发布 · 193 阅读

文章标签：

#UP #F# #J#

as/400 专栏收录该内容

18 篇文章

订阅专栏

本文介绍了一个特定文件的内容解析过程，涉及文件处理的多个步骤，包括打印、检索、展示及子文件处理等操作。通过分析可以了解到从初始化到结束作业的一系列指令，以及如何通过输入邮政编码来检索客户文件并进行展示。

这个是显示文件

0001.00      A                                      REF(CUSMSTP)
0002.00      A                                      CHGINPDFT(CS)
0003.00      A                                      PRINT(QSYSPRT)
0004.00      A                                      INDARA
0005.00      A                                      CA03(03 'END OF JOB')
0006.00      A          R HEAD
0007.00      A                                      OVERLAY
0008.00      A                                  2 4TIME
0009.00      A                                      DSPATR(HI)
0010.00      A                                  2 28'CUSTOMER FILE SEARCH'
0011.00      A                                      DSPATR(HI RI)
0012.00      A                                  2 70DATE
0013.00      A                                      EDTCDE(Y)
0014.00      A                                      DSPATR(HI)
0015.00      A          R FOOT1
0016.00      A                                 23 6'ENTER - CONTINUE'
0017.00      A                                      DSPATR(HI)
0018.00      A                                 23 29'F3 - END JOB'
0019.00      A          R FOOT2
0020.00      A                                 23 6'ENTER - CONTINUE'
0021.00      A                                      DSPATR(HI)
0022.00      A                                 23 29'F3 - END JOB'
0023.00      A                                      DSPATR(HI)
0024.00      A                                 23 47'F4 - RESTART ZIP CODE
0025.00      A                                      DSPATR(HI)
0026.00      A          R PROMPT
0027.00      A                                      OVERLAY
0028.00      A                                  4 4'ENTER ZIP CODE'
0029.00      A                                      DSPATR(HI)
0030.00      A            ZIP       R     Y I 4 19DSPATR(CS)
0031.00      A                                      DSPATR(UL)
0032.00      A                                      CHECK(RZ)
0033.00      A 61                                  ERRMSG('ZIP NOT F')
0034.00      A          R SUBFILE                   SFL
0035.00      A            NAME      R           9 4
0036.00      A            ARBAL     R           9 27EDTCDE(J)
0037.00      A          R SUBCTL                    SFLCTL(SUBFILE)
0038.00      A 55                                  SFLCLR
0039.00      A N55                                  SFLDSPCTL
0040.00      A N55                                  SFLDSP
0041.00      A 33                                  SFLEND(*MORE)
0042.00      A                                      SFLSIZ(9999)
0043.00      A                                      SFLPAG(5)
0044.00      A*                                     ROLLUP(95 'ROLL UP')
0045.00      A                                      OVERLAY
0046.00      A                                      CA04(04 'RESTART ZIP CDE')
0047.00      A                                  4 4'ZIP CODE'
0048.00      A            ZIP       R        O 4 14DSPATR(HI)
0049.00      A                                  7 4'CUSTOMER NAME'
0050.00      A                                      DSPATR(HI UL)
0051.00      A                                  7 27'A/R BALANCE'
0052.00      A                                      DSPATR(HI UL)
        ****************** End of data ****************************************