rpg程序代码格式问题

jin_ok

本人菜鸟，刚开始接触rpg，代码如下，请赐教

Columns . . . :    1  71           Browse                    JINLEFENG/MYSRCPF
SEU==>                                                                   MYRPG
FMT C  .....CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLoEqComments++++
       *************** Beginning of data *************************************
001.00      C                   'HELLO'       DSPLY                                       
002.00      C                                     MOVE '0123'    STRID  10                     
003.00      C                    STRID        DSPLY                                       
004.00      C                                     RETRN                                       
       ****************** End of data ****************************************


我的第一个操作数，只能写HELLO，我是想写Hello world来着，可是我在后面一写上world，就报The Operation entry is invalid.
第二行代码的赋值时的操作数也有同样的问题，如果一个变量的值很长怎么办？

绿茶czm

字符串太长你就试试EVAL 吧
EVAL STRID='0123456789' +
                    'ABCDEFG'+
                    ……
楼主说的是这个意思吗？我没理解错吧  

wuxing164

楼主是三代的程序，可以用table 或者用cat
SEU==>                                                                   MYRPG
FMT C  .....CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLoEqComments++++
       *************** Beginning of data *************************************
001.00      C                                     MOVE'Hello '          PARM1   6                           
002.00      C                                     MOVE'WORLD'       PARM2   5            
003.00      C                    PARM1      CAT    PARM2         RESULT  15
004.00      C                    RESULT     DSPLY
004.00      C                                     RETRN                                       
       ****************** End of data ****************************************

jin_ok

谢谢两位的帮助，我在操作数的地方用EVAL，报The Operation entry is invalid，我试了一下用CAT连接一下可以

junlee1986

用CAT啊，定义两个变量把HELLO和WORD赋值进去，再连接起来，赋值在一个新的变量，再DSPLY就可以了。

jin_ok

cat 可以谢谢了

xjromance

EVAL

wuxing164

回复 4# jin_ok
楼主你那是三代的代码 不能用EVAL这个操作数。
在RPGLE就可以用EVAL这个属性哟。
现在用三代的RPG也不多，基本是工场吧。

   

yayuyo

还可以使用常量或数组

常量的定义：
I              'THIS IS A TEST FOR  -                    
I              ' GET A LONG VALUE'   C         ##INF1   
I              'HELLO WORLD '          C         ##INF2   

fairyboy

EVAL 只能用在RPGLE的格式中，楼主是RPG的话，用不了的。

在RPG里面用CAT链接或者定义字符串输出。