原文:
http://bbs.chinaunix.net/viewthread.php?tid=604308&extra=page%3D3%26amp%3Bfilter%3Ddigest
1、先通过DSPPGMREF创建交叉引用文件,例如本地ERP系统的LIB:R21AMLBE。
DSPPGMREF PGM(R21AMLBE/*ALL) OUTPUT(*OUTFILE) OUTFILE(QTEMP/RESULT)
2、然后WRKQRY对QTEMP/RESULT文件进行选择需要显示查询结果的字段、以及筛选WHSNAM=PF/LF(例如:在库PF文件:MJINVP),就可以罗列出所有调用PF/LF文件的程序清单。
SELECT * FROM QTEMP/RESULT WHERE WHFNAM="MJINVP" and WHOBJT='F'