Moin,
wie wäre es mit einem DSPOBJD
DSPOBJD OBJ(MYLIB/*ALL) OBJTYPE(*PGM) OUTPUT(*OUTFILE) OUTFILE(QTEMP/X)
In der Datei dann das Feld ODUDAT auswerten

Gruß
Ronald