Aufrufbibliothek von CL rausfinden

[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