Command Analyzer Change Exit Program用法(Exit Program)

Exit Program功能简介:
 are user written extensions to the operating system that
let you impose our own rules over specific areas within the operating system.
Exit programs are integrated with the OS through exit points.

介绍中提到的跳出点(exit points),其在AS400中的作用,适用来监控用户操作,或者某一类事件的发生.
就Command Analyzer Change Exit Program具体来说,其作用更像是一个Trigger.
要利用跳出点,首先需利用命令WRKREGINF在所使用的跳出点注册自己的应用程序.
应用程序接口定义要与跳出点相同.

Command Analyzer Change Exit Program应用程序接口定义示例:

PGM    PARM(&ExitInfo  &NewString   &Newlength)
DCL  &Class       *CHAR   10
DCL  &OffsetDec   *DEC  (7 0)
DCL  &CmdLenDec   *DEC  (7 0)
DCL  &ExitInfo    *CHAR 2000
DCL  &ExitPoint   *CHAR   20
DCL  &ExitFormat  *CHAR    8
DCL  &CmdName     *CHAR   10
DCL  &CmdLib      *CHAR   10
DCL  &Change      *CHAR    1
DCL  &Prompt      *CHAR    1
DCL  &Filler      *CHAR    2
DCL  &Offset      *CHAR    4
DCL  &CmdLength   *CHAR    4
DCL  &CmdString   *CHAR  290
DCL  &NewString   *CHAR 2000
DCL  &NewLength   *CHAR    4

CHGVAR  &ExitPoint  %SST(&ExitInfo   1  20)
CHGVAR  &ExitFormat %SST(&ExitInfo  21   8)
CHGVAR  &CmdName    %SST(&ExitInfo  29  10)
CHGVAR  &CmdLib     %SST(&ExitInfo  39  10)
CHGVAR  &Change     %SST(&ExitInfo  49   1)
CHGVAR  &Prompt     %SST(&ExitInfo  50   1)
CHGVAR  &Filler     %SST(&ExitInfo  51   2)
CHGVAR  &Offset     %SST(&ExitInfo  53   4)
CHGVAR  &CmdLength  %SST(&ExitInfo  57   4)
CHGVAR  &CmdLenDec  %BIN(&Cmdlength)
CHGVAR  &STRLEN     %BIN(&Cmdlength)
CHGVAR  &OffsetDec  (%BIN(&Offset) + 1)   /* Set offset */
CHGVAR  &CmdString  %SST(&ExitInfo &OffsetDec &CmdLenDec)

Thanks Rich Loeber from search400.