Maxicode mit afpds und rpg iV

[THH]

Erstmal Danke
(hat aber nicht wirklich geholfen, sowas habe ich schon gefunden - Trotzdem)

Und 2/3 D deswegen, weil UPS darauf besteht solche Codes einzuführen, und jeder der UPS versenden will, muss sich damit auseinander setzen (das nur als info)
nun aber wieder zum Problem
hilfreich währe ein Codeschnipsel
für DDS und RPG (wie bekomme ich daten
ind den code)

nach dem Motto
*****************************
DDS
R UPSMAX SKIPB(001)
FONT(085 (*POINTSIZE 10,0))
MAXCODE 100A BARCODE(MAXICODE (*MAXICODE 4))
SPACEA(17)
**************************
und RPG
D*Headerdaten
D MAXHD1 C CONST(X'BA')
D MAXHD2 C CONST(X'5D')
D MAXHD3 C CONST(X'6E')


D************************************************* *********
C MOVE 'UPS' MAXCODE
C WRITE UPSMAX
C SETON LR

ev kann noch jemand aushelfen ??

[Fuerchau]

Für die Hex-Codes musst du die EBCDIC-Varianten definieren, da immer eine Codewandlung von EBCDIC nach ASCII erfolgt.
Näheres siehe obigen Link.

Ausserdem:
An welchen Drucker geht das Ganze ?
Verwendest du Hosttransform ?
Bei Hosttransform werden nur PCL-kompatible Drucker unterstützt.

Ansonsten benötigst du einen realen IBM-AFPDS/IPDS-Drucker nebst PSF/400.

[THH]

Hallo
Vielen dank


das ganze geht an einen IBM-Laser infoprint
unter AFPDS

umwandlung ist mir schon klar, doch wie ?
habe schom versucht mit bit-fiselei
auf das ganze zu kommen, auch ist mir
noch nicht klar, wie ich die Daten da rein bringe, das ganze kann ja bis zu 1300 zeichen haben ?



Gruss