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?