Sonderzeichen (HEX Werte) in RPG-Programm für Barcode

[Bau]

Hallo Leute,

Ich sollte für eine 2D-Barcode/Etikette einige Sonderzeichen in einem RPG-Programm
auf einem i5, Version V5R3 erstellen.

Dabei Handelt es sich um die folgenden Sonderzeichen
gemäss ASCII/ISO 646

Art Dezimal HEX
RS 30 1E
GS 29 1D
EOT 04 04

Diese Sonderzeichen werden in einem Datenstring an eine Output Software mit ASCII-Zeichensatz übergeben und als Barcode dargestellt.

Wie kriege ich diese Sonderzeichen in das RPG-Programm damit der Datenstring richtig an das Output Programm übermittelt wird.

[Fuerchau]

Du kannst in RPG/LE Konstanten auch in der Form X'....' definieren.
Das Problem ist ggf. wohin du die Daten ausgibst.
In einer PRTF definierst du das Feld dann als TRNSPY, bei einer Ausgabe in eine PF allerdings der EBCDIC-Entsprechung.

Per DSPTBL Q273337850 kannst du dir den EBCDIC-Code ermitteln.

[Bau]

Hallo Fuerchau,

Das ging ja zackig mit der Antwort.

Das mit der Form X'....' habe ich schon in Eurem Forum nachgelesen.

Leider funktioniert bei mir der Befehl DSPTBL nicht
(liegt das an der uralt Version V5R3 ?)

Kann ich den entsprechenden EBCDIC-Code
sonstwie ermitteln ?

[Pikachu]

Nimm WRKTBL Q273337850 und dann Auswahl 5=Anzeigen.

[GeorgG]

hallo

du kannst auch folgenden Befehl verwenden

CRTTBL TBL(QTEMP/TEST) SRCFILE(*PROMPT) TBLTYPE(*SRTSEQ)