Um ein AS/400-Dokument auf Laser A4 zu drucken habe ich ein Datenstationsanpassungsobjekt erzeugt und habe in der Source folgende Änderungen erzeugt:

:INITPRT
/* DATA ='1B45'X. */
DATA ='1B451B266C323641'X. /* PAGE SIZE A4 */
...

:VARLSPC
VAROFFSET= 3
VARLEN= 3
VARTYPE=CHRDEC
CNVNUM= 1
CNVDEN= 48
/* DATA ='1B266C00000043'X. */
DATA ='1B266C000000431B266C372E313143'X. /* 6,75 LPI */
:CPICOR
CPI=10
/* ASCIIFNT= 255 */
/* FNTWTH= 84 */
ASCIIFNT= 85 /* 12 CPI */
FNTWTH= 120 /* 1440 | 12 = 120 */
FNTATR= 1
DATA =''X.
:CPICOR
CPI=12
/* ASCIIFNT= 255 */
/* FNTWTH= 84 */
ASCIIFNT= 230 /* 15 CPI */
FNTWTH= 96 /* 1440 | 15 = 96 */
FNTATR= 1
DATA =''X.
:CPICOR
CPI=15
ASCIIFNT= 254 /* 17.1 CPI */
FNTWTH= 85 /* 1440 | 17.1 = 85 */
FNTATR= 1
DATA =''X.
:PRTORIENT
ORIENT=PORTRAIT
DATA ='1B266C304F'X.
:PRTORIENT
ORIENT=LANDSCAPE
/* DATA ='1B266C314F'X. */
DATA ='1B266C304F'X. /* IMMER HOCHFORMAT */
...

/* KEINE SEITENFORMATIERUNG */
/* :PAGLENL */
/* VAROFFSET= 3 */
/* VARLEN= 3 */
/* VARTYPE=CHRDEC */
/* DATA ='1B266C00000050'X. */
/* :PAGSIZXFM. */
/* :PAGSIZE */ /* JPOSTD */
/* PAGWTH= 8390 */
/* PAGLEN=11338 */
/* DATA ='1B266C373241'X. */
/* :PAGSIZE */ /* 5.8 X 8.3 */
/* PAGWTH= 8352 */
/* PAGLEN=11952 */
/* DATA ='1B266C303141'X. */
/* :PAGSIZE */ /* A4 */
/* PAGWTH=11952 */
/* PAGLEN=16848 */
/* DATA ='1B266C323641'X. */
/* :PAGSIZE */ /* A3 */

/* PAGWTH=16838 */
/* PAGLEN=23811 */
/* DATA ='1B266C323741'X. */
/* :PAGSIZE */ /* JIS B5 */
/* PAGWTH=10368 */
/* PAGLEN=14544 */
/* DATA ='1B266C343541'X. */
/* :PAGSIZE */ /* JIS B4 */
/* PAGWTH=14570 */
/* PAGLEN=20636 */
/* DATA ='1B266C343641'X. */
/* :PAGSIZE */
/* PAGWTH=10440 */ /* 7.25 X 10.5 */
/* PAGLEN=15120 */
/* DATA ='1B266C303141'X. */
/* :PAGSIZE */ /* 8.5 X 11 */
/* PAGWTH=12240 */
/* PAGLEN=15840 */
/* DATA ='1B266C303241'X. */
/* :PAGSIZE */ /* 8.5 X 14 */
/* PAGWTH=12240 */
/* PAGLEN=20160 */
/* DATA ='1B266C303341'X. */
/* :PAGSIZE */ /* 11 X 17 */
/* PAGWTH=15840 */
/* PAGLEN=24480 */
/* DATA ='1B266C303641'X. */
/* :EPAGSIZXFM. */
...

/* KEIN ÄNDERUNG OBERER RAND */
/* */
/* :TOPMARGINI */
/* VAROFFSET= 8 */
/* VARLEN= 4 */
/* VARTYPE=CHRDEC */
/* CNVNUM= 1 */
/* CNVDEN= 48 */
/* DATA ='1B266C31431B266C0000000045'X. */
/* KEIN ÄNDERUNG TEXTLÄNGE */
/* :TEXTLENL */
/* VAROFFSET= 3 */
/* VARLEN= 4 */
/* VARTYPE=CHRDEC */
/* DATA ='1B266C00000000461B26613052'X. */
--------------------------------------------------------------------------------

Dann habe ich die entsprechenden Änderungen bei CHGPRTF vorgenommen:
CPI(15) FONT(*CPI) PAGRTT(*COR)

Jetzt druckt zwar einigermaßer korrekt, aber schneidet rechts immer noch ein paar Stellen ab.

Nun die Frage:

Woran liegt das.

muß man die CPI-Zahl für 15 noch anpassen (weniger als 17.1) oder die LPI-Zahl (geringer als 6,75) Wer weiß dafür den Code.
Zwischen den beiden ausgesternten Blöcken ist noch ein ganzer Datenblock:
ab ENVSIZXFM
bis TOPMARGINI

Muss das auch noch ausgesternt werden?

Sorry, ist ein bisschen umfangreich, aber ich hoffe, mir kann noch jemand helfen.