检查库是否存在

zuozhenglin

请问各位，在CL中怎样检查一个库是否存在？

xuguopeng

CHKOBJ

qingzhou

这个看你在程序中执行什么CL命令时需要检测是否存在LIB，比如：CPYF时，如果找不到LIB会提示：CPF9810错误信息；DLTLIB删除LIB时，如果找不到LIB会提示：CPF2110错误信息，所以无法正面回答你的问题。

当你检测到错误信息后（如执行CPYF时出错：CPF9810），可以在CL程序中添加如下语句来进行监控并采取措施：

1. 
   
2. MONMSG     MSGID(CPF9810) EXEC(CRTLIB LIB(TEST) TEXT('MY TEST LIB'))
   

复制代码

zuozhenglin

想做一个CL程序来检查某个库是否存在，然后对库里面的对象进行处理。
经楼上两位提醒，知道怎么处理了，周一回公司试试。多谢！

另外， qingzhou 大哥，再想向你请教一个问题，上次在你的贴子中有提到用Websphere处理rpg程序，我试过了，有些功能很好用，但却好像不好编译，能给小弟讲讲吗？

qingzhou

时间过去那么久了，帖子链接帖出来看看是咋回事。

哦、是CODE/400的使用吗？

zuozhenglin

没错，就是CODE/400的使用
http://chinaunix.net/jh/10/462260.html

qingzhou

原帖由 "zuozhenglin" 发表：
..........
另外， qingzhou 大哥，再想向你请教一个问题，上次在你的贴子中有提到用Websphere处理rpg程序，我试过了，有些功能很好用，但却好像不好编译，能给小弟讲讲吗？

“好像不好编译”什么意思啊？不明白~~~