dtaara+rpgle

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                               

                 .................