可以编写一个CLP程序实现统计某台AS/400中有多少个library,程序的内容如下： 程序名：countlib,类型：CLP。 FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ... *************** Beginning of data ************************** 0001.00 PGM 0002.00 DSPOBJD OBJ(*ALL) OBJTYPE(*LIB) OUTPUT(*OUTFILE) + 0003.00 OUTFILE(XQLIB/OUTPUTS) 0004.00 RUNQRY QRYFILE((XQLIB/OUTPUTS)) OUTTYPE(*PRINTER) + 0005.00 OUTFORM(*SUMMARY) 0006.00 ENDPGM ****************** End of data ***************************** 编译，执行后，生成一个SPOOL FILE,名称为：QPQUPRFIL，可以用WRKSPLF查看。 *..+..1..+..2..+..3..+..4..+..5..+..6..+..7..+..8..+..9 FILE LIBRARY MEMBER FORMAT OUTPUTS XQLIB OUTPUTS QLIDOBJD DATE . . . . . . . . 12/20/03 TIME . . . . . . . . 14:33:30 12/20/03 14:33:30 PAGE 1 FINAL TOTALS COUNT 303 * * * E N D O F R E P O R T * * * 结果显示系统中有303个library。