检索 DFRWRT 编译参数

Question

我想检索AS400上的DSPF(显示文件(是否已使用DFRWRT(*NO)关键字编译。我尝试了QDFRTVFD API(检索显示文件描述(，但该 API 没有返回适当的信息。有没有其他方法可以获取此信息？

Answer 1

我找不到API，但是您可以使用TYPE(*ATR)和OUTPUT(*OUTFILE)运行DSPFD命令。延迟写入标志将位于字段 DSWTPT 中。

如果您运行如下内容：

DSPFD FILE(DFLIB/*ALL) TYPE(*ATR) OUTPUT(*OUTFILE) FILEATR(*DSPF) OUTFILE(MYLIB/DFATR)

然后，您可以使用SQL查找所有显示文件，DFRWRT(*NO)如下所示：

select * 
  from mylib/dfatr
  where dswtpt = 'N'

当然，更改库以匹配您的系统;-(