-
Aufrufbibliothek von CL rausfinden
Hallo,
ich habe ein CL
MEINELIB/MEINCL
Dieses Rufe ich per FTP über RCMD auf.
Gibt es irgendeine Möglichkeit in diesem CL herauszufinden in welcher Bibliothek sich das CL befindet oder anders gesagt, von welcher Bibliothek es aufgerufen wurde. (Hier MEINELIB)
Hintergrund: Es gibt mehrere dieser CLs mit dem gleichen Namen. In verschiedenen LIBs.
MEINELIB/MEINCL
MEINEBIB/MEINCL
MEINBUBU/MEINCL
...
Ich muss jetzt wissen in welcher LIB ich das CL aufrufe um dann in dieser LIB wieder andere CLs aufzurufen.
Danke
Christian
-
Man könnte natürlich tricksen und im CL ne Variable haben in der die Lib drinsteht.
Aber ich denke, das ist keine schöne Lösung..
Die Lib sieht man im Programmstack!
Schau Dir den mal an, wenn das PGM läuft!
Auslesen dann mittels API QWVRCSTK
bzw hier nen Beispiel als Code midrange.com -- RPG400-L -- AW: procedure to return calling pgm name
-
Hmmm,
DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
RTVOBJD OBJ(MEINCL) OBJTYPE(*PGM) RTNLIB(&LIB)
... aufgrund der Suchliste müsste sich das CL dann selbst finden, somit:
IF COND(&LIB *EQ '...') THEN() u.s.w.
-
Nachtrag (Tipp):
Falls die LIB-Namen nicht unwiderruflich fest verdrahtet sind ('eh nicht zeitgemäß) würde ich diese "von außen" pflegbar machen. Sei es durch Ablage der Namen in *DTAARAS in der jeweiligen LIB oder durch eine andere Art der variablen Steuerung.
FTP & Co. bringen sich öfter mal durch Veränderungen ins Gedächtnis zurück ;-)
-
Hallo Robert,
danke für den Tipp. Aber soweit war ich schon :-)
Das Problem ist ja das das MEINCL nicht in der Bibliotheksliste ist und deswegen auch nicht gefunden wird von RTVOBJD !!!
Auch die *DTAARA müsste in der LIB stehen wo das Proggi ist. Aber dafür muss ich natürlich die LIB wissen
Und per FTP hab ich sowas nicht !!
Any Ideas ?
Gruß
Christian
-
das hatten wir doch schonmal, mal mit SNDPGMMSG suchen, oder die AS/400 typische Lösung mit Command und dranhängender Prodlib
D*B
-
... probier mal, was ein RTVCURDIR zurückliefert.
-
-
RPGLE Modul einbinden!
Hallo,
ich verwende immer folgendes RPG Programm. Diese binde ich einfach als *MODULE ein.
Im CL dann mit CALLPRC aufrufen.
Code:
D SDS
D LIBNAME 81 90
*
C *ENTRY PLIST
C PARM X_LIBNAME 10
C EVAL X_LIBNAME=LIBNAME
C EVAL *INLR=*ON
Damit klappt das einwandfrei.
Viele Grüße
Matthias
Similar Threads
-
By Sony in forum IBM i Hauptforum
Antworten: 27
Letzter Beitrag: 20-07-09, 21:48
-
By schatte in forum NEWSboard Programmierung
Antworten: 19
Letzter Beitrag: 10-01-07, 11:32
-
By RLPforum in forum IBM i Hauptforum
Antworten: 2
Letzter Beitrag: 04-01-07, 14:58
-
By bo1 in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 23-06-06, 15:00
-
By Hubert Brethauer in forum IBM i Hauptforum
Antworten: 2
Letzter Beitrag: 19-04-06, 08:04
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