Okay.
Soll heißen:

Code:
A          R HEADER01                                                     
A SKIPB(003)                           
A                                  1  2DATE EDTWRD('0  /  /  ')           
A                                    +1TIME EDTWRD('0  :  :  ')
in SKIPB(X) muss für X eine 23 eingegeben werden.
Er soll mit
Code:
A                                  1  2DATE EDTWRD('0  /  /  ')
auf der neuen Seite anfangen, dass letzte Feld ist
Code:
2'*** END OF REPORT ***'
aus dem FOOTER.

Der Compiler berechnet die nächste Position eben mit der Position + Feldlänge des vorherigen Feldes.

Also 2 + 21 = 23, aber auch hier meldet der Compiler fehler.
Die selben wie vorher.