Guten Abend,

ich komme einfach nicht darauf, was ich falsch mache, dass der Drucker nicht das Blatt wendet und Text auf die Rückseite schreibt.

Für mein Testprogramm ist das Printerfile mit DEVTYPE (*AFPDS) umgewandelt worden.

Definiert ist es folgendermaßen:

---------------------------------------------------------------
INDARA
R FMTDUPLEX

01 DUPLEX(*YES)
TEXT 10A

R FMTENDPAGE ENDPAGE
---------------------------------------------------------------

Das Cobol-Testprogramm sieht so aus:

DATA-DEVISION.
FILE-SECTION.
FD LISTE.
01 LISTE-REC PIC X(50).


01 CONST-AREA.
02 AUS PIC 1 VALUE B'0'.
02 EIN PIC 1 VALUE B'1'.

01 WORK-AREA.
02 FILLER PIC X(1).

02 FMTTEXT.
05 FMTDUPLEX-O.
06 TEXT PIC X(10).

02 BZZ-AREA.
05 FUNKTION PIC 1 OCCURS 99 INDICATOR 1.

PROCEDURE-DEVISION.
ANFANG-SECTION.
ANFANG-0.
INITIALIZE WORK-AREA.
OPEN OUTPUT LISTE.

MOVE B'1' TO FUNKTION(1).
MOVE 'SEITE1' TO TEXT.
WRITE LISTE-REC FORMAT 'FMTDUPLEX' INDIC FUNKTION.

MOVE B'0' TO FUNKTION(1).
MOVE 'SEITE2' TO TEXT.
WRITE LISTE-REC FORMAT 'FMTDUPLEX' INDIC FUNKTION.
WRITE LISTE-REC FORMAT 'FMTENDPAGE'.

CLOSE LISTE.
---------------------------------------------------------------

Vielleicht entdeckt jemand einen Fehler.

Viele Grüße
Dagmar Lüschen