ODP in einem Server-Job schliessen

[V_P]

Hallo zusammen,

bin heute auf ein Problem gestoßen.
Ein Server-Job führt folgende Routine aus:
- ruft CL-Pgm A
- CL-Pgm A ruft RPG-Pgm B
- RPG-Pgm B liest die Datei X
- beim RPG-Pgm wird der Schlater *INLR nicht gesetzt

Im CL-Pgm A möchte ich steuern auf welche Datei das RPG-Pgm B zugreifen soll. D.h. es gibt die gleiche Datei X in unterschiedlichen Bibliotheken (B1, B2, etc).
Die Routine, welche die Bibliothekliste entsprechend anpasst, ist in CL-Pgm A implementiert.
Es klappt aber nicht!
Dadurch, dass beim 1-ten Durchlauf der Dateipfad zu Datei X in der Bibliothek z.B. B1 aufgebaut und nicht geschlossen wird, wird bei jeden weitern Durchlauf immer noch auf die Datei X in der Bibliothek B1 zugegriffen.

Meine Frage ist also, gibt es eine Möglichkeit in einen CL-Pgm die offenen Datenpfade zu schliessen?

Bin für jeden Ratschlag dankbar.

Gruß
Vladimir

[Fuerchau]

Das Zauberwort heisst:
Für OPM: RCLRSC
Für ILE: RCLACTGRP

[V_P]

Diese Befehle habe ich auch bereits ausprobiert, aber ohne Erfolg.
Vielleicht liegt es daran, dass alle Pgme innerhalb dieses Job in einen und derselben Aktivierungsgruppe sind?

[V_P]

Das Problem ist jetzt gelöst.

Habe RCLRSC anstatt am Anfang des CL-Pgms ans Ende verschoben. Und sieh an, es funktioniert.

[Fuerchau]

RCLRSC ist im Prinzip direkt nach dem CALL aufzurufen.
Klar, wenn du direkt am Anfang RCLRSC durchführst werden offene ODP's auch gelöscht.
Haupsache es findet innerhalb deiner Schleife statt.

[schatte]

Hallo,

gibt es eine Möglichkeit die Anzahl der offenen Datenpfade eines Jobs zu ermitteln? In WRKJOB Auswahl 14 wird die Anzahl der offenen Datenpfade angezeigt. Kann dieser Wert auch programmtechnisch ermittelt werden?

Gruß
Matthias

[schatte]

Man sollte das ganze wohl mit dem API QDMLOPNF hin bekommen.

Hat jemand zufällig ein Beispiel Programm?

[kuempi von stein]

Man sollte das ganze wohl mit dem API QDMLOPNF hin bekommen.

Hat jemand zufällig ein Beispiel Programm?

meint er sowas?
Think400 - iSeries (AS/400) API interfaces

k.

[BenderD]

Hallo,

warum öffnest und schließt du die Datei dann nicht einfach user controlled im RPG??? den OVRDBF kannst due ebenfalls dort per system (oder QCMDEXC) einfacher erledigen.

D*B

Hallo zusammen,

bin heute auf ein Problem gestoßen.
Ein Server-Job führt folgende Routine aus:
- ruft CL-Pgm A
- CL-Pgm A ruft RPG-Pgm B
- RPG-Pgm B liest die Datei X
- beim RPG-Pgm wird der Schlater *INLR nicht gesetzt

Im CL-Pgm A möchte ich steuern auf welche Datei das RPG-Pgm B zugreifen soll. D.h. es gibt die gleiche Datei X in unterschiedlichen Bibliotheken (B1, B2, etc).
Die Routine, welche die Bibliothekliste entsprechend anpasst, ist in CL-Pgm A implementiert.
Es klappt aber nicht!
Dadurch, dass beim 1-ten Durchlauf der Dateipfad zu Datei X in der Bibliothek z.B. B1 aufgebaut und nicht geschlossen wird, wird bei jeden weitern Durchlauf immer noch auf die Datei X in der Bibliothek B1 zugegriffen.

Meine Frage ist also, gibt es eine Möglichkeit in einen CL-Pgm die offenen Datenpfade zu schliessen?

Bin für jeden Ratschlag dankbar.

Gruß
Vladimir

[schatte]

meint er sowas?
Think400 - iSeries (AS/400) API interfaces

k.

Ja genau, das meine ich. Wobei ich immer hoffe, dass jemand auch mal ein API Beispiel in Cobol schreibt.

Viele Dank!

[Fuerchau]

In COBOL geht das genauso.
Für einige API's gibt es in der Lib QSYSINC sogar Copy-Strecken.

Strukturen sind in COBOL genauso einfach zu schreiben.
Hinweis: Binär-Felder sind in COBOL mit PIC S9(9) COMP-4 (4-Byte) bzw. S9(4) COMP-4 (2-Byte) zu definieren.

Da COBOL bei diesen Definitionen allerdings einigen Overhead generiert um die Stellengenauigkeit zu gewährleisten, kann man vor der "Identification Division" die Anweisung

Process nostdtrunc

angeben.
In diesem Fall können die Felder vollwertig (+/- 2^32-1) bzw. +/- 32767 verwendet werden.