【IT168 服务器学院】AS/400系统里有大量各类消息，应用程序经常会因为意外情况被这些消息所打断，应用程序或者弹出消息窗口，或者在作业状态中报MSGW，等待人工干预。在CL程序里可以使用MONMSG命令来捕捉消息或自动答复消息机制来处理各样的消息，使程序始终能够正确地运行。但在RPG程序里，又怎么捕捉消息然后对消息进行特别处理呢？

　　RPG程序实际主要是对各类各样的文件操作，比如DISK文件(物理文件、逻辑文件)、显示文件、通信文件、打印文件等等。下面以DISK文件为例示范如何在RPG程序里捕捉错误消息。

　　1． 在文件描述规范（F行）里定义INFDS关键词

　　在RPG文件描述规范的关键词里，有一INFDS关键词。这个关键词是用来定义文件信息数据结构的，这个结构对每个文件都是唯一的。里面包含有几种Feedback Information。其中从1-80位是File Feedback Information, 在File Feedback Information的第46-52位定义了Message ID，当对文件操作出现错误消息时，这个错误消息就会保存在这个位置。在数据规范定义（D行）里把INFDS结构里的46-52位定义一变量，这样我们就可以获得错误消息了。下面是F行和D行的示范例子 

　　

代码:

FTESTMSG     O    F 3750        DISK    USROPN           F                                          INFDS(MSGFD)     D MSGFD              DS                         D  MSGID                 46     52

　　2． 在文件描述规范里定义INFSR(*PSSR)关键词

　　实际上如上义后，我们仍然不能捕捉系统错误消息，因为文件出现错误消息后，就会发生以外退出了。在文件规范描述里还有一个INFSR关键词，这个关键词里指定一个子例程，来接收文件意外错误后的控制。这个子例程的名字可以是*PSSR。通常我们是指定这个子例程来对异常错误进行相同的处理。但是如果我们与上面定义的文件信息结构的中MSGID相结合，我们就可以对单独的信息进行特别的处理了，从而实现了对系统消息的捕捉与特别处理。下面是F行改正后例子：

代码:

FTESTMSG     O    F 3750        DISK    USROPN           F                                          INFDS(MSGFD)     F                                          INFSR(*PSSR) D MSGFD              DS                         D  MSGID                 46     52

　　下面是接收错误消息控制的子例程的例子：

代码:

C     *PSSR         BEGSR                                     C     MSGID        IFEQ      ''CPF5006''                         C                   。。。。。             C                   GOTO      XXXTAG                         C                   ENDIF                                       C                   。。。。 ** C                   MOVE      ''*DETC ''      RETURN   **                 (Continue at the beginning) C                   ENDSR     RETURN

　　以下是补充:
　　3 非*PSSR方式

　　*PSSR可以帮助我们在以意外情况下知道是什么错误,但是不知道是在哪里出错.一般情况下我们更需求知道在哪里出错的. 我们可以利用RPG操作码出错指示器来判断,然后也可以判断MSGID,例如:

代码:

C     SWRTFCIF0     BEGSR     C                   WRITE     F_TESTF                               70     C                   IF        *IN70     C                   SELECT      *      *----------------*      * ()      *----------------*     C                   WHEN      MSGID = ''CPF5026'' OR MSGID = ''CPF5009''     C                   MOVEL     *BLANKS       MSGID    ........        *      *-----------------------------*      * (+())      *-----------------------------*     C                   WHEN      MSGID = ''CPF5034''     C                   MOVEL     *BLANKS       MSGID  .........      *     C                   OTHER ........      *     C                   ENDSL     C                   ENDIF     C                   ENDSR      *

　　也可以利用RPG4的Function,例如:

　　CHAIN(E)(e)  somefile
　　IF %ERROR
　　SELECT
　　when msgid = recordlock
　　.....

　　ENDSL
　　ENDIF