`
feigme
  • 浏览: 153543 次
  • 性别: Icon_minigender_1
  • 来自: 球面世界
社区版块
存档分类
最新评论

练习时做的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 ****************************************



 

分享到:
评论

相关推荐

    as400 Subfiles

    介绍rpg subfile的文档。 从简单的subfile入手,逐步介绍subfile的编写等等。

    操作系统简单二级文件系统

    在任一OS下,建立一个大文件,把它假象成硬盘,在其中实现一个简单的模拟文件系统。 编写一管理程序对此空间进行管理,要求: 1. 实现盘块管理 2. 实现文件的读写操作 3. 每组最多2人,小组内要有明确分工,课程...

    DSPF动态刷新屏幕,结合DTAQ

    DSPF动态刷新屏幕,结合DTAQ,使用DSPF的SUBFILE实现动态屏幕显示

    java 文件处理代码

    System.out.println("最早的一个文件的路径-->"+tm.get(tm.firstKey()).getPath()+tm.firstKey()); System.out.println("最近的一个文件的路径-->"+tm.get(tm.lastKey()).getPath()+tm.lastKey()); Set<Long>...

    rpg语言学习,适合初学者的,来自论坛

    1,如何建立库、文件和成员.doc 2,如何编写RPG程序(1).doc 3,如何操作数据区.doc 4,对物理文件或者逻辑文件进行读写.doc 5,如何对文件进行更新和删除.doc 6,RPG程序结合物理文件或逻辑文件、以及显示文件进行操作....

    php计算一个文件大小的方法

    本文实例讲述了php计算一个文件大小的方法。分享给大家供大家参考。具体如下: <?php function dirSize($directoty){ $dir_size=0; if($dir_handle=@opendir($directoty)) { while($filename=readdir($dir_...

    E00 数据格式说明

    # Graeme Hiebert May 01, 1997 Added code to handle TXT subfile. # Graeme Hiebert Jun 03, 1997 Added multiple label cover # # attributes to POLY_CENTROID_2 # and POLY_CENTROID_2_DOUBLE. # Graeme ...

    ijkplayer 的动态库v7a 和v8a,支持海康摄像头RTSP h264协议,源码来自最新版本ijkplayer k0.8.0

    export COMMON_FF_CFG_FLAGS="$COMMON_FF_CFG_FLAGS --disable-protocol=subfile" export COMMON_FF_CFG_FLAGS="$COMMON_FF_CFG_FLAGS --disable-protocol=unix" export COMMON_FF_CFG_FLAGS="$COMMON_FF_CFG_FLAGS...

Global site tag (gtag.js) - Google Analytics