Re: Convert break message to status message

PHIL HALL @ SSA
06/16/97 01:58 PM



Andre Nortje wrote:
>
> I believe you could change a break message to a program status
> message, so your typing is not interrupted when in SEU. Anyone has
> the code for this?

Andre,


Source for msghdlr



pgm (&msgq &msglib &msgkey)
dcl    &red  *char 2 X'28'
dcl    &ylw  *char 2 X'32'
dcl    &msgid *char 7
dcl    &msgq *char 10
dcl    &msglib *char 10
dcl    &msgkey *char 4
dcl    &msgtxt *char 512

rcvmsg   msgq(&msglib/&msgq)  +
       msgkey(&msgkey)        +
          rmv(*no)       +
          msg(&msgtxt)        +
        msgid(&msgid)

monmsg cpf0000 exec(do)
               dspmsg &msglib/&msgq
                return
             enddo

chgvar &msgtxt (&red || &msgtxt)

sndpgmmsg   msgid(cpf9897)    +
             msgf(qcpfmsg)    +
           msgdta(&msgtxt)    +
           topgmq(*ext) +
          msgtype(*status)
monmsg cpf0000

endpgm

Compile program and set your msgq by using :-

chgmsgq msgq(**-your-user-id-**) dlvry(*BREAK) pgm(*-your-lib-*/msghdlr)

This simple example will resend BREAK messages  to  your userid (user) as a
 status msg at the bottom of the screen in red text.

It will not catch SNDBRKMSG messages to your device message queue :-(

Phil.
phall


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *