Wo ist die Source zu einem Pogramm?

[Tschabo]

Hallo zusammen,

ich möchte wissen, mit welcher Source ein Programm erstellt wurde.
Dies kann ich mit DSPPGM problemlos feststellen.

Nun wollte ich die Geschichte aber in einem CL-Programm machen und habe hierfür den Befehl RTVOBJD wie folgt verwendet:

PGM

DCL VAR(&SRCF ) TYPE(*CHAR) LEN(10)
DCL VAR(&SRCFLIB ) TYPE(*CHAR) LEN(10)
DCL VAR(&SRCMBR ) TYPE(*CHAR) LEN(10)
DCL VAR(&TEXT ) TYPE(*CHAR) LEN(50)

RTVOBJD OBJ(XXXXX/WIDSCL) OBJTYPE(*PGM) TEXT(&TEXT) SRCF(&SRCF) SRCFLIB(&SRCFLIB) SRCMBR(&SRCMBR)

ENDPGM


Nun kommt aber nur der Variablen &TEXT was zurück, die Variablen &SRCF, &SRCFLIB, &SRCMBR sind leer.

Hat jemand eine Idee, was ich falsch mache?

[mk]

HI,

die Hilfe sagt folgendes:


Bei ILE *PGM- und *SRVPGM-Objekten

sind die Felder für Datei und Teildatei leer.Die


Quellendateiinformationen werden mit dem *MODULE-Objekt

gespeichert.

Gruß
Michael

[Fuerchau]

Und für das Auslesen dieser Informationen benötigt man wieder API's.

[BenderD]

Und für das Auslesen dieser Informationen benötigt man wieder API's.

... es sei denn, man verzichtet auf CRTBNDxxx und schmeißt die Module nicht weg.

... und in der hässlichen alten Welt (UPDPGM und UPDSRVPGM) ist die Information nur zufällig richtig und in der schönen neuen Welt CRTxxx SRCSTMF(...) fehlt sie wohl ganz...