关于DATAARA的使用方法

zhaoxufeng

  近期在使用dataara来进行后台pj间的 通讯。程序是写在rpg里面 但是两个pj运行一段时间后发现在out的时候会报错，报错的信息是 cannot allocate data ara xxx in library  xxx function check cpf1063
代码如下：
A PJ  仅仅读取声明的dataara
   IN          DATAARA1
   MOVEL   DATAARA1       WDATAARA


B  PJ  会读取同时修改dataara
   *lock     in   dataara1
               movel   dataara1   WDATAARA
               SELECT
               WHEN       WDATAARA  =  'A'
               EVAL        WDATAARA  = 'B'
               MOVEL      WDATAARA     DATAARA1
               OUT          DATAARA1               
               WHEN       WDATAARA  = 'B'
               EVAL        WDATAARA  = ' A'
               MOVEL     WDATAARA    DATAARA1
               OUT         DATAARA1
               ENDSL
B PJ 后台跑一段时间就会爆mes  但是具体原因搞不清楚
对于数据域有没有大牛 给解释一下

pacman2000

把cpf1063的说明贴一下呗