关于CLLE的困惑

happenZheng

最近，想写个CL程序来编译自己写的几个RPGLE程序．还没写，就头痛了．
问题1：编译PF文件A，我用crtpf命令，但，因为我不确定目标库中，是否有已存A的编译文件，
　　　　又crtpf命令没有replace选择，所以，我不知该怎么办了？
　　　　　或是，有其他的编译命令语句；或是，有可以判断该编译文件是否存在的语法？

问题2：在一个CL中，用什么语句可以判断一个文件(已知道类型跟名称)是否已存在于指定库中？



适云而存

jiangyuyun

在CL中，可以使用DLTF来删除已存在的PF；可以用CHKOBJ来检查指定OBJECT是否存在某个库中。

niuhua77

CHKOBJ 然后MONMSG(CPF9801)

happenZheng

回复 3# niuhua77

不是，我想实现的，是，写一个CLLE 程序对文件进行编译。而对于编译PF文件，CRTPF命令　没有replace(*YES)这一选项。而当原来，那个PF文件已存在时，再进行CRTPF，则程序会出错。而对于编译RPGLE程序，　有命令CRTRPGMOD有　replace module 这一选项。
所以，对于PF文件的编译，我想到的，就是先判断，该编译文件是否已存在，如果存在，则进行删除再编译。

而你说的，虽能够记录该信息，并进行通知，但这其中，还是需要人进行干预。而目前，我只想对多个文件进行编译，而那些文件，是已被证明语法无错的了。


   

happenZheng

而对于CHKOBJ这一命令，可以加上 IF　－　ELSE 这种结构进行判断吗？

roden

可以先使用DLTF，再CRTPF。
不过如果PF有LF的话，要先删除对应的LF，

winner_530

步骤如下：

1、CHKOBJ，确定你的目标是否存在，通过MONMSG来判断；
2、如果存在则DLTF；
3、如果不存在则CRTPF；

关键是通过MONMSG来截获命令反馈的错误信息，通过错误信息来确定是存在还是不存在。

happenZheng

回复 7# winner_530

看来，真的是monmsg了，之前一直没用过这个命令．明天去公司试试．


   

happenZheng

chkobj  OBJ() OBJTYPE()
monmsg  CPF9801  exes(goto  notfound)
  
notfound:     /*code*/