Transparenzdruck ?

[sigiK]

leider hat das nicht geklappt !

folgende varianten hatte ich ausprobiert:

1 2'^(s30v2p305h24720T123456'
TRNSPY

1 2DFT(X'03181B4DA2F3F0A5F297F3F0F588F-
2F4F7F2F0E3F1F2F3F4F5F6')
TRNSPY

1 2DFT(X'1B4DA2F3F0A5F297F3F0F588F2F4F-
7F2F0E3F1F2F3F4F5F6')
TRNSPY

ergebnis bei allen: smileys und micky-mäuse !

auf dem PRTF habe ich RPLUNPRT(*NO) gesetzt.

der drucker ist ein lexmark T644 mit einer barcode-karte, angeschlossen via LAN und auf der as/400 konfiguriert als 3812.

PLS HELP !! WAS MACHE ICH FALSCH ??

[mk]

Auch wenn es vieleicht verpönt ist,

um diesem Thema zu entgehen habe ich ein kleines
Tool erstellt.
Das Tool CreateOspdf erstellt aus einer Spooldatei eine PDF Datei auf der iSeries.
Als RPG Programmierer kann man einfach eine Liste drucken
und in Textmarkierungen beliebige Bildinformationen( .bmp, .gif, .jpg usw) angeben.

Parallel kann man auch Textmarkierungen für Barcodes angeben.
Unterstützt werden EAN8, EAN12, UPC und EAN128

Die Bildinformationen und Barcodes können wahlfrei positioniert werden. Das erstellen läuft komplett auf der iSeries.


Bei Interesse einfach downloaden.

Gruss
Michael

[sigiK]

vielen dank, aber das ist leider nicht das, was ich suche ... ich brauche keine PDF-datei, sondern möchte direkt aus meinem rpg-programm den output erzeugen.
(sonst brauche ich ja wieder ein pc-programm, das den druck besorgt und dann könnte ich gleich eine .net lösung machen.
einfacher kontrollierbar ist der ganze ablauf, wenn ich alles aus meinem programm heraus erstellen kann.

[jajonowak]

hallo sigi,

ich weiß jetzt nicht was das:
1 2'^(s30v2p305h24720T123456'
TRNSPY
geben soll, vielleicht schreibst du mal was dabei herauskommen soll.

m.E. muß, wenn die variante 2 genommen werden.

frag mal herrn google nach crimesonsolutons da steht noch etwas über pcl

[sigiK]

hallo hans-joachim,
mir ist gerade was aufgefallen (auf's hirn schlag') ...
gehe ich recht in der annahme, das die hex-codes bereits im ascii-format sein müssen ? d.h. wenn ich die variable aus dem programm befülle, dass ich dann selbst (z.b. mit QDCXLATE) dafür sorgen muss, dass die daten konvertiert werden ?

das dürfte dann die lustigen zeichen in meinem ausdruck erklären ....

sigi

[jajonowak]

hi sigi

eigentlich nicht

a 1 1dft(X´1B.......tralala') TRNSPY
a Field 60 +1Spacea(1)
+1Dft(X'1B45') TRNSPY /* PCLENDE /*

[jajonowak]

hi sigi

eigentlich nicht

a 1 1dft(X´1B.......tralala') TRNSPY
a Field 60 +1Spacea(1)
+1Dft(X'1B45') TRNSPY /* PCLENDE /*

[sigiK]

hi hans-joachim,
X'1B45' steht doch für Esc E
45 ist aber der ascii-hexwert.

ich hatte in meinem beispielen die ebcdic-hexwerte verwendet

und wenn ich mir jetzt nicht mühe machen will, für die ganzen pcl-commandos die richtigen hexwerte herauszuknobeln hatte ich eben gedacht, ich nehme einen string, schreibe z.b.
"Esc (s30v2p305h24720T" hinein und lasse diesen mit QDCXLATE in ascii umsetzen.

[jajonowak]

hi hans-joachim,
X'1B45' steht doch für Esc E
45 ist aber der ascii-hexwert.

ich hatte in meinem beispielen die ebcdic-hexwerte verwendet

und wenn ich mir jetzt nicht mühe machen will, für die ganzen pcl-commandos die richtigen hexwerte herauszuknobeln hatte ich eben gedacht, ich nehme einen string, schreibe z.b.
"Esc (s30v2p305h24720T" hinein und lasse diesen mit QDCXLATE in ascii umsetzen.

also ich habe das, was ich brauchte (bis auf barcode) alles 1b45 usw.
benutzt.
doch bevor ich mein abitur in pcl gemacht habe, bin ich dann doch lieber auf dds zurückgegangen (bei mir ging es ja )

[sigiK]

irgendetwas mache ich wohl noch falsch - kann mir jemand helfen ?

hier die DDS meines PRTF (leider etwas gestaucht):
A 1 2'Barcode-Test EAN128 - Anfang'
A
A* '~ ( s 7 2 V 4 P 1 0 5 H 2 4 7 2 0 T'
A 10 2DFT(X'1B287337325634503130354832343-
A 7323054')
A TRNSPY
A
A* MUSTERBARCODE
A +1'0003700147000000236910678425193219'
A
A 35 2'Barcode-Test EAN128 - Ende'

der drucker ist als 3812 mit *LAN und TRANSFORM(*YES) konfiguriert - muss evtl. hier etwas geändert werden ?

danke im voraus
sigi

[Fuerchau]

Wichtig ist tatsächlich, dass das gesamte Feld mit TRNSPY in ASCII ausgegeben werden muss !
Zusätzlich ist auch RPLUNPRT(*NO) erforderlich, da sonst x'1B' in x'20' ersetzt wird.

Eine Trennung in 2 Felder, 1 für x'1B' und der Rest funktioniert nicht, da jedes DDS-Feld einzeln von Hosttransform in eigene ESC's gepackt wird.

Ich wüsste nicht, dass DFT bei PRTF's funktioniert.
Normalerweise gibts halt nur Textkonstanten oder Felder. DFT gilt nur bei DSPF's.

Für die Umwandlung EBCDIC-ASCII kannst du QDCXLATE mit der Tabelle QUSRSYS/QASCII verwenden da nur nicht variante Zeichen (A-Z und 0-9) als Barcode gedruckt werden müssen.

[sigiK]

nun ist land in sicht (fehler war vor dem bildschirm ):

es funktioniert wie von jajonowak beschrieben:
- ESC-sequenz in ASCII-Hex mit TRNSPY ausgeben
- nutzdaten als normales feld
- DFT geht übrigens auch bei PRTF