中文乱码程序讨论! (大家快来顶呀！)

yangspring

大家好：
   我这里有一段公司前辈的代码，用于处理中文乱码。可是，我太愚笨，每次只知道拿来用，看不懂什么意思。现拿来讨论，希望各位能详细注解它：(假设需要检查的中文字段为FIELD  30 )
-----------------------------------------------------------------

1. 
   
2. C               @CHKNM    BEGSR                                
   
3. C*CHECK CHAR FIELD(30  O)                                             
   
4. C                     BITOF'0123'    XOF     1                  
   
5. C                     BITON'4567'    XOF                        
   
6. C                     BITOF'01237   XOE     1                  
   
7. C                     BITON'456'     XOE                        
   
8. C                     MOVELXOF     XOFF    2                  
   
9. C*                                                               
   
10. C                     Z-ADD0         INT1    20                  
    
11. C                     Z-ADD0         INT2    20                  
    
12. C                     Z-ADD0         ZOE     20                  
    
13. C                     Z-ADD0         ZOF     20                  
    
14. C                     Z-ADD1         I       20                  
    
15. C                     Z-ADD1         J       20                  
    
16. C                     Z-ADD0         JJ      30                 
    
17. C*
    
18. C         INT2     DOUGE30                           
    
19. C        *IN90    OREQ '0'                          
    
20. C          XOE     SCAN FIELD:I   INT1           98  
    
21. C          INT1    ADD  1         I                  
    
22. C    98             ADD  1         ZOE               
    
23. C*                                                      
    
24. C          XOF     SCAN FIELD:J   INT2           90  
    
25. C          INT2    ADD  1         J                  
    
26. C    90             ADD  1         ZOF               
    
27. C                     ENDDO                             
    
28. C*                                                      
    
29. C       ZOE       IFGT ZOF                          
    
30. C         30        SUB  INT1    JJ                 
    
31. C          JJ        DIV  2          JJ         
    
32. C                     MVR           JJ         
    
33. C          JJ        IFEQ 0                     
    
34. C                     MOVE XOFF      FIELD      
    
35. C                     ELSE                       
    
36. C                     MOVE XOF        FIELD      
    
37. C                     ENDIF                     
    
38. C                     ENDIF                     
    
39. C*                                               
    
40. C                     ENDSR                     
    

复制代码

-----------------------------------------------------------------
我的问题是：

1. 
   
2. 1.         BITOF'0123'    XOF     1                  
   
3.             BITON'4567'    XOF                        
   
4.             BITOF'01237'   XOE     1                  
   
5.             BITON'456'     XOE
   

复制代码

为什么XOF , XOE 不一样？AS400里面表示中文不是用16进制吗？这里应该是oe ,of 呀？这段是什么意思？

2.这段又是什么意思呀？

1. 
   
2.      ZOE       IFGT ZOF                          
   
3.           30        SUB  INT1      JJ                 
   
4.            JJ         DIV  2          JJ         
   
5.                       MVR           JJ         
   
6.           JJ         IFEQ 0                     
   
7.                       MOVE XOFF      FIELD      
   
8.                       ELSE                       
   
9.                       MOVE XOF         FIELD      
   
10.                       ENDIF                     
    
11.                       ENDIF         
    

复制代码

3.希望大家讨论，提出更好的办法.

红像

拜托楼主在COPY代码的时候能不能在前后分别加上[ C O D E ] 和
[ / C O D E ]?
这样的代码我学习起来很难的。。。调试更没勇气咯

kimdai

能不能贴出整个的程序阿
我想OE、OF分别是双字节字串的开头和结尾的标示。

wildfish

其实用rpgle做的话，找一个中文汉字，获取第一位和最后一位，然后去你的字符串里面寻找，如果成对的出现前导符和后导符，就不会是乱码，如果不配对，你就要根据实际情况去凑成一对，那就会正常显示了。一般如果超过长度，正常做法是那最后一位被替换成后导符。

fzrxh

1.         BITOF'0123'    XOF     1                    
            BITON'4567'    XOF                          
            BITOF'01237'   XOE     1                    
            BITON'456'     XOE
XOF就相当于16进制的 X'0F' 8位00001111
下一类同

yangspring

'00001110'  ----- 代表 'oe' ;
'00001111'  ----- 代表 'of'  .
是这样的吗？分别代表'oe' , 'of' 两个前导符和后导符？
那么as400里面存储英文字母是使用十六进制的吗？

fzrxh

是的，分别代表'oe' , 'of' 两个前导符和后导符

那么as400里面存储英文字母是使用十六进制的吗？
存储应该是ebcdic码吧，不过可以看到任何字符的十六进制代码
sql利用hex()，还有其它的方法

yangspring

我在终端机上debug过，‘00001110’－－‘oe' ;  '00001111'-----'of'

1. 
   
2. C         INT2      DOUGE30                           
   
3. C        *IN90     OREQ '0'                          
   
4. C         XOE       SCAN FIELD:I   INT1           98  
   
5. C          INT1      ADD  1         I                  
   
6. C   98                ADD  1         ZOE               
   
7. C*                                                      
   
8. C         XOF       SCAN FIELD:J   INT2           90  
   
9. C          INT2      ADD  1         J                  
   
10. C   90                ADD  1         ZOF               
    
11. C                       ENDDO                  
    

复制代码

这段是在要check的字段中分别查找 'oe','of', INT1,INT2纪录位置，ZOE,
ZOF纪录找到的'oe','of'个数。但是，下面这段为什么要这样处理呢？

1. 
   
2. C         ZOE       IFGT ZOF                          
   
3. C          30        SUB  INT1      JJ                 
   
4. C            JJ        DIV  2          JJ         
   
5. C                       MVR           JJ         
   
6. C            JJ        IFEQ 0                     
   
7. C                       MOVE XOFF      FIELD      
   
8. C                       ELSE                       
   
9. C                       MOVE XOF         FIELD      
   
10. C                       ENDIF                     
    
11. C                       ENDIF                     
    

复制代码

还请大家指教。另外，我在PC机器仿真界面上按Ctrl + F1看不到'oe','of'.
请问PC上如何才能看到中文的前导后导符呢？

xuguopeng

你用的是client access的5250么？
如果是的话，可以在编辑菜单里选优先权----外观-----显示设置----DBCS显示---开启SO-SI显示

fzrxh

如果是PCOM话，在PC机器仿真界面上按Ctrl + F1看不到'oe','of'.