Man erstelle soich mit DSPPGMREF und DSPOBJD die beiden Dateien über die gewünschten Bibliothken.

**** Datenanfang **************************************
PGM PARM(&RTNCDE &BIBLIOTHEK)
DCL VAR(&RTNCDE) TYPE(*CHAR) LEN(7)
DCL VAR(&BIBLIOTHEK) TYPE(*CHAR) LEN(10) +
VALUE(*USRLIBL)

DSPPGMREF PGM(&BIBLIOTHEK/*ALL) OUTPUT(*OUTFILE) +
OUTFILE(HAUSMANN/PGMREF)
MONMSG MSGID(CPF3068)
DSPOBJD OBJ(&BIBLIOTHEK/*ALL) OBJTYPE(*ALL) +
OUTPUT(*OUTFILE) OUTFILE(HAUSMANN/OBJDSP)
MONMSG MSGID(CPF3068)
DSPFD FILE(&BIBLIOTHEK/*ALL) TYPE(*ACCPTH) +
OUTPUT(*OUTFILE) FILEATR(*PF *LF) +
OUTFILE(HAUSMANN/FILDSP)
MONMSG MSGID(CPF3068)
ENDPGM
*****Datenende ****************************************


Dateien am Programm:
************************** Anfang der Daten **********************************
SELECT DISTINCT
-- Spalten
A.WHPNAM, A.WHTEXT, A.WHFNAM, B.ODOBTX, A.WHRFNM, A.WHFUSG, A.WHRFSN,
A.WHOTYP
-- Tabellen
FROM "HAUSMANN"/"DSPPGMREFO" A,
"HAUSMANN"/"DSPOBJDO" B
-- Zeilenauswahl
WHERE (A.WHPNAM LIKE '%relevanter_Teil_OBJ-Name%')
-- Verknüpfungsbedingungen
AND (A.WHFNAM = B.ODOBNM)
-- Sortierspalten
ORDER BY A.WHPNAM, A.WHFNAM, A.WHRFNM
**************************** Ende der Daten **********************************


abhängige Programme
************************** Anfang der Daten **********************************
SELECT DISTINCT
-- Spalten
A.WHPNAM, A.WHTEXT, A.WHFNAM, B.WHTEXT
-- Tabellen
FROM "HAUSMANN"/"DSPPGMREFO" A,
"HAUSMANN"/"DSPPGMREFO" B
-- Zeilenauswahl
WHERE (A.WHFNAM LIKE '%relevanter_Teil_des_Prog-Namens%')
-- Verknüpfungsbedingungen
AND (A.WHFNAM = B.WHPNAM)
**************************** Ende der Daten **********************************

Das ist ein "Tool", das einem oft hilft.

Grüsse Georg