Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1028894
  • 博文数量: 125
  • 博客积分: 10490
  • 博客等级: 上将
  • 技术积分: 2386
  • 用 户 组: 普通用户
  • 注册时间: 2006-05-03 18:26
文章分类

全部博文(125)

文章存档

2011年(1)

2010年(9)

2009年(17)

2008年(98)

分类:

2008-05-21 15:32:19

0003.00 D myydtaa         S             18                                      
0003.01  *                                                                      
0004.00 D Receipts       UDS                                                    
0005.00 D Nnnn                          20                                      
0005.01 D IDdd                           7                                      
0005.02 D Amountdd                      13  2                                   
0006.02  *                                                                      
0006.03 D DtaFld          dS          2000                                      
0006.04 d  dd                   10      19                                      
0013.00 ** Local Data area associated with infor 1                              
0013.01 C     *DTAARA       DEFINE    *lda          myydtaa                      
0013.02 **                                                                      
0013.03 ** Data area Receipts associated with dtata structure Receipts          
0013.04 C     *DTAARA       DEFINE                  Receipts                    
0013.05 **                                                                      
0013.06 ** Data area DTAARA1 associated with field DtaFld                       
0013.07 C     *DTAARA       DEFINE    DtaAra1       DtaFld                      
0013.08 **                                                                      
0013.09 C                   IN        myydtaa                                    
0013.10 **                                                                      
0013.11 C     *LOCK         IN        Receipts                                  
0013.12 **                                                                      
0013.13 C     *LOCK         IN        DtaFld                                    
0013.14 **                                                                       
0013.15 C                   OUT       myydtaa                                    
0013.16 **                                                                      
0013.17 C     *LOCK         OUT       Receipts                                  
0013.18 **                                                                      
0013.20 C                   OUT       DtaFld                                    
0013.21 **                                                                      
0013.22 C                   UNLOCK    Receipts                                  
0013.23 **                                                                      
0013.24 C                   EVAL      *INLR=*ON                                 
0015.00 C                   RETURN                                              
0016.00 **                                                                      
或者使用:
0001.00 DMYYDATA         UDS           100    DTAARA(MYYDATA)  
0002.00 D STRDTA                  1     49A                    
0008.00 C     *LOCK         IN        HXKDATA                                
                 .................                                                 
0012.00 C                   OUT       MYYDATA                               
                 .................
阅读(1010) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~