Aufrufbibliothek von CL rausfinden

[linguin]

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

[kuempi von stein]

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

[RobertMack]

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.

[RobertMack]

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 ;-)

[linguin]

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

[BenderD]

das hatten wir doch schonmal, mal mit SNDPGMMSG suchen, oder die AS/400 typische Lösung mit Command und dranhängender Prodlib

D*B

[RobertMack]

... probier mal, was ein RTVCURDIR zurückliefert.

[kuempi von stein]

http://newsolutions.de/forum-systemi...ermitteln.html

stehen zwei mögliche Lösungen drin

[schatte]

Hallo,

ich verwende immer folgendes RPG Programm. Diese binde ich einfach als *MODULE ein.
Im CL dann mit CALLPRC aufrufen.

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