RPG/400 自己写的一个小实例分享!(1)

最新推荐文章于 2025-05-02 14:11:56 发布

原创最新推荐文章于 2025-05-02 14:11:56 发布 · 1k 阅读

1 ·

CC 4.0 BY-SA版权

as/400 专栏收录该内容

18 篇文章

订阅专栏

本文探讨了物理文件和逻辑文件的概念及其实现方式。通过具体的示例代码展示了两种文件类型的定义及其相互之间的关联，有助于理解文件系统中数据组织的基本原理。

物理文件和逻辑文件

SEU==> TSDAP
FMT PF .....A..........T.Name++++++RLen++TDpB......Functions++++++++++++++++++
*************** Beginning of data *************************************

*************** Feigme H.Guo*************************************

0001.00      A          R TSDAR
0002.00      A            PNAME          8          TEXT('NAME')
0003.00      A                                      COLHDG('NAME')
0004.00      A            PAGE           2S 0       TEXT('AGE')
0005.00      A                                      COLHDG('AGE')
0006.00      A            PADDR         18          TEXT('ADDRES')
0007.00      A                                      COLHDG('ADDRES')
        ****************** End of data ****************************************

SEU==>                                                                   TSDAL
FMT LF .....A..........T.Name++++++.Len++TDpB......Functions++++++++++++++++++
        *************** Beginning of data *************************************
0001.00      A          R TSDAR                     PFILE(TSDAP)
0002.00      A          K PNAME
        ****************** End of data ****************************************