真心求助！！！！

go2show

是这样子的，因公司业务需要，将对系统做一个大变动，
需要将所有程式中的    左列字符  变更为    右列字符    有什么好方法么？？？



113477        =      140351
113478        =      140352
113499    =      140399
114301        =      141101
114302        =      141102
114303        =      141103
114304        =      141105
114305        =      141104
114401        =      11230101
114402        =      11230102
114403        =      11230103
114404        =      11230104
114405        =      11230105
114406        =      11230106
114407        =      11230107

wdz315

你总得总结下变的规律吧，这是在考智商么？

passthru

建议，用一个copybook定义对应数字的字符。这样程序的变化，而只要跟进相应的copybook。最好再加一层定义，如：
113477        =      140351
113478        =      140352
在rpgle的copybook中，
/free
    113477        =      140351；
    .....
/end-free

而符号140351在引用的copybook中是这样定义的：
d 140351        c      ‘11230101’

这样前面符号113477在程序代码实际就等于字符‘11230101’。

仅供参考！

go2show

回复 3# passthru


    COPYBOOK，是可行，问题是，有没有能在RPG3实现的呢？规章制度要求，全部都是RPG3，大家别喷，确实很老旧。。。

passthru

把rpg程序后缀改为rpgle，在代码内加上copybook。