如何在AS400系统中获取使用同一物理文件的所有程序列表

以下是两种常用的无额外工具依赖的实现方案：

• 方案1：使用系统自带DSPPGMREF命令查询
  这是最常用的原生查询方案，该命令可以直接扫描程序的静态引用关系，输出所有关联指定物理文件的程序列表。你可以直接运行以下命令将结果输出到当前屏幕查看：

  DSPPGMREF PGM(*ALL/*ALL) OBJ(*LIBL/TESTPF) OUTPUT(*)
  

  如果你需要对结果做二次筛选，可以把输出导出到自定义物理文件中：

  DSPPGMREF PGM(*ALL/*ALL) OBJ(*LIBL/TESTPF) OUTPUT(*OUTFILE) OUTFILE(自定义库名/自定义输出文件名)
  

  后续直接查询你指定的输出文件，即可获取所有引用程序的名称、所属库、编译时间等完整信息。
  如果已知关联程序的所属库范围，可以将PGM参数的第一个*ALL替换为对应的库名，大幅提升扫描速度。
• 方案2：使用SQL查询系统视图
  如果你更习惯用SQL操作，可以查询QSYS2/SYSPGMREF系统视图实现查询，示例语句如下：

  SELECT DISTINCT PGM_LIB, PGM_NAME FROM QSYS2.SYSPGMREF 
  WHERE OBJ_NAME = 'TESTPF' AND OBJ_TYPE = '*FILE'
  

注意：以上两种方案都仅能捕获静态绑定的文件引用，如果程序中是通过动态拼接文件名字符串、动态执行命令等方式引用TESTPF，静态查询无法识别这类关联，需要结合业务代码排查或运行时跟踪确认。

内容的提问来源于stack exchange，提问作者Mahesh