关于批量自动编译

afeng8848

经过测试，对于编译通过的程序能够很好执行，但一旦编译不通过，就会出错，是否我要捕获所有编译出错的信息并作处理呢？有没有一种方法能够直接判断编译是否通过呢？我应该怎么判断编译是否通过？

afeng8848

问大家个问题：MONMSG     MSGID(CPF0000) EXEC(GOTO ERROR) 这句是监控所有的出错信息吗？

SNDPGMMSG  MSGID(&MSGID) MSGF(*LIBL/QCPFMSG)  MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE) 中的"*ESCAPE"是表示提示出错信息并中断程序吗？如果我只是想记录出错信息而不希望程序中断下来，该怎么写呢？

afeng8848

can anyone give some advice?

afeng8848

Message ID . . . . . . :   QRG9001       Severity . . . . . . . :   00        
Message type . . . . . :   Escape                                             
Date sent  . . . . . . :   07/10/28      Time sent  . . . . . . :   20:58:11  
                                                                              
Message . . . . :   Text not available for message QRG9001 file QCPFMSG.      
Recovery  . . . :   Add the message description (ADDMSGD) to the message file.
   If this is an inquiry message and you need to reply to it, attempt to enter
  a valid reply (if you know what it is for this message ID). Otherwise, enter
  *N for the system default, or delete the message and the system default will
  be sent.                  



i just got this error when i run the program and i don't know what  the problem is,can any one help me?

[ 本帖最后由 afeng8848 于 2007-10-28 21:03 编辑 ]

fairyboy

MONMSG     MSGID(CPF0000) EXEC(GOTO ERROR) 这句是监控所有的出错信息吗？

这句是当程序发生异常错误时,不让程序DOWN.而影响下面的程序语句执行.

GOTO ERROR标记,执行下面语句

有个CL命令,是针对某个MSGID出现时,系统作出如何操作的设置的.

afeng8848

谢谢楼上的，不过现在在运行时如果编译出错就会提示Text not available for message QRG9001 file QCPFMSG，此问题一直没搞明白原因是什么，该如何解决这个问题呢？

fairyboy

我也没遇到过这样的问题，要不你去试试

用ADDMSGD,把这个MSGID的TXET输入进去看看.

再不行,先确定这个MSGID

ADDRPYLE  MSGID(QRG9001) RPY(*DFT)  DUMP(*YES)

fairyboy

目前身边没有环境可以试,只能靠猜测了,不好意思

afeng8848

还是非常感谢！经过高人指点，在RPG程序里加了错误捕获，已经解决了，程序可以达到预期的效果，现在麻烦又来了，编译出错的程序有几百个，我都记录到数据库里了，如何根据RPG程序找到相应的CL程序啊，一个一个FNDSTRPDM好象太慢了，头又大了.........

fzrxh

afeng阿
大概和你说一下

用dsppgmref 你source所有的cl，当然如果有你缩小了范围的cl更好，导出形成文件  （也许你系统原来就有呢）

导出的文件里面包含每个cl用到的file 和pgm

用你的编译出错的程序去chain 刚才导出的文件（建立一个lf以用到的object为关键字）

找到了就将cl写到另外的pf 就好了

不明白的地方晚上上线联系我