ASCII-Zeichen an Drucker schicken!

[mott]

Hallo!

Ich erstelle auf der AS400 eine Spooldatei, die dann an einen Etikettendrucker gesendet wird. Mein Problem dabei ist folgendes. Innerhalb der Datei muss ich jedoch ein bestimmtes Zeichen (Ascii-Zeichen 14) verwenden, was ich nicht schaffe.
Wer kann mir dabei helfen.

Vielen Dank im voraus für eure Hilfe!
Michi

[K_Tippi]

Hallo mott

Schu dir mal die DDS Schlüsselwörter trnspy cptdta an.

Hier ein Beispiel der DDS
A R ZEILEB1 SPACEB(1)
A SPACEA(1)
A BARFELD1 24 1
A TRNSPY
A CVTDTA
A BARFELD2 10 13
A TRNSPY
A CVTDTA
A BARWERT 11 13

und hier das RPG:
***************** Datenanfang ************************************************** **********
fVZBARCOD o e printer
****** 123456789012345678901234567890123456789
c eval barfeld1 = '1B1041080400000401010102'
c***************** eval barfeld2 = '1B10420C413031323334353637383967' ??67????
* Anzahl Werte
* Code 128 A
c eval barfeld2 = '1B10420C41'
c eval barwert = '0123456789g' ????????
c write seitanfang
c write zeileb1
c******** write zeileb2
c write seitenende
c eval *inlr = *on
******************Datenende *
Gruss Klaus.

[mott]

Problem gelöst!

Ganz einfach mit einem WSCST-Objekt. Dabei verwende ich ein bestimmtes Zeichen (in meinem Fall habe ich das Zeichen | (= Pipe) genommen und lasse es durch mein gewünschtes Zeichen (Ascii in Hex 0E) ersetzen. Sieht dann folgend aus:

:EBCASCTBL.
:EBCASCTBLE
EBCDICCP=273
ASCIICP=437
DATA =
/* Code X'BB' geändert von x'5D' in x'0E' */
/* konvertiert alle | nach ASCII 14 */
/* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */
'2020837B85A0A68687A45B2E3C282B21'X /* 4- */
'268288898AA18C8B8DE15D242A293B1B'X /* 5- */
'2D2F833E85A0A68F80A57C2C255F3E3F'X /* 6- */
'6F9088898AA18C8B8D603A2340273D22'X /* 7- */
'ED616263646566676869AEAF647900F1'X /* 8- */
'F86A6B6C6D6E6F707172A6A7910092F0'X /* 9- */
'E67E737475767778797AADA844590000'X /* A- */
'5E9C9DFA001514ACAB005B0E00DB27DD'X /* B- */
'7B41424344454647484900939495A2A7'X /* C- */
'7D4A4B4C4D4E4F50515200967D97A398'X /* D- */
'5CF6535455565758595AFD935C95A2DC'X /* E- */
'3031323334353637383900969A97A300'X. /* F- */
:EEBCASCTBL.

Nochmals Danke an Klaus!
Michi