如何获得在As400中使用相同物理文件的程序列表?

Question

例如，TESTPF是一个文件，并且在PGM1中使用，PGM2.....PGM10。如果我想获得所有这些程序名称的列表，是否有任何命令或方法来获得该列表?

Answer 1

是。命令为DSPPGMREF。该命令返回(或返回到屏幕，或返回到输出文件)一个程序引用的所有程序和文件。您可以对库中的所有程序运行此命令并输出到一个文件，然后查询该文件以查找引用给定文件的所有程序。

DSPPGMREF PGM(MYLIB/*ALL)        
OUTPUT(*OUTFILE)       
OBJTYPE(*ALL)          
OUTFILE(MYLIB/MYLIBREF)

:

SELECT WHLIB, WHPNAM
FROM MYLIB/MYLIBREF
WHERE WHFNAM = 'TESTPF'

注意:如果使用逻辑文件，引用的文件名将是逻辑文件，而不是物理文件。

Answer 2

查看显示程序引用(DSPPGMREF)命令

输出结果到一个文件，OUTPUT(*FILE)，您可以使用SQL查询它。