-
Programmbibliothek in einem Cobol oder CL Programm ermitteln
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
-
CL:
DCL &CURLIB *CHAR 10
RTVJOBA CURLIB(&CURLIB)
-
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!
-
@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).
-
-
Mit den Befehlen OVRPRTF und DMPCLPGM geht das zum Beispiel.
-
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.
-
... 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
Zitat von 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.
-
Ein einfaches RCVMSG genügt in diesem Fall: siehe Quelltext.
Zitat von Fuerchau
Aha, und dann CPYSPLF in eine PF, diese dann per kleinem RPG auslesen.
-
Danke für die Antworten.
Ist aber auch nicht die schönste Lösung im Vergleich zur RPG Lösung ;-)
-
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.
-
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.
Zitat von 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.
Similar Threads
-
By Lichtblitz in forum IBM i Hauptforum
Antworten: 1
Letzter Beitrag: 22-06-06, 09:50
-
By asb_salem in forum NEWSboard Programmierung
Antworten: 8
Letzter Beitrag: 21-03-06, 13:32
-
By Hubert in forum IBM i Hauptforum
Antworten: 12
Letzter Beitrag: 11-05-05, 13:25
-
By mk in forum IBM i Hauptforum
Antworten: 2
Letzter Beitrag: 25-09-04, 15:48
-
By Wirnitzer in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 09-08-01, 10:31
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks