Hallo nochmal an alle

leider hat die letzte anfrage kein erfolg gehabt, daher nochmal neu.

Ich muss einen Maxicode drucken (IPDS
bzw AFPDS) Drucker sind vorhanden(infoprint 1125)

und gedruckt werde soll mit Printerfil(DDS)
und RPG.


nachdem ich schon viel versucht habe
und immer nur leere seiten oder nix grekommen ist
nochmal meine anfrage.

anbei mal einen code von mir

am liebsten währe mir als antwort
ein Codschnipsel in DDS und RPG
weil aus der DOKU IBM nichts hervorgeht

nun der code

DMAXHD1 1 1 INZ(X'BA')
DMAXHD2 2 2 INZ(X'5D')
DMAXHD3 3 3 INZ(X'6E')
D RS S 1 INZ(X'1E')
D GS S 1 INZ(X'1D')
D EOT S 1 INZ(X'37')
D MAXIZIP S 5 INZ('12345')
D MAXICTRYCD S 5 INZ('014')
D MAXISERV S 5 INZ('024')
D MAXITRK S 5 INZ('034')
D MAXISCAC S 5 INZ('044')
D MAXIACCT S 5 INZ('054')
D MAXIJUL S 5 INZ('064')
D MAXINOFX S 5 INZ('074')
D MAXIWGT S 5 0 INZ(084)
D MAXICITY S 5 INZ('CITY')
D MAXIVAL S 5 INZ('004')
D MAXISTATE S 5 INZ('024')


*****************************************
EVAL MAXCODE = HEADER + RS + RS +'06' + %TRIM(MAXIZIP) + GS + MAXICTRYCD + GS + MAXISERV +
GS + MAXITRK +
GS +MAXISCAC +
GS + MAXIACCT +
GS + MAXIJUL + GS + GS + %TRIM(MAXINOFX) + GS + %CHAR(MAXIWGT) + GS + MAXIVAL + GS + GS + %TRIM(MAXICITY) + GS + MAXISTATE + RS + EOT

MOVEL(P) CODE MAXCODE
WRITE UPSMAX


************************************************** **********************
dds
**********

SPACEB(003)
A MAXCODE 100A 5BARCODE(MAXICODE(*MAXICODE 4))


danke für die Mühe