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

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

feigme

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

阅读量1.3k

点赞数

分类专栏： as/400 文章标签： search date file up

本文链接：https://blog.csdn.net/feigme/article/details/1567145

版权

as/400 专栏收录该内容

18 篇文章 1 订阅

订阅专栏

这个是显示文件

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 ****************************************