Konvertierung

[Bratmaxxe]

Moin zusammen,

ich stehe wie ein Ochs vorm Berg und komme nicht weiter...

Folgendes Anliegen:

In einem 1200 großen Feld steht ein Hexstring - den ich mittlerweile konvertieren kann:

 
       ....5...10...15...20...25...30...35...40...45...50...55...60 
  1   'ó© K ~Í© Û'
 61   'ÁÃ:uÅÁËuÑËȧ íáâ ÑËÈá íáâ { '
121   'ÑËÈ ÑËÈ íáâ ÑËȧ íáâ § ÑËÈ '
181   'ÑËÈ íáâ ÑËÈ ÑËÈ ÑËÈ ÑËÈ '
241   'ÑËÈ íáâ ÑËÈ ÑËÈ ÑËÈ ÑËÈ '
301   ' ÑËÈ íáâ ÑËÈ ÑËÈ ÑËÈ '
361   'ÑËÈ< ÑËÈË íáâ ÑËÈ íáâ ÑËÈ  '
421   'ÑËÈ ÑËÈ ÑËÈ ÑËÈ ÑËÈË Ë ÑËÈ '
481   ' ÑËÈ íáâ ÑËÈ íáâ ÑËÈ íáâ '
541   ' ÑËÈ   ÑËÈ ÑËÈï íáâ ï ÑËÈ íáâ '
601   ' ÑËÈ ÑËÈ ÑËÈ» íáâ i ÑËÈ- íáâ '

nach-->

 
       ....5...10...15...20...25...30...35...40...45...50...55...60 
  1   '31313020CE0431343120B4003131302028053132312010FF31333120D200'
 61   '313332201E0031343120590131313020750331343120B40031313020FB04'
121   '313431200D0265667A20A40167657320A401697374207C00554542202C00'
181   '313231203300697374204500554542200200313231204300313332200200'
241   '697374202B00313231202B00697374200900554542200900313332200900'
301   '697374207C00554542201800313231207C00697374200300313231200300'
361   '697374202300554542201200313231201800313332200B00697374200800'
421   '697374200500313231200500697374202700697374200900313231200900'
481   '697374202E00554542202E00313332202E00697374201500313231201500'
541   '697374200800313231200800697374200900313231200900697374201000'
601   '313231201000697374202000554542201600313231200A00313332201600'

Konvertiert wurde mit der folgenden Funktion:

 
      * (Hexadezimal to char)
     D cvtHexToChar    pr                  extproc('cvthc')
     D  Char                           *   value
     D  Hex                            *   value
     D  CharSize                     10i 0 value

Die ersten beiden Stellen aus dem konvertierten String (31) repräsentieren nun ein Character

Character	EBCDIC 37		ASCII 819	QASCII	QTCPASC	ASCII 367	UTF-8		UTF-16		UCS-2
	Hex	Dec					Hex	Dec	Hex	Dec

1

x'F1'

241

x'31'

x'31'

x'31'

x'31'

x'31'

000049

x'0031'

00049

x'0031'

Tabelle einzusehen unter:
EBCDIC to ASCII Conversion Table

x'31' ist demnach als Character eine 1


Nur wie komme ich jetzt auf die 1 ???

Über Hilfe wäre ich dankbar,

Gruß und schönes Wochenende
Bratmaxxe

[Fuerchau]

Ich nehme mal an, dass dein 1200-byte-Feld bereits ASCII-Daten enthält.

Du musst also nur QDCXLATE aufrufen um von ASCII nach EBCDIC umzuwandeln.

Besser gehts jedoch mit folgendem API:

Convert a Graphic Character String (CDRCVRT, QTQCVRT) API

[Bratmaxxe]

Danke Dir Fuerchau,

das API CDRCVRT funktioniert bestens...

Gruß
Bratmaxxe