IBM i上利用RPGLE编写示例程序演示Subfile操作

该示例代码使用RPGLE编写，用于展示如何在IBM i操作系统中使用Subfile进行数据交互。实现方式是定义一个Subfile记录格式，然后利用RPGLE语言通过对Subfile记录的添加、删除、修改等操作，向用户展示可滚动、可编辑和可排序的列表数据。代码注释和打印使用中文，方便程序员理解。

D SubfileRcd     S            564
D SflRcdLen      S             10I 0
D SflPageNo      S             10I 0
D SubfileDatas   DS                  LikeDS(SubfileRcd)
D                                   Based(PSubfile)

C                   EVAL      PAGES = TOTAL/SFLPAGESIZE + 1
C                   EVAL      SflPageNo = *Zero
C                   SETON                                        LR

*
C     *INZSR        BEGSR
C                   EXFMT     SFLCTL
C                   SETLL     SFILE
C                   READ      SFILE
C                   DOW       NOT %EOF(SFILE)
C                   IF        *INLR = *ON
C                   LEAVE
C                   ENDIF
C
C                   EVAL      SubfileDatas = *BLANKS
C                   EVAL      PSubfile = PSubfile + SflRcdLen
C                   ADD       1                TotalRows
C                   IF        TotalRows > SFLSIZE
C                   EVAL      TotalRows = SFLSIZE
C                   EVAL      SflPageNo = SflPageNo + 1
C                   ENDIF
C
C                   WRITE     SFL01
C                   READ      SFILE
C                   ENDDO
C                   SETON                                        LR

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com