请问RPG编程中对指示灯可以用有意义的名字来代替吗？

forgot2000

如果用*INXX之类的名字，当程序很庞大甚至多人开发时候，经常很难避免冲突或者很难记忆，请问可以定义一些有意义的变量名来替代指示灯吗？

IBMever

在RPG IV里是可以的. 可以去看一些RPG IV的介绍的文章, 里面应有提到named indicator的用法的.

下面这篇是随手google的确...
http://search400.techtarget.com/tip/1,289483,sid3_gci958334,00.html

[ 本帖最后由 IBMever 于 2008-9-6 16:45 编辑 ]

forgot2000

请问具体做法是怎样？

IBMever

利用data structure

wangyang6614

RPG III中Indicator是一个字节得变量,你可以用下面得方法实现,效果完全一样.
C         MOVE    *OFF        INNAME       1

RPG IV中你可以定义,其实很多情况可以不用IDICATOR, 可以灵活应用最基本得变量.
DFirstCall   S               N

forgot2000

请问RPG IV中
RPG IV中你可以定义,其实很多情况可以不用IDICATOR, 可以灵活应用最基本得变量.
DFirstCall   S               N
具体栏位是什么？

roden

原帖由 forgot2000 于 2008-9-6 16:24 发表
如果用*INXX之类的名字，当程序很庞大甚至多人开发时候，经常很难避免冲突或者很难记忆，请问可以定义一些有意义的变量名来替代指示灯吗？

没有定义好编程规范.
那么多INDICATOR怎么会不够用呢

wangyang6614

原帖由 forgot2000 于 2008-9-8 13:35 发表
请问RPG IV中
RPG IV中你可以定义,其实很多情况可以不用IDICATOR, 可以灵活应用最基本得变量.
DFirstCall   S               N
具体栏位是什么？

Name            E S/U Type  From   To/Length DataType
FIRSTCALL               S                                   N

jiao38

FxxxxxxxxCF   E             WorkStn IndDs(INND)

*指示器
   D INND          Ds
     D  Ind                        100A
     D  IndDim                         1    Dim(100) OverLay(Ind)
     D  ind_F1                          1N   OverLay(Ind:1)
     D  ind_F2                          1N   OverLay(Ind:2)
     D  ind_F3                          1N   OverLay(Ind:3)
     D  ind_F4                          1N   OverLay(Ind:4)
     D  ind_XX                           1N   OverLay(Ind:XX)

passthru

请看我的blog中一文：

《BASED DS的典型应用举例》
http://blog.chinaunix.net/u1/46034/showart_1192962.html