RE: Status messages

["Ingvaldson, Scott" <SIngvaldson@xxxxxxxxxxxx>]

This will Display break messages on line 27:

            PGM        PARM(&MSGQ &MSGQLIB &MSGKEY)                  
            DCL        VAR(&MSGQ) TYPE(*CHAR) LEN(10)                
            DCL        VAR(&MSGQLIB) TYPE(*CHAR) LEN(10)             
            DCL        VAR(&MSGKEY) TYPE(*CHAR) LEN(4)               
            DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(132)             
                                                                     
            RCVMSG     MSGQ(&MSGQLIB/&MSGQ) MSGKEY(&MSGKEY) +        
                         RMV(*NO) MSG(&MSGDTA)                       
            SNDPGMMSG  MSGID(CPF9897) MSGF(QCPFMSG) MSGDTA(&MSGDTA) +
                         TOPGMQ(*EXT) MSGTYPE(*STATUS)               
                                                                     
END:        ENDPGM    

Then to use it do CHGMSGQ MSGQ(*USRPRF) DLVRY(*BREAK) PGM(libname/pgmname)

Regards,

Scott Ingvaldson
AS/400 System Administrator
GuideOne Insurance Group)


-----Original Message-----
date: Tue, 6 Apr 2004 08:35:21 -0700 (PDT)
from: "James H H Lampert" <jamesl@xxxxxxxxxxx>
subject: RE: Status messages

> Doesn't quite come with OS/400, but I believe a user written brkmsg
> handler program can be written to resend msgs as status msgs.

Never heard of such a thing, myself, and I've never had to deal with a
break message handler. Any idea where I could find an example?

--
JHHL

   
This message and accompanying documents are covered by the Electronic
Communications Privacy Act, 18 U.S.C. §§ 2510-2521, and contains information
intended for the specified individual(s) only. This information is
confidential. If you are not the intended recipient or an agent responsible
for delivering it to the intended recipient, you are hereby notified that
you have received this document in error and that any review, dissemination,
copying, or the taking of any action based on the contents of this
information is strictly prohibited. If you have received this communication
in error, please notify us immediately by e-mail, and delete the original
message.