)MSG OPS1370O NOOPSLOG
/*---------Language: OPS/MVS RULES----------------------------$$PROLOG*/
/*     Program Name: OPS1370                                          */
/*      Description: Suppress msg OPS1370 from OPSLOG, SYSLOG, JOBLOG.*/
/* OPS1370H OPSMAIN  X'0000' X'0000' X'0200'  0  300 MSGID TEXT       */
/*    Customization: None                                             */
/* Related Routines: None                                             */
/*     Base Release: CA-OPS/MVS 3.2                                   */
/*     Restrictions: Will suppress from JOBLOG only if SSIMSG=YES.    */
/*       Change log: Add new entries to the top                       */
/*-----------------Changed 03/17/1999 by: Bob Stark ------------------*/
/* 1. Initial coding                                                  */
/*--------------------------------------------------------------------*/
/* Copyright (C) 1999 ProTech Professional Technical Services. No war-*/
/* ranty expressed or implied. Permission to use, copy, and distribute*/
/* this document without fee is hereby granted, provided that this    */
/* copyright notice appear in all copies.  Permission to modify the   */
/* code is granted, but not the right to distribute the modified code,*/
/* which should be returned to the maintainer for inclusion into the  */
/* distributed version.  Contacts: 412-373-8855  www.protechpts.com   */
/*--------------------------------------------------------------------*/
)INIT
CALL OPSPRM 'SET','OPS1370','O'    /* OPS1370='O', so rule fires      */
)PROC
msg.joblogsup = 1                  /* Remove from batch job log       */
RETURN    "DELETE"                 /* Remove from SYSLOG              */