rpg中dtaara 问题,(已解决)

cqlifu

如何在rpg中改变一个外部的dtaara；
报程序错如下：
Data area ZLTSTARA is not allocated for output (C G D F)

xuguopeng

RPG是不可以操作*DTAARA的吧 只有CLP才可以

RPG只能处理*LDA吧

CLP中用CHGDTAARA

bobofish29

原帖由 "xuguopeng" 发表：
RPG是不可以操作*DTAARA的吧 只有CLP才可以

RPG只能处理*LDA吧

CLP中用CHGDTAARA

嘻嘻.....兄弟,RPG中也可以使用*DTAARA的,要先用CRTDTAARA命令生成一个*DATARA,例如: (生成FAXARA)

1. 
   
2.                                Display Data Area         
   
3.                                                          
   
4. Data area . . . . . . . :   FAXARA                           *NAME                     
   
5.    Library . . . . . . . :     DOCLIB                           
   
6. Type  . . . . . . . . . :   *DEC                                  *数字型
   
7. Length  . . . . . . . . :   5 0                                    *长度
   
8. Text  . . . . . . . . . :   (SD) Fax Sequence (CHN)   *描述   
   
9. Value . . . . . . . . . :   81014                                *值
   

复制代码

在RPGLE中代码: (对FAXARA进行+1操作)

1. 
   
2. C     *DTAARA       DEFINE                  FAXARA            5 0         *在RPG中定义*DTAARA ,长度与上面的*DTAARA一样
   
3. C     *LOCK         IN        FAXARA                              
   
4. C                   ADD       1             FAXARA               
   
5. C                   OUT       FAXARA                              
   
6. C                   UNLOCK    FAXARA                              
   

复制代码

cqlifu

[quote]原帖由 "bobofish29"][/quote 发表：

大侠讲得对，
*LOCK         IN        FAXARA
这个语句很管用呀，如果没有factor1的*lock，就会报错误；
赞！

xuguopeng

RPG可以么 ？？？？你说的是RPGLE

IBMer说RPG COBOL都是不能操作DTAARA的 所以一般都用LOCAL DATA AREA

袋鼠卡拉

骑士说的对,数据区域可以被读出写入

bobofish29

原帖由 "xuguopeng" 发表：
RPG可以么 ？？？？你说的是RPGLE

IBMer说RPG COBOL都是不能操作DTAARA的 所以一般都用LOCAL DATA AREA

xuguopeng兄弟说得对,刚才在RPG上试了一下,好象是没有办法用DEFN定义一个*DTAARA,不知道还有没有其它的方法可以解决?关注......

xuguopeng

刚才查过书了，CBL或RPG都是不能直接操作DTAARA的

CBLLE或RPGLE都可以

CBL或RPG只能操作*LDA（local data area)

bobofish29

收到,不过我们公司现在大部分PGM都是RPGLE或是CL,RPG已经比较少用了!

xuguopeng

但是有很多业务系统都是很古老的 为了统一 只能用CBL 或RPG了

我现在都用CLLE的