Liebe Forumsmitglieder,

ich beschäftige mich gerade mit dem STAPLE-Befehl.
Ich habe eine Druckdatei SHARE(*YES) mit der ich von 2 Programmen aus arbeiten möchte.
Aus Programm 1 wird eine Art Deckblatt erzeugt, dann ein callP auf ein 2. Programm in der die Detailseiten gedruckt werden sollen. Diese sollen mit dem Deckblatt zusammengeheftet werden.

Arbeite ich nur mit einem Programm mit der Printerfile, klappt das heften ohne Probleme, aber mit den 2 Programmen klappt es nicht.
Das Deckblatt wird ungeheftet ausgedruckt und die Detailseiten zusammengeheftet.

Hier die Quellcodes meiner 2 Test-Programme:
Masterprogramm:
Code:
FTEST71213 O    E             PRINTER OFLIND(Overflow01) 
 *                                                       
Dj                S              2S 0 inz(0)             
Dausgabe          PR                  extpgm('TEST71213')
 *                                                       
 /free                                                   
  for j = 1 to 2;                                        
    write STAPLEOFF;                                     
    write STAPLEON;                                      
    write DECKBLATT;                                     
    write NEUESEITE;                                     
    callP ausgabe();                                     
  endfor;                                                
  *Inlr = *On;                                           
 /end-free
Slave-Programm:
Code:
FTEST71213 O    E             PRINTER OFLIND(Overflow01)
 *                                                      
Di                S              2S 0 inz(0)            
 *                                                      
 /free                                                  
  for i = 1 to 3;                                       
    if i = 1;                                           
      write STAPLEOFF;                                  
      write STAPLEON;                                   
    endif;                                              
    write TEXT;                                         
    write NEUESEITE;                                    
    if i = 3;                                           
      write KLAMMERN;                                   
    endif;                                              
  endfor;                                               
  *Inlr = *On;                                          
 /end-free
Printerfile:
Code:
A*---                                  PAGESIZE(72 80)     
A*---                                  OVRFLW(63)          
A*---                                  FOLD(*NO)           
A*---                                  CORNERSTPL(*TOPLEFT)
A*---                                  DEVTYPE(*AFPDS)     
A*---                                  HOLD(*YES)          
A*---                                  OUTQ(PRT71213)      
A*---                                  SHARE(*YES)         
A*---                                  UOM(*CM)            
A          R DECKBLATT                                     
A                                 10 24'Deckblatt'         
A          R TEXT                                          
A                                 10 24'Seite'             
A            I              2S 0  10 30                    
A          R NEUESEITE                                     
A                                      ENDPAGE             
A          R STAPLEON                                      
A                                      STAPLE(*ON)         
A          R STAPLEOFF                                     
A                                      STAPLE(*OFF)        
A          R KLAMMERN                         
A                                      STAPLE