可以编写一个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。