printerfile wird geschlossen

[fdh]

Hallo,

ich habe ein Problem, das nervt langsam !

Programm A ruft mehrfach Programm B.

Programm B soll beim ersten Aufruf die Printerfile öffnen uns beim
letzten Aufruf die Printerfile schliessen (alles auf eine Seite).
Programm B schliesst leider die Printferfile nach jedem Aufruf
automatisch, obwohl :
Die printerfile mit UC definiert wurde
Die printerfile ohne close das Programm verlässt
kein rclrsc dazwischenfunkt
Programm B mit retrn verlassen wird.

Was läuft falsch ?

Gruss

[B.Hauser]

Läuft das Programm etwa in einer eigenen Aktivierungsgruppe, die geschlossen wird?

Birgitta

[fdh]

Hallo Frau Hauser,

nein, keine Aktivierungsgruppe.

Zwischen beiden Programmen laufen lediglich 2 CLs.

Im debugger : Auf dem retrn ist der Spool noch offen. Auf dem ersten Statement im CL nach Programm B ist der Spool zu und wird gedruckt.

Grüsse

[Fuerchau]

Weise explizit *INLR=*OFF zu.

[fdh]

Hallo Herr Fuerchau,
Habe ich soeben gemacht, leider negativ.
Immer noch einzelne Spools pro Aufruf.

Gruss

[RobertMack]

... glaube mich an OVRPRTF SHARE(*YES) zu erinnern.

[fdh]

Hallo Herr Mack,

habe das Printerfile hart auf share(*yes) umgestellt. Leider ohne Erfolg.

Grüsse

[RobertMack]

... hab's wiedergefunden:

1) im steuernden CL: OVRPRTF FILE(PGMXYZP) SHARE(*YES) OPNSCOPE(*JOB)
2) in den RPG-Programmen: kein UC/USROPN

[fdh]

Hallo Herr Mack,

habe es sofort probiert.
In der Tat übernimmt der Job die Steuerung für den Druck, aber leider immer noch viele Spools statt einer einzigen .......

Gruss

[B.Hauser]

Schau doch mal (sicherheitshalber) nach in welcher Aktivierungsgruppe Programm B läuft:

DSPPGM PGM(LIBPGMB/PGMB) 

Auf der 1. Seite unter Attribut der Aktivierungsgruppe siehst Du welche Aktivierungsgruppe verwendet wird.

Ich könnte fast wetten, dass bei Programm B die Aktivierungsgruppe *NEW verwendet wird.

Birgitta

[fdh]

Hallo Frau Hauser,

es ist leider kein ILE Programm.

Trotzdem mal die Parameter.

Informationen zur Programmerstellung:
Programmerstellungsdatum/-zeit . . . . . . . . . . . . . : 21.07.08 16:22:36
Programmart . . . . . . . . . . . . . . . . . . . . . . : OPM
Quellendatei . . . . . . . . . . . . . . . . . . . . . . : QRPGSRC
Bibliothek . . . . . . . . . . . . . . . . . . . . . . : TRULLALIB
Quellenteildatei . . . . . . . . . . . . . . . . . . . . : FHBD03
Datum/Uhrzeit der Quellendateiänderung . . . . . . . . . : 21.07.08 16:22:31
Überwachbare Daten . . . . . . . . . . . . . . . . . . . : *ALL
Benutzerprofil . . . . . . . . . . . . . . . . . . . . . : *USER
Übernommene Berechtigung verwenden . . . . . . . . . . . : *YES
Festkommadaten . . . . . . . . . . . . . . . . . . . . . : *NO
Für Teraspace aktiviert . . . . . . . . . . . . . . . . : *NO
Textbeschreibung . . . . . . . . . . . . . . . . . . . . : Drucken Dispoliste
Programmstatistik:
Anzahl der Parameter . . . . . . . . . . . . . . . . . . : 0 19
Programmgröße (Byte) . . . . . . . . . . . . . . . . . . : 290816
Größe des zugeordneten Speicherbereichs (Byte) . . . . . : 0
Größe des festen Speichers (Byte) . . . . . . . . . . . : 26480
Größe des dynamischen Speicherbereichs (Byte) . . . . . : 0
Anzahl der MI-Instruktionen . . . . . . . . . . . . . . : 2212
Anzahl der ODT-Einträge . . . . . . . . . . . . . . . . : 3583
Programmstatus . . . . . . . . . . . . . . . . . . . . . : *USER
Programmdomäne . . . . . . . . . . . . . . . . . . . . . : *USER
Compiler . . . . . . . . . . . . . . . . . . . . . . . . : 5722WDS V5R4M0
Niedrigstes Release für Programmausführung . . . . . . . : V5R4M0
Umsetzung erforderlich . . . . . . . . . . . . . . . . . : *NO
Sortierfolge . . . . . . . . . . . . . . . . . . . . . . : *HEX
Sprachen-ID . . . . . . . . . . . . . . . . . . . . . . : *JOBRUN
Informationen zur Programmleistung:
Optimierung . . . . . . . . . . . . . . . . . . . . . . : *NOOPTIMIZE
Seitenwechselpool . . . . . . . . . . . . . . . . . . . : *USER
PASA aktualisieren . . . . . . . . . . . . . . . . . . . : *NOUPDPASA
PASA-Inhalt löschen . . . . . . . . . . . . . . . . . . : *CLRPASA
Seitenauslagerungsanzahl . . . . . . . . . . . . . . . . : *BLOCK

[B.Hauser]

Hallo,

wir wissen jetzt zumindest schon mal, dass es sich bei dem aufgerufenen Programm um ein altes RPGIII OPM-Programm handelt. Solche Kleinigkeiten sind nicht ganz unerheblich.

Handelt es sich bei den anderen Programmen um OPM- (CL, RPG, SQLRPG) oder ILE- (CLLE, RPGLE, SQLRPGLE) Programme?

Wie wird der erste/letzte Aufruf festgestellt?
Durch einen bestimmten Parameter-Wert.
Wird vielleicht irgendwo ein Schalter (Beginn/Ende PrinterFile) verwendet, der beim nächsten Aufruf nicht initialisiert wird und somit bei jedem Aufruf ein Ende der Printerfile feststellt und diese dann auch schließt?

Birgitta