Luk*_*ani 1 sql-server rpg ibm-midrange
我不是AS400的专家,只知道一些命令,我将AS400(iSeries)中的一些文件导出到SQL Server 2005中.
实际上我需要知道哪个RPG程序在库中创建了一个文件.这是因为该文件包含存储在其他AS400库中的其他文件的统计数据.
此屏幕截图显示了STTMVF
库中的文件DAT_4DWH
(by DSPLIB DAT_4DWH
)
所以有一个命令让我知道哪个RPG程序创建了文件STTMVF?
如果是,我需要打开源RPG或CL并尝试了解哪些物理文件用于组成此统计文件.
提前致谢!
要创建基本日志,您需要创建日志接收器,日志,并激活该文件的日志记录.将RECEIVER-LIB,RECEIVER-FILE,JOURNAL-LIB,JOURNAL-FILE,FILE-LIB和FILE替换为适合您系统的值.
CRTJRNRCV JRNRCV(RECEIVER-LIB/RECEIVER-FILE)
CRTJRN JRN(JOURNAL-LIB/JOURNAL-FILE) JRNRCV(RECEIVER-LIB/RECEIVER-FILE)
STRJRNPF FILE(FILE-LIB/FILE) JRN(JOURNAL-LIB/JOURNAL-FILE) OMTJRNE(*OPNCLO)
Run Code Online (Sandbox Code Playgroud)
DSPJRN JRN(JOURNAL-LIB/JOURNAL-FILE) FILE(FILE-LIB/FILE) RCVRNG(*CURCHAIN) JRNCDE(R) ENTTYP(PT PX DL UP) OUTPUT(*OUTFILE) OUTFILFMT(*TYPE1) OUTFILE(QTEMP/QADSPJRN)
Run Code Online (Sandbox Code Playgroud)
该字段JOPGM
将包含从文件中插入,更新或删除记录的程序名称.
ENDJRNPF FILE(FILE-LIB/FILE)
DLTJRN JRN(JOURNAL-LIB/JOURNAL-FILE)
Run Code Online (Sandbox Code Playgroud)
DSPPGMREF PGM(*ALLUSR/*ALL) OUTPUT(*OUTFILE) OUTFILE(QTEMP/QADSPPGM)
Run Code Online (Sandbox Code Playgroud)
在文件中搜索字段WHFNAM
等于FILE的所有引用.该字段WHPNAM
将包含程序名称.由于文件覆盖等,此方法不如使用日志那么准确.
归档时间: |
|
查看次数: |
1494 次 |
最近记录: |