错误处理 G -- Continue processing at *GETIN.具体含义是什么

tomroom

一个程序执行报错,由于 在delete之前 chain的时候 该条记录已经被其他程序锁,导致delete报错如下
G -- Continue processing at *GETIN.具体含义是什么 跳过错误继续执行?

                         Additional Message Information                        
                                                                                
Message ID . . . . . . :   RPG1221       Severity . . . . . . . :   99         
Message type . . . . . :   Inquiry                                             
Date sent  . . . . . . :   06/01/04      Time sent  . . . . . . :   17:04:26   
                                                                                
Message . . . . :   RCA002 26400 issued update or delete in RCA001WK without   
   prior READ or CHAIN (C G S D F).                                             
Cause . . . . . :   The RPG program RCA002 in library MM4R4PGM at statement   
   26400 tried to update or delete a record in file RCA001WK without a previous
   READ or CHAIN. The actual file is  MM4R4LIB/RCA001WK MEMBER - RCA001WK.      
Recovery  . . . :   Enter C to cancel, G to continue processing at *GETIN, S   
   to obtain a system dump, or D to obtain an RPG formatted dump.               
Possible choices for replying to message . . . . . . . . . . . . . . . :      
   D -- Obtain RPG formatted dump.                                             
   S -- Obtain system dump.                                                     
   G -- Continue processing at *GETIN.                                          
                                                                        More...
Type reply below, then press Enter.                                            
Reply  . . . .                                                                 
                                                                                
F3=Exit   F6=Print   F9=Display message details                                
F10=Display messages in job log   F12=Cancel   F21=Select assistance level

sunokla

意思可能是在当前模块得到输入记录例程继续执行.选择它我理解就会跳回当前模块继续执行,不过这样还会出错.

你可以使用程序信息状态结构,在模块中做个错误处理子例程.  如果是记录锁定,再采取相应动作...这个因人而异..

liu__jiang

原帖由 tomroom 于 2006-1-5 14:40 发表
一个程序执行报错,由于 在delete之前 chain的时候 该条记录已经被其他程序锁,导致delete报错如下
G -- Continue processing at *GETIN.具体含义是什么 跳过错误继续执行?

                         Addition ...

看原因是你在UPDATE和DELETE前没有先去CHAIN这条记录，那他怎么去更新和删除呢？ 请确定是否之前CHAIN了，而且必须CHAIN的还是RCD而不是FILE；再有就是你说的已经锁了，可以手动解锁啊，UNLOCK  FILE。