在AS400中怎么得到汉字的内码?怎么区分汉字前后的前导符后导符?

kempzhang

前導符
C                     BITOF'01237'   ITOE    1
C                     BITON'456'     ITOE     
後導符
C                     BITOF'0123'    ITOF    1
C                     BITON'4567'    ITOF

Eagle_wolf

上面的其实就是eval itoe=x'0e'  itof=x'0f'

昨天说的16进制的方法有点麻烦 用rpg写很费尽啊
字符转换成16进制还可以 反过来就有点烦了
用rexx吧 很容易

1. parse arg  a                     
   
2. options  exmode                  
   
3. a=strip(a)                        
   
4. b=1                              
   
5. do  forever                       
   
6. if  b >; length(a) then leave      
   
7. c = substr(a,b,1)                 
   
8. b = b + 1                        
   
9. say c                             
   
10. end                              

复制代码

roden

前導符
C                     MOVE X'0E'    ITOE    1
後導符
C                     MOVE X'0F'    ITOF    1

Eagle_wolf

请教楼上,把16进制转换成字符有什么方法吗 例如一个字符串
'F1F2F3'  应该等于'123'  怎么转换呢

roden

我没有试过，不过用对照表应该是可以实现的。除双字节的字符
是有限的，把他们放到数组中，对应转换。
F1   1
F2   2
F3   3
.......

Eagle_wolf

这样比较麻烦 而且还有双字节的问题 不知道eb码的双字节有法判断吗
如ascii码里面 第一个字节大于128之类的

Eagle_wolf

TO fairyboy
昨天说写个看看,今天下午试着写了个,不过还是没利用16进制,转换比较烦
昨天没加考虑就说出去了 惭愧

1.      H*  Programe No. :
   
2.      H*          Text :
   
3.      H*      Function : recombine  the string
   
4.      H*
   
5.      H*     Programer :
   
6.      H*
   
7.      H*  Date Created :
   
8.      H*
   
9.      H**********************************************************************
   
10.      H DATFMT(*ISO)  COPYRIGHT('(C) Copyright lardbucket.Dalian 2005')
    
11.      H DATEDIT(*YMD)
    
12.      H Nomain
    
13.      H*********************************************************************
    
14.      Ffile      o    e             disk      usropn
    
15.      D Recombine       PR            10I 0   opdesc
    
16.      D   source1                   1024      Const OPTIONS(*VARSIZE)
    
17.      D   Lengths                     10I 0   Const Options(*nopass)
    
18.      D
    
19.      D Delstr          PR
    
20.      D   source2                   1024      OPTIONS(*VARSIZE)
    
21.      D   len                         10I 0
    
22.      D   dellen                      10I 0
    
23.      D
    
24.      D getOpD          PR                  ExtProc('CEEDOD') OPDESC
    
25.      D ParmNum                       10I 0 CONST
    
26.      D                               10I 0
    
27.      D                               10I 0
    
28.      D                               10I 0
    
29.      D                               10I 0
    
30.      D                               10I 0
    
31.      D                               12A   OPTIONS(*OMIT)
    
32.      P Recombine       B                     export
    
33.      D Recombine       PI            10I 0   opdesc
    
34.      D   source1                   1024      Const OPTIONS(*VARSIZE)
    
35.      D   Lengths                     10I 0   Const Options(*nopass)
    
36. 
    
37.       * Parameters passed to CEEDOD
    
38.      D DescType        S             10I 0
    
39.      D DataType        S             10I 0
    
40.      D DescInfo1       S             10I 0
    
41.      D DescInfo2       S             10I 0
    
42.      D InLen           S             10I 0
    
43.      D
    
44.      D
    
45.      D HexLen          S             10I 0
    
46.      D Couple          C                   Const('0e and 0f are not in pairs')
    
47.      DSingle           S              1
    
48.      DDsChinese        Ds
    
49.      Dd0                              1    Inz(X'0e')
    
50.      Dd1                              2
    
51.      Dd2                              1    Inz(x'0f')
    
52.      Dpos0e            s             10I 0
    
53.      Dpos0f            s             10I 0
    
