Drucken und Heften

[Fuerchau]

Gerade wenn man es druckerunabhängig machen will, dann kein PCL innerhalb des Spools verwenden, da eben nicht jeder PCL kann und ggf. die ESC's unterschiedlich sind.
Dafür ist ja das WSCST da.

[jgv]

Das DDS-Keyword STAPLE kann auch zur Steuerung verwendet werden.

[woki]

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:

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:

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:

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

[Fuerchau]

Wird denn nur 1 Spool erzeugt ?
Prüfe mal, ob die Druckerdatei wirklich SHARE geöffnet wird.

[woki]

Wird denn nur 1 Spool erzeugt ?

Ja.

Prüfe mal, ob die Druckerdatei wirklich SHARE geöffnet wird.

Wie mache ich das denn

[Fuerchau]

SHARE kann man beim DSPJOB->14 sehen.

Das Problem bei O-Dateien ist häufig die Pufferung (siehe Compiler-Liste).
Das heißt, dass die Daten noch nicht an das Spool weitergegeben werden sondern noch im internen Dateipuffer stehen. Dieser wird erst bei Close dann vollständig ausgegeben.
SHARE hilft da nicht weiter, da RPG einen eigenen Programmpuffer anlegt.

Schau mal in den Spool, ob die Reihenfolge deiner Seiten auch stimmt.

Ich weiß aber im Moment nicht, wie man das Blocken abschaltet bzw. eine Dateiausgabe (flush) erzwingt.

[woki]

Schau mal in den Spool, ob die Reihenfolge deiner Seiten auch stimmt.

Die Reihenfolge stimmt. Aber ich kriege es nicht hin, daß ich die erste Seite aus dem ersten Programm und die folgenden Seiten aus dem 2. Programm zusammen geklammert sind. ich habe etwas rumgespielt, ich komme aber immer nur zu den beiden ERgebnissen: Entweder ist gar nichts geklammert oder die erste Seite allein und die folgenden geklammert....

[woki]

Habs nach ca. 5 weiteren Test hinbekommen, so läufts:

Masterprogramm:

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();
    write KLAMMERN;  
  endfor;                                                
  *Inlr = *On;                                           
 /end-free

Slave-Programm:

FTEST71213 O    E             PRINTER OFLIND(Overflow01)
Di                S              2S 0 inz(0)            
 /free                                                  
  for i = 1 to 3;                                       
    write TEXT;                                         
    write NEUESEITE;                                    
  endfor;                                               
  *Inlr = *On;                                          
 /end-free

Na ja, die logik kann ich zwar nicht ganz nachvollzieehn (warums erst nicht lief, und jetzt aber bei dieser), aber hauptsache es läuft.

[RobertPic]

Jetzt muss ich nocheinmal den alten Thread aktivieren.

Ich habe jetzt mein Druckfile nach diesem Vorbild gestaltet - allerdings werden diese Einstellungen von verschiedenen Druckern ignoriert.

Ich habe zwar Escapecodes vom Hersteller, aber finde im WSCST-Objekt keine Schlüsselwörter für STAPLE.

Im Internet habe ich auch nur Lösungen gefunden, welche das Heften im Initstring einschalten.

Mir ist nicht ganz klar, warum die hier gepostete Lösung überhaupt funktioniert. Sind da irgendwelche (Druck)Zusatzprodukte auf der AS/400 notwendig?

/Robert

[Andreas Herzfeldt]

Hallo Robert, wir haben auch HP9050-Drucker mit Stapeleinheit im Einsatz und steuern dieses per WSCST an. Falls Du Interesse hast, kann ich Dir die Einstellungen für die optionale Heftung mit 1,2 oder 3 Klammern mailen.

MFG

Andreas

[RobertPic]

Hallo Andreas,

eine Beispiel WSCST wäre sehr hilfreich!

Bitte an rp [at] odoerfer.com mailen.

Steuert ihr die einzelnen Heftungen dann im Spool an oder ist jeder Spool eine Heftung?



Danke!

/Robert

[Proggi]

Gerade wenn man es druckerunabhängig machen will, dann kein PCL innerhalb des Spools verwenden, da eben nicht jeder PCL kann und ggf. die ESC's unterschiedlich sind.
Dafür ist ja das WSCST da.

Hm, mein Wissensstand scheint da wohl alt zu sein, aber wenn ich mich nicht ganz täusche können eigentlich alle Drucker PCL5 oder jetzt mittlerweile PCL6. Korrigiert mich, wenn ich mich irre