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

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

feigme

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

阅读量1.2k

点赞数

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

本文链接：https://blog.youkuaiyun.com/feigme/article/details/1567144

版权

as/400 专栏收录该内容

18 篇文章

订阅专栏

本文详细介绍了两个不同的文件结构：物理文件（CUSMSTP）和逻辑文件（CUSZIPL）。物理文件包括客户编号、名称等字段，而逻辑文件则是基于物理文件，并额外定义了查询条件如邮政编码等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这个是物理文件和逻辑文件

SEU==>                                                                 CUSMSTP
FMT A* .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
        *************** Beginning of data *************************************
0001.00       *--------CUSTOMER MASTER FILE----------*
0002.00      A          R CUSREC
0003.00      A            CUST           5          TEXT('CUSTOMER NUMBER')
0004.00      A            NAME          20          TEXT('CUSTOMER NAME')
0005.00      A            ADDR          20          TEXT('CUSTOMER ADDRESS')
0006.00      A            CITY          20          TEXT('CUSTOMER CITY')
0007.00      A            STATE          2          TEXT('CUSTOMER STATE')
0008.00      A            ZIP            5 0       TEXT('CUSTOMER ZIP CODE')
0009.00      A            SRHCOD         3          TEXT('CUSTOMER NAME SEARCH
0010.00      A            CUSTYP         1          TEXT('CUSTOMER TYPE')
0011.00      A            ARBAL         10 2       TEXT('ACCOUNTS RECEIVABLE')
        ****************** End of data ****************************************

SEU==>                                                                 CUSZIPL
FMT LF .....A..........T.Name++++++.Len++TDpB......Functions++++++++++++++++++
        *************** Beginning of data *************************************
0001.00      A          R CUSREC
0002.00      A                                      PFILE(CUSMSTP)
0003.00      A            ZIP       R
0004.00      A            NAME      R
0005.00      A            ARBAL     R
0006.00      A          K ZIP
        ****************** End of data ****************************************