Programmbibliothek in einem Cobol oder CL Programm ermitteln

[schatte]

Hallo,

gibt es eine einfache Möglichkeit in einem CL oder Cobol Programm die aktuelle Bibliothek zu ermitteln in welchem das Programm ausgeführt wird?

In einem RPG Programm würde man einfach eine "Program Status Data Structure" (SDS) erstellen und dort dann ab der 81. Stelle seine Variable deklarieren.

Gibt sowas ähnliches auch unter CL oder Cobol?

Gruß Matthias

[RobertMack]

CL:

DCL &CURLIB *CHAR 10

RTVJOBA CURLIB(&CURLIB)

[schatte]

Das ist so nicht ganz richtig. Ich will mir ja die Programm-Lib ermitteln und nicht die Aktuelle Bibliothek (welche ich mit CHGCURLIB verändern kann).

Wenn ich das Programm folgendermaßen aufrufen:
CALL LIB/PROGRAM

dann sollte dort "LIB" als Ergebniss kommen. Lib ist in diesem Fall nicht in der Bibliotheksliste gesetzt!

[Fuerchau]

@Robert
Das ist die CURLIB und nicht die Lib des aktiven Programmes.

Am Einfachsten geht's mit SNDPGMMSG an sich selber und anschliessend per RCVMSG. Im SENDER steht dann die Herkunft der Nachricht (Programm und Lib).

[RobertMack]

Jep, Thema verfehlt ;-)

[Pikachu]

Mit den Befehlen OVRPRTF und DMPCLPGM geht das zum Beispiel.

[Fuerchau]

Aha, und dann CPYSPLF in eine PF, diese dann per kleinem RPG auslesen.

Also SNDPGMMSG/RCVMSG oder die API's dazu sind da doch etwas schneller.

[BenderD]

... man könnte auch mit dem Ooops Nerv, rechter Mausklick hier, drag und drop nach da, im Kontext Menü shift Mausklick auf den dritten von oben im Handumdrehen... und automatisieren lässt sich das auch Klasse mit einem kleinen Tatstatur Makro...

Dieter Bender

Aha, und dann CPYSPLF in eine PF, diese dann per kleinem RPG auslesen.

Also SNDPGMMSG/RCVMSG oder die API's dazu sind da doch etwas schneller.

[Pikachu]

Ein einfaches RCVMSG genügt in diesem Fall: siehe Quelltext.

Aha, und dann CPYSPLF in eine PF, diese dann per kleinem RPG auslesen.

[schatte]

Danke für die Antworten.

Ist aber auch nicht die schönste Lösung im Vergleich zur RPG Lösung ;-)

[Fuerchau]

Naja, einen Fehler auslösen um das Ziel zu erreichen ist eher unschön.
Ich geb allerdings zu, das die SENDER-Lösung glaube ich, erst ab V3 verfügbar war.

RPG war schon immer etwas Systemnäher.
Für COBOL gibts da keine andere Möglichkeit.

[BenderD]

Hallo,

wenns denn ILE ist, kann man auch ein RPG Modul mit binden, dass die Info aus der PSDS exportiert.

mfg

Dieter Bender,

der nicht weiß, ob es ein Systemmodul gibt, das das auch exportiert, aber selbiges vermutet.

Naja, einen Fehler auslösen um das Ziel zu erreichen ist eher unschön.
Ich geb allerdings zu, das die SENDER-Lösung glaube ich, erst ab V3 verfügbar war.

RPG war schon immer etwas Systemnäher.
Für COBOL gibts da keine andere Möglichkeit.