See if this is correct.  I generated it from CDRA.  I assumed you meant
863<->037 (US EBCDIC).

;                                                                 
; Conversion Table for 00863 (ccsid 25439) to 00037 (ccsid 00037) 
; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F                 
;                                                                 
  00 01 02 03 37 2D 2E 2F 16 05 25 0B 0C 0D 0E 0F     ; 00 ;      
  10 11 12 13 3C 3D 32 26 18 19 1C 27 07 1D 1E 1F     ; 01 ;      
  40 5A 7F 7B 5B 6C 50 7D 4D 5D 5C 4E 6B 60 4B 61     ; 02 ;      
  F0 F1 F2 F3 F4 F5 F6 F7 F8 F9 7A 5E 4C 7E 6E 6F     ; 03 ;      
  7C C1 C2 C3 C4 C5 C6 C7 C8 C9 D1 D2 D3 D4 D5 D6     ; 04 ;      
  D7 D8 D9 E2 E3 E4 E5 E6 E7 E8 E9 BA E0 BB B0 6D     ; 05 ;      
  79 81 82 83 84 85 86 87 88 89 91 92 93 94 95 96     ; 06 ;      
  97 98 99 A2 A3 A4 A5 A6 A7 A8 A9 C0 4F D0 A1 3F     ; 07 ;      
  68 DC 51 42 62 44 B6 48 52 53 54 57 56 58 64 B5     ; 08 ;      
  71 74 72 CB 73 77 DB DD 9F EB FC 4A B1 FD FB FF     ; 09 ;      
  6A BE CE DE BD 9D FA BC 76 AF 5F B8 B7 B9 8A 8B     ; 0A ;      
  2B 2C 09 21 28 65 43 45 B4 38 31 34 33 47 B2 24     ; 0B ;      
  22 17 29 06 20 2A 46 66 1A 35 08 39 36 30 3A 49     ; 0C ;      
  8C AC 55 63 67 0A 75 69 70 23 15 14 04 80 78 3B     ; 0D ;      
  EE 59 9A ED CF EF A0 8E AE FE 9B 9C 8D AD 9E AA     ; 0E ;      
  CA 8F 1B AB BF CC E1 CD 90 DF B3 DA EC EA 3E 41     ; 0F ;      
;                                                                 
; Conversion Table for 00037 (ccsid 00037) to 00863 (ccsid 25439) 
; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F                 
;                                                                 
  00 01 02 03 DC 09 C3 1C CA B2 D5 0B 0C 0D 0E 0F     ; 00 ;      
  10 11 12 13 DB DA 08 C1 18 19 C8 F2 1A 1D 1E 1F     ; 01 ;      
  C4 B3 C0 D9 BF 0A 17 1B B4 C2 C5 B0 B1 05 06 07     ; 02 ;      
  CD BA 16 BC BB C9 CC 04 B9 CB CE DF 14 15 FE 7F     ; 03 ;      
  20 FF 83 B6 85 B7 C6 BD 87 CF 9B 2E 3C 28 2B 7C     ; 04 ;      
  26 82 88 89 8A D2 8C 8B 8D E1 21 24 2A 29 3B AA     ; 05 ;      
  2D 2F 84 D3 8E B5 C7 D4 80 D7 A0 2C 25 5F 3E 3F     ; 06 ;      
  D8 90 92 94 91 D6 A8 95 DE 60 3A 23 40 27 3D 22     ; 07 ;      
  DD 61 62 63 64 65 66 67 68 69 AE AF D0 EC E7 F1     ; 08 ;      
  F8 6A 6B 6C 6D 6E 6F 70 71 72 E2 EA EB A5 EE 98     ; 09 ;      
  E6 7E 73 74 75 76 77 78 79 7A EF F3 D1 ED E8 A9     ; 0A ;      
  5E 9C BE FA B8 8F 86 AC AB AD 5B 5D A7 A4 A1 F4     ; 0B ;      
  7B 41 42 43 44 45 46 47 48 49 F0 93 F5 F7 A2 E4     ; 0C ;      
  7D 4A 4B 4C 4D 4E 4F 50 51 52 FB 96 81 97 A3 F9     ; 0D ;      
  5C F6 53 54 55 56 57 58 59 5A FD 99 FC E3 E0 E5     ; 0E ;      
  30 31 32 33 34 35 36 37 38 39 A6 9E 9A 9D E9 9F     ; 0F ;      

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to