我写的一个工具ListObjs

ux400

用法举例如：CALL LISTOBJS PARM('2' QSYSINC *ALL *ALL)

结果举例如下：
--- Input Parameters: QSYSINC/*ALL OBJTYPE(*ALL)
Seq |Library   |Object    |Type      |Attribute |Creation date time     |Change date time       |SrcFileLib|SourceFile|Source Mbr|SrcFile UpdateTime |RecLen|Text
   1|QSYSINC   |QP5EXLNK  |*PGM      |CPPLE     |2005-08-24 11:47:14.010|2008-02-15 14:58:40.369|          |          |          |    -  -     :  :  |     0|
   2|QSYSINC   |QXICEXIT  |*PGM      |          |2005-08-23 16:01:22.010|2008-02-15 14:58:40.347|          |          |          |    -  -     :  :  |     0|
   3|QSYSINC   |QXICMRM1  |*PGM      |CLP       |2005-08-24 11:47:29.010|2008-02-15 14:58:40.539|BLDSS1   |S000052641|S000052641|2005-08-23 16:05:05|     0|
   4|QSYSINC   |QXICMRM2  |*PGM      |CLP       |2005-08-24 11:47:39.010|2008-02-15 14:58:40.742|BLDSS1   |S000052198|S000052198|2005-08-23 15:57:59|     0|
   5|QSYSINC   |QXICSL03  |*PGM      |CLLE      |2005-08-24 11:47:22.010|2008-02-15 14:58:40.533|          |          |          |    -  -     :  :  |     0|
   6|QSYSINC   |ARPA      |*FILE     |PF-SRC    |2005-08-24 11:08:28.010|2008-02-15 14:59:22.258|          |          |          |    -  -     :  :  |    92|DATA BASE FILE FOR ARPA INCLUDES
                       Seq|Member    |Type      |Creation date time |Last source change |Text
                         1|INET      |          |2005-08-24 11:09:08|2005-08-24 11:09:10|
                         2|NAMESER   |          |2005-08-24 11:45:29|2005-08-24 11:45:30|
                         3|REXEC     |CLE       |2005-08-24 11:10:06|2005-08-24 11:10:07|REMOTE EXECUTION APIS
    :--- Total members = 3.
   7|QSYSINC   |H         |*FILE     |PF-SRC    |2005-08-24 11:08:27.010|2008-02-15 14:59:22.260|          |          |          |    -  -     :  :  |    92|DATA BASE FILE FOR C INCLUDES
                       Seq|Member    |Type      |Creation date time |Last source change |Text
                         1|ARM4      |CLE       |2005-08-24 11:10:06|2005-08-24 11:10:07|ARM APIS
                         2|ARM4EXT   |CLE       |2005-08-24 11:10:07|2005-08-24 11:10:10|EWLM EXTENSIONS TO ARM APIS
                         3|ASSERT    |CLE       |2005-08-24 11:10:06|2005-08-24 11:10:08|STANDARD HEADER FILE ASSERT
                         4|BCD       |CPP       |2005-08-24 11:10:07|2005-08-24 11:10:08|C++ HEADER
                         5|BSE       |CLE       |2005-08-24 11:10:07|2005-08-24 11:10:17|BASE DEFINITIONS FOR APPLICATIONS OS/2
                         6|BSEDOS    |CLE       |2005-08-24 11:10:07|2005-08-24 11:10:19|BASE DEFINITIONS FOR APPLICATIONS OS/2
                         7|BSEERR    |CLE       |2005-08-24 11:10:08|2005-08-24 11:10:17|ERROR CODE DEFINITIONS FOR APPLICATIONS OS/2
                         8|CDRCVRT   |CLE       |2005-08-24 11:10:10|2005-08-24 11:10:16|CONVERT GRAPHIC CHARACTER STRINGS
                         9|CDRGCCN   |CLE       |2005-08-24 11:10:10|2005-08-24 11:10:13|GET CCSID FOR NORMALIZATION
                        10|CDRGESP   |CLE       |2005-08-24 11:10:10|2005-08-24 11:10:16|GET ENCODING SCHEME
                        11|CDRGRDC   |CLE       |2005-08-24 11:10:08|2005-08-24 11:10:18|GET RELATED DEFAULT CCSID
                        12|CDRSCSP   |CLE       |2005-08-24 11:10:09|2005-08-24 11:10:15|GET SHORT FORM CCSID
                        13|CMC       |CLE       |2005-08-24 11:10:10|2005-08-24 11:10:16|CPI-C INCLUDE MEMBER FOR C
                        14|COMPLEX   |CPP       |2005-08-24 11:10:11|2005-08-24 11:10:16|C++ HEADER
                        15|CTYPE     |CLE       |2005-08-24 11:10:10|2005-08-24 11:10:21|STANDARD HEADER FILE CTYPE
                        16|CXXABI    |CPP       |2005-08-24 11:10:10|2005-08-24 11:10:15|C++ HEADER
                        17|DECIMAL   |CLE       |2005-08-24 11:10:10|2005-08-24 11:10:15|STANDARD HEADER FILE DECIMAL
                        18|DELETE    |CPP       |2005-08-24 11:10:11|2005-08-24 11:10:13|C++ HEADER
                        19|DEMANGLE  |CPP       |2005-08-24 11:10:11|2005-08-24 11:10:13|C++ HEADER
                        20|DIRENT    |          |2005-08-24 11:10:12|2005-08-24 11:10:14|
                        21|DSQCOMMC  |CLE       |2005-08-24 11:10:12|2005-08-24 11:10:14|QUERY MANAGER INCLUDES
......

    :--- Total members = 1006.
   8|QSYSINC   |HPP       |*FILE     |PF-SRC    |2005-08-24 11:08:27.010|2008-02-15 14:59:22.155|          |          |          |    -  -     :  :  |   132|DATA BASE FILE FOR HPP INCLUDES
                       Seq|Member    |Type      |Creation date time |Last source change |Text
......
  53|QSYSINC   |UNISAVE   |*FILE     |SAVF      |2005-08-12 07:28:15.010|2008-02-15 14:58:42.059|          |          |          |    -  -     :  :  |     0|
  54|QSYSINC   |UNISAVE24 |*FILE     |SAVF      |2003-01-23 19:44:48.010|2008-02-15 14:58:42.059|          |          |          |    -  -     :  :  |     0|
  55|QSYSINC   |UNISAVE26 |*FILE     |SAVF      |2003-06-25 08:57:04.010|2008-02-15 14:58:42.059|          |          |          |    -  -     :  :  |     0|
  56|QSYSINC   |UNISAVE32 |*FILE     |SAVF      |2005-04-29 08:24:45.010|2008-02-15 14:58:42.059|          |          |          |    -  -     :  :  |     0|
  57|QSYSINC   |UNISAVE34 |*FILE     |SAVF      |2005-08-12 07:28:22.010|2008-02-15 14:58:42.059|          |          |          |    -  -     :  :  |     0|
  58|QSYSINC   |QXIC1350  |*PRDLOD   |          |2005-08-24 11:08:33.010|2008-02-15 15:01:17.707|          |          |          |    -  -     :  :  |     0|
:--- end.

FTP 拿下来用EXCEL加工一下，便于开发者整理文档。

qingzhou

格式乱了，没看明白这个工具用途。

ux400

拷贝、粘贴到记事本里就不乱了。
获得某个Lib下Object的信息，如：名称,Type,Attribute,Creation datetime,Change datetime,SrcFileLib,SourceFile,SourceMbr,SrcFileUpdateTime,FILE的记录长度,Text 等等
程序运行后生成SRCPF文件在QTEMP下，可以FTP 到PC上，用EXCEL加工
便于生成文档

qingzhou

可以直接使用 ===> DSPOBJD OBJ(LIB/*ALL) OBJTYPE(*ALL) OUTPUT(*OUTFILE) OUTFILE(LIB/XXX)提取objects信息啊。

coolk_wb

ux400

原帖由 qingzhou 于 2009-4-30 16:47 发表
可以直接使用 ===> DSPOBJD OBJ(LIB/*ALL) OBJTYPE(*ALL) OUTPUT(*OUTFILE) OUTFILE(LIB/XXX)提取objects信息啊。

对，不过 DSPOBJD 的输出OUTFILE是PF-DTA，我的是PF-SRC，可以通过FTP直接下载。
DSPOBJD 的输出我没发现有*FILE的记录大小，我的有。
另外我的程序还列出*FILE中的member信息，DSPOBJD 的输出没发现。
总之，自己写的程序，调用API，可以定制自己需要的信息。

zr810421

我想请教一下，为什么有的pgm， source member这列没有值呢？知道为什么吗？还有change date time 这列是什么意思，你取得是srcdate吗？这个和我现在的问题有关系，谢谢了

ux400

原帖由 zr810421 于 2009-5-7 15:13 发表
我想请教一下，为什么有的pgm， source member这列没有值呢？知道为什么吗？还有change date time 这列是什么意思，你取得是srcdate吗？这个和我现在的问题有关系，谢谢了

我用的是 QUSLOBJ ， OBJL0700 格式取得的信息。用 C 写的。用 CL 或 RPG 也可以调用该API。
好象CLP编译的*PGM才有source member 等信息