Re: Global MONMSG and SNDPGMMSG *ESCAPE

[Charles Wilt <charles.wilt@xxxxxxxxx>]

What's the message?

Charles

On Wed, Jan 10, 2018 at 10:39 AM, <dlclark@xxxxxxxxxxxxxxxx> wrote:

>         Are there documented circumstances where an escape message sent by
> SNDPGMMSG would *not* trigger the action defined by the global MONMSG
> specified at the beginning of the CL program?  I have one that is doing
> that and I want to know what I have to change to make it honor the global
> MONMSG.  The global MONMSG and the SNDPGMMSG are coded as follows.
>
>
> MONMSG     MSGID(CPD0000 CPE0000 CPF0000 MCH0000 WSE0000) +
>              EXEC(GOTO CMDLBL(ABORT))
>
>
> CHKOBJ     OBJ(&LIBOPT/IMLFDTLV02) OBJTYPE(*FILE)
> MONMSG     MSGID(CPF9801 CPF9802 CPF9810) EXEC(DO)
>    SNDPGMMSG  MSGID(WSE9897) MSGF(&MSGFLIB/&MSGF) +
>                 MSGDTA('No access to data library' *BCAT +
>                 &LIBOPT *BCAT 'or no LIFO detail +
>                 file.') MSGTYPE(*ESCAPE)
> ENDDO
>
>
> Sincerely,
>
> Dave Clark
> --
> int.ext: 91078
> direct: (937) 531-6378
> home: (937) 751-3300
>
> Winsupply Group Services
> 3110 Kettering Boulevard
> Dayton, Ohio  45439  USA
> (937) 294-5331
>
>
>
> ************************************************************
> *********************************
> This email message and any attachments is for use only by the named
> addressee(s) and may contain confidential, privileged and/or proprietary
> information. If you have received this message in error, please
> immediately notify the sender and delete and destroy the message and all
> copies. All unauthorized direct or indirect use or disclosure of this
> message is strictly prohibited. No right to confidentiality or privilege
> is waived or lost by any error in transmission.
> ************************************************************
> *********************************
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: http://amzn.to/2dEadiD