Coding Each AOF Rule Type › OMEGAMON Rules › Example: OMG Rule

Example: OMG Rule

The following is an example of a rule that responds to an OMEGAMON event. The rule cancels or stops any job that exceeds the exception limit.

)OMG NVSC
 )PROC
 /* Extract the type of address space that generated the */
 /* NVSC exception and the associated JOBNNAME. Issue    */
 /* the appropriate command to terminate the address     */
 /* space based on the type of address space.            */

 ADDRTYPE = WORD(OMG.TXT,2)
 JOBN = WORD(OMG.TXT,3)
 address OPER            /* Send Host commands to OPER env */
 select
  when (ADDRTYPE = 'STC') then
   'P 'JOBN
  when (ADDRTYPE ='BAT') then
   'C 'JOB
  otherwise
   'C U='JOBN
 end
 )END