RE: SNDBRKMSG is not going away..

["Phil" <sublime78ska@xxxxxxxxx>]

It's probably in every msgq for every display.  I have a pgm which clears
them all:

pgm
             DCLF       FILE(QADSPOBJ) RCDFMT(QLIDOBJD)
             OVRDBF     FILE(QADSPOBJ) TOFILE(QTEMP/OBJLIST)

             DSPOBJD    OBJ(QSYS/*ALL) OBJTYPE(*MSGQ) +
                          OUTPUT(*OUTFILE) OUTFILE(QTEMP/objlist)
 READ:       RCVF       RCDFMT(QLIDOBJD)
             MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(END))
             IF         COND(%SST(&ODOBNM 1 3) *EQ 'QPA') THEN(DO)
             CLRMSGQ    MSGQ(&ODLBNM/&ODOBNM)
             enddo
             GOTO       CMDLBL(READ)
 END:        ENDPGM

Phil



> -----Original Message-----
> From: midrange-l-admin@midrange.com
> [mailto:midrange-l-admin@midrange.com]On Behalf Of Basit Khan
> Sent: Wednesday, October 17, 2001 1:31 PM
> To: 'midrange-l@midrange.com'
> Subject: SNDBRKMSG is not going away..
>
>
> One of my users have sent a SNDBRKMSG to all workstations - for
> some reason
> that message appears every time someone signs on to a new
> session. Yes , we
> have removed the message from the current session but for some reason when
> we sign on again   it comes back.
>
> Any idea? Thanks
>
> B Khan
> Going somewhere? try http://www.medexassist.com
>
>
>
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L)
> mailing list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com