Mix aus Simplex und Duplex

[malzusrex]

Hallo liebe Gemeinde,

ich bräuchte noch einmal Eure Hilfe beim Drucken mit SIMPLEX/DUPLEX.
Ich habe zB.: einen Spool mit 4 Seiten. Davon soll die Seite 1 und 2 jeweils auf eine Vorderseite des Blattes (also insgesamt 2 Seiten). Seite 3 und 4 soll zusammen auf das 3. Blatt (Vorder- und Rückseite).
Ich habe es mit folgender DDS-Printerfile versucht.

                R ZEILE                                     
                                            DUPLEX(&#DUPLEX)
                                            SKIPB(2)        
                  TEXT          40         4                
                                            SPACEA(1)       
                  #DUPLEX        7A  P 

Das Programm dazu:

ftestprtf  o    e             Printer                          
                                                               
c                   Eval      #Duplex =   '*Off'               
c                   Eval      Text    =   'Seite 1 Vorderseite'
c                   Write     Zeile                            
c                   Eval      Text    =   'Seite 2 Vorderseite'
c                   Write     Zeile                            
c                   Eval      #Duplex =   '*On'                
c                   Eval      Text    =   'Seite 3 Vorderseite'
c                   Write     Zeile                            
c                   Eval      Text    =   'Seite 4 Rückseite  '
c                   Write     Zeile                            
c                                                              
c                   Eval      *InLr   =   *On 

Den Printerfile habe ich einmal mit
CRTPRTF DEVTYPE(*AFPDS) DUPLEX(*YES)
und einmal mit
CRTPRTF DEVTYPE(*AFPDS) DUPLEX(*FORMDF)

Beides hat nicht zu dem gewünschten Erfolg geführt.
Wo liegt mein Fehler, und ist dies überhaupt der richtige Weg zum Ziel?

Gruß Ronald

[Pikachu]

Mögliche Werte für DUPLEX sind *YES, *NO und *TUMBLE (alle in Großbuchstaben).

[malzusrex]

Hatte ich ich dann auch schon gesehen und es mit *NO und *YES probiert, hat aber auch nicht zum Erfolg geführt.

[Fuerchau]

Es kommt auf die Reihenfolge an:

DUPLEX is ignored at run time if it is not specified on a page boundary. The printer is on a page boundary when no named or constant fields are processed for a page. After a named or constant field is processed, the printer is no longer on a page boundary. The printer is on a page boundary again when a SKIP, SPACE, ENDPAGE, or INVMMAP keyword is processed that causes the printer to move to a new page, DUPLEX, SKIP, and SPACE keywords are processed in the following order:
SKIPB
SPACEB
DUPLEX
SPACEA
SKIPA

DUPLEX is in effect only for the record format specified. After records with the specified record format are processed, the duplex value for the next record format (if the DUPLEX keyword is not specified) is the duplex specified at the file level (CRTPRTF, CHGPRTF, or OVRPRTF) command.
Option indicators are valid for this keyword.

[malzusrex]

Moin!
Ich mußte doch mal wieder feststellen:"Wer lesen kann ist klar im Vorteil!!!"
Ich habe immer *ON und *OFF genommen. Richtig muss es aber *YES und *NO sein. Kommt halt davon, wenn man mal schnell ein paar Zeilen kopiert. Ich habe mein gewünschtes Ergebniss nun erhalten.

Danke Euch Allen

PRTF

                R ZEILE                                     
                                            SKIPB(2)        
                                            DUPLEX(&#DUPLEX)
                  TEXT          40         4                
                                            SPACEA(1)       
                  #DUPLEX        7A  P 

Umwandeln mit den Optionen DEVTYPE(*AFPDS) und DUPLEX(*FORMDF)

RPG

ftestprtf  o    e             Printer                          
                                                               
c                   Eval      #Duplex =   '*NO'                
c                   Eval      Text    =   'Seite 1 Vorderseite'
c                   Write     Zeile                            
c                   Eval      Text    =   'Seite 2 Vorderseite'
c                   Write     Zeile                            
c                   Eval      #Duplex =   '*YES'               
c                   Eval      Text    =   'Seite 3 Vorderseite'
c                   Write     Zeile                            
c                   Eval      Text    =   'Seite 3 Rückseite  '
c                   Write     Zeile                            
c                                                              
c                   Eval      *InLr   =   *On 

Es kommen jetzt genau 3 Seiten raus. Seite 1+2 = SIMPLEX und Seite 3 = DUPLEX. Beim Drucker werden dann auch nur 4 Klix gezählt

Gruß Ronald