-
ASCII-Zeichen an Drucker schicken!
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
-
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.
Programmierung
-
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
Similar Threads
-
By kug in forum NEWSboard Drucker
Antworten: 4
Letzter Beitrag: 23-09-06, 07:40
-
By zannaleer in forum NEWSboard Drucker
Antworten: 6
Letzter Beitrag: 13-09-06, 10:35
-
By frono in forum NEWSboard Drucker
Antworten: 1
Letzter Beitrag: 07-03-06, 19:45
-
By Bill Gates in forum NEWSboard Server & Hardware Markt
Antworten: 0
Letzter Beitrag: 14-02-06, 21:59
-
By hs in forum NEWSboard Drucker
Antworten: 11
Letzter Beitrag: 10-11-05, 13:23
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks