Chinaunix

标题: 关于DATAARA的使用方法 [打印本页]

作者: zhaoxufeng 时间: 2017-04-07 01:04
标题: 关于DATAARA的使用方法
  近期在使用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 时间: 2017-04-08 07:50
把cpf1063的说明贴一下呗

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)