54.      Dtmpv             s             10I 0
    
55.      DNoDbcs           s              1    Inz('0')
    
56.      Dreal             s             10I 0
    
57.      DLength           s             10I 0
    
58.      Dsource           s           2048A
    
59.      D
    
60.      D*--------------------------------------------------------------
    
61.       ***the length must be smaller than 2048
    
62.       
    
63.      C
    
64.      C                   Movel     source1       source
    
65.      C                   If        %Parms = 1
    
66.      C                   CALLP     GetOpd(1         : DescType : DataType :
    
67.      C                                    DescInfo1 : DescInfo2: Inlen    :
    
68.      C                                    *OMIT)
    
69.      C                   Z-add     InLen         HexLen
    
70.      C                   Else
    
71.      C                   Z-Add     Lengths       HexLen
    
72.      C                   EndIf
    
73.      C
    
74.      C                   if        not%open(file)
    
75.      C                   open      file
    
76.      C                   endif
    
77.      C
    
78.      C                   Dou       HexLen = 0
    
79.      C                   eval      pos0e = 0
    
80.      C     x'0e'         Scan      source        pos0e                    10
    
81.      C                   If        Not%found
    
82.      C                   Eval      Pos0e = HexLen
    
83.      C                   Eval      HexLen = 0
    
84.      C                   Eval      NoDbcs = '1'
    
85.      C                   EndIf
    
86.      C                   If        pos0e >; 1
    
87.      c                   If        NoDbcs = '0'
    
88.      C                   Eval      tmpv  = pos0e - 1
    
89.      C                   endIf
    
90.      C                   Do        tmpv          real
    
91.      C                   Eval      single = %subst(source:real:1)
    
92.      C                   Eval      record = single
    
93.      C                   Write     filer
    
94.      C                   Enddo
    
95.      C                   EndIf
    
96.      C                   If        NoDbcs = '0'
    
97.      C     x'0f'         Scan      source        pos0f                    10
    
98.      C                   if        not%found
    
99.      C     Couple        dsply
    
100.      C                   return    0
     
101.      C                   endIf
     
102.      C                   Eval      length = pos0f - pos0e -1
     
103.      C                   Eval      length = length / 2
     
104.      C                   Do        length
     
105.      C                   Eval      d1 = %subst(source:pos0e+1:2)
     
106.      C                   Eval      record = DsChinese
     
107.      C                   Eval      pos0e = pos0e + 2
     
108.      C                   Write     filer
     
109.      C                   Enddo
     
110.      C                   Callp     delstr(source:HexLen:pos0f)
     
111.      C                   Eval      HexLen = HexLen - pos0f
     
112.      C                   EndIf
     
113.      C                   EndDo
     
114.      C                   if        %open(file)
     
115.      c                   close     file
     
116.      C                   endIf
     
117.      C                   Return    1
     
118.      P                 E
     
119.       *delstr
     
120.       *
     
121.      Pdelstr           B
     
122.      DDelstr           PI
     
123.      D str                         1024    options(*varsize)
     
124.      D len                           10I 0
     
125.      D delLen                        10I 0
     
126.      C                   Eval      str = %subst(str:dellen+1:len-dellen)
     
127.      C                   return
     
128.      P                 E
     
129. 
     

复制代码

file     

r     filer
      record     4o

pl421

原帖由 "Eagle_wolf" 发表：

file     

r     filer
      record     4o

CALLP看得头晕.

wildfish

据说可以用unicode，这样就没有前/后导符，不过只有sap有用，还有对机器要求版本比较高，最好i5.不过不知道rpg怎么处理就是了。

span1024

我试了一下,如果把字符字段定义为UCS-2(unicode)字符集的话,在这个字段里就没有前导符和结束符了,但是输入英文字母就有问题了.

定义的物理表如下:
A* CUSTMONER INFORMATION TABLE
A     R   RCUST
A          CUSTID       12G     CCSID(1348

因为最近考虑在400上实现直接生成PDF文件的一个库,其中涉及到转码的问题,单字节转码很简单,多字节比较麻烦,虽然也有一个办法,但是自我感觉不太好