如何使用data area？

尘

现在做一个程序，从表A拷贝数据到表B，如果拷贝时出错，可以记录是拷贝哪条数据出错，是否可以用到data area这个方法，如果可以，应该如何做？   

Lantern

我用下来DTAARA就象一个全局变量或全局常量似的，如果你这个程序并发执行，你让DTAARA保存哪条出错信息呀。。

bpcsusr

RTVDATAARA.

Lantern

下面这段代码是上次我提问时，人世间提供的，基本可以实现你的要求啦

DCLIENTDA        UDS                  Dtaara(CLIENTDA)        
D  Last#                        10S 0                        
*                                                            
C     *Lock         In        CLIENTDA                        
C                   Eval      LAST# = LAST# + 1              
C                   Out       CLIENTDA                        
*                                                            
C                   Eval      *InLR = *On                    
C                   Return