请问: 在rpgle中，分解数组时,汉字怎样处理?

chinagirlwang

例如:
D DATA                         11    DIM(2)         
D  code                           1    OVERLAY(DATA:1)
D  name                        10    OVERLAY(DATA:2)
C     *entry        Plist                                       
C                       parm                    abc              25
C*MOVE                                                         
C*ABC='1张三abcdef2李四123456'
C                  MOVEA     ABC     data
debug
EVAL DATA                  
DATA OF (1) = '1 张三 abcd'  
DATA OF (2) = 'ef2 李四 12'  
但想要的结果应该是
DATA OF (1) = '1 张三abcdef'
DATA OF (2) = '2 李四123456'


怎样处理接收的汉字？

[ 本帖最后由 chinagirlwang 于 2006-5-22 17:29 编辑 ]

fairyboy

用X'OE'       X'OF'判断汉字的前导空格和后导空格后,就比较好处理了

chinagirlwang

但是，一旦  MOVEA     ABC     data 就不对了。
是不是要在 movea之前就 对 ABC进行处理?

fxf_china

ABC里能放那么多? 22的长度，'1张三abcdef2李四123456'，不算OE,OF正好22，算上OE,OF就不止了
DEBUG时看一下，里面到底放了多少数据进去

chinagirlwang

原帖由 fxf_china 于 2006-5-22 16:31 发表
ABC里能放那么多? 22的长度，'1张三abcdef2李四123456'，不算OE,OF正好22，算上OE,OF就不止了
DEBUG时看一下，里面到底放了多少数据进去

我以修改长度，但汉字问题还是存在。

fxf_china

汉字一定会有OE,OF，再定义数组大小的时候必须要考虑到
现在每个数组元素定义为11，那肯定放不下'1 张三abcdef'
如果想放下'1 张三abcdef' ，那长度定义成13不就好了？

pl421

原帖由 fxf_china 于 2006-5-23 08:53 发表
汉字一定会有OE,OF，再定义数组大小的时候必须要考虑到
现在每个数组元素定义为11，那肯定放不下'1 张三abcdef'
如果想放下'1 张三abcdef' ，那长度定义成13不就好了？

严重同意。

chinagirlwang

原帖由 fxf_china 于 2006-5-23 08:53 发表
汉字一定会有OE,OF，再定义数组大小的时候必须要考虑到
现在每个数组元素定义为11，那肯定放不下'1 张三abcdef'
如果想放下'1 张三abcdef' ，那长度定义成13不就好了？

定义成13，如果是英文名，就不对了。
我现在的做法是：不用数组了。定义了一临时表，固定长度一对一的分解.因为我的abc的数据来源是pc上传过来的数据包，里面的汉字没有空格。

pl421

原帖由 chinagirlwang 于 2006-5-23 09:51 发表


定义成13，如果是英文名，就不对了。
我现在的做法是：不用数组了。定义了一临时表，固定长度一对一的分解.因为我的abc的数据来源是pc上传过来的数据包，里面的汉字没有空格。

D  name                        13    OVERLAY(DATA:2)   varying
不知道可以不？

[ 本帖最后由 pl421 于 2006-5-23 10:29 编辑 ]

fxf_china

PC上是11位的？
如果PC上是'我1我1我1我'的话，到400里就变成19位的了
反正在400端对应的长度要考虑到有可能的最大长度