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

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

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