Danke vorweg für die schnellen Antworten. Jetzt sieht das ganze so aus:

A R HEADER01
A SKIPB(003)
A 1 2DATE EDTWRD('0 / / ')
A +1TIME EDTWRD('0 : : ')
A 1 33'IVKLSTP0 '
A HIGHLIGHT
A 1 70'PAGE:'
A +1PAGNBR EDTCDE(Z)
A 2 2'CDTHLDORDR'
A 2 32'INVENTUR LISTE'
A HIGHLIGHT
A DUSERID 10A O 2 70
A 5 2'LAGER'
A HIGHLIGHT
A 5 16'ARTIKEL'
A HIGHLIGHT
A 5 85'CHARGE'
A HIGHLIGHT
A 5 95'GEBI'
A HIGHLIGHT
A 5100'ANZAHL'
A HIGHLIGHT
A 5106'INHALT'
A HIGHLIGHT
A 5114'RESTMENGE'
A HIGHLIGHT
A 5124'GESAMTMENGE'
A HIGHLIGHT
*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
A R DBODY01
A SPACEB(1)
A PCXLAGO 2 2HIGHLIGHT
4'/'
A PCXLAGP 10 5HIGHLIGHT
A PCXARTN 6 0 16HIGHLIGHT
A PASBEZ1 30 23HIGHLIGHT
A PASBEZ2 30 54HIGHLIGHT
A PCXCNUM 9 0 85HIGHLIGHT
A PCXGEBI 4 95HIGHLIGHT
A PCXANZG 5 0 100HIGHLIGHT
A PCXINHA 7 2 106HIGHLIGHT
A PCXREST 9 2 114HIGHLIGHT
A PCXMENG 9 2 124HIGHLIGHT
A PCXSTAT 8 134HIGHLIGHT
*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
A R FOOTER01
A SPACEB(2)
A 2'*** END OF REPORT ***'
A HIGHLIGHT
*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Jetzt sagt der Compiler aber:
Nachricht . . . : Für Pluswert Wert für Feldlänge im vorherigen Feld erforderlich.
Nachricht . . . : Zeilennummer mit SPACE- oder SKIP-Schlüsselwort nicht zulässig.

Habe es auch schon mit SKIP(002) versucht mit selben Erfolg.

PS. Gibt es eine Möglichkeit, dass ich den Quellcode ohne verluste von Blanks einfügen kann? Der besseren Lesbarkeit halber....