Funktion Duplex im PRTF

[malzusrex]

Hallo auch.
Ich hatte das mal vor längerem im RPG auch gelöst. Ist allerdings nicht mehr im Einsatz, weil wir es unterdessen auch über das bereits genannte Tool gelöst haben.

Hier die Quellen die ich noch gefunden habe
DDS- Beschreibung für PrinterFile

     *       Kopfzeile                                        
     *                                                        
    A          R DRLFZEIL                  SKIPB(2)           
    A                                      DUPLEX(&#DUPLEX)   
    A                                      SPACEA(1)          
----------- 76 Datensätze ausgeschlossen ---------------------
                 #DUPLEX        7A  P 

Gewandelt wurde der Printerfile so

CRTPRTF FILE(*LIB/MyPrtf) SRCFILE(*LIB/QDDSSRC) DEVTYPE(*AFPDS)
        PAGESIZE(70 96) CPI(12) OVRFLW(70) DUPLEX(*FORMDF)      
        IPDSPASTHR(*YES) OUTQ(*LIB/XXXX)  HOLD(*YES) 

Im RPG

     c                   If        pnr = paknr            
     c                   Eval      #Duplex  =  '*YES'     
     c                   Else                             
     c                   Eval      #Duplex  =  '*NO'      
     c                   EndIf 

Viele Grüße
Ronald