01 Druckzeile.
05 FILLER PIC X(80).
01 ErsteZeile REDEFINES Druckzeile.
05 Zeichen PIC X(35).
05 Bezeichnung PIC X(10).
05 Zeichen2 PIC X(35).
01 Datenzeile REDEFINES Druckzeile.
05 Name PIC X(15).
05 Num PIC 9(6).
05 Platz PIC BBXBB.
05 Intern PIC 9(4).
05 Platz2 PIC BBAAABB.
05 Abteilung PIC X(43)
:
:
MOVE ALL "#" TO Druckzeile.
:
WRITE Druck FROM Druckzeile AFTER 1.
:
:
MOVE ALL "$" TO Zeichen.
MOVE "Mahnliste1" TO Bezeichnung.
MOVE ALL "+-" TO Zeichen2.
:
WRITE Druck FROM ErsteZeile AFTER 1.
:
:
MOVE "Schmitz" TO Name.
MOVE PersID TO Num.
MOVE AbtNum TO Intern.
MOVE "BuR" TO Platz2.
MOVE "Buchhaltung-Revisionskontrolle" TO Abteilung.
:
WRITE Druck FROM Datenzeile AFTER 2.
:
:
|