Re: monmsg in clp pgm questions

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

M
Hello David, and Kerwin,

Funny, this doesn't look like RPG to me!  However, it is possible to monitor 
for *DIAG 
messages if the command processing program has been properly written.

CPYF is one of the few IBM commands that uses diagnostic messages properly.  
CPYF sends a 
single *ESCAPE message and supplies the message ID of the diagnostic message in 
the message 
data.  You can simply compare the message data and execute the appropriate 
block of code.  
There are 93 or so possible *DIAG message IDs sent prior to the CPF2817 *ESCAPE 
message.

While receiving the diagnostic messages will work, the proper method in this 
case is to use 
the CMPDTA keyword and get the MONMSG to test for the specific *DIAG message.  
So your code 
should look like:

 CPYF       FROMFILE(FROMLIB/FROMFILE) +                  
              TOFILE(TOLIB/TOFILE) FROMMBR(*FIRST) +    
              TOMBR(*FIRST) MBROPT(*REPLACE) CRTFILE(*NO) 
 MONMSG     MSGID(CPF2817) CMPDTA(CPF2869) EXEC(DO)
   /* Handle empty from-file */
 ENDDO
 MONMSG     MSGID(CPF2817) CMPDTA(CPF2861) EXEC(DO)
   /* Handle whatever */
 ENDDO
 MONMSG     MSGID(CPF0000) EXEC(DO)
   /* Handle anything else */
 ENDDO

The final MONMSG for CPF0000 should really be caught by your global exception 
handler.  And 
the less said about that GOTO monstrosity you used the better!!!!

See the Data Management Guide (Chapter 4.1.4) for more information.

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
//--- forwarded letter -------------------------------------------------------
> X-Mailer: Novell GroupWise Internet Agent 5.5.2.1
> Date: Wed, 29 Dec 1999 16:00:13 -0700
> From: "David Morris" <dmorris@plumcreek.com>
> To: RPG400-L@midrange.com
> Reply-To: RPG400-L@midrange.com
> Subject: monmsg in clp pgm questions

> 
> Kerwin,
> 
> I don't believe that you can monitor for those messages because 
> they are sent as diagnostics.  You should be able to do something 
> like:
> 
> RCVMSG MSGTYPE(*LAST/*DIAG) RMV(*NO) MSGID(&MSGID)
> IF    (&MSGID *EQ 'CPF2869') THEN(GOTO TAG1)...
> 
> David Morris
> 
> 
> >>> crawfork@toastmaster.com 12/29/99 03:21PM >>>
> I have a clp program that has a command in it that I am doing a monmsg.  I 
>want to do 
different things for each message.  I am having problems with it.  This is the 
code that I am 
using.  Am I doing this correctly?  It appears to only be looking at the 
cpf0000 part.
>  
> CPYF       FROMFILE(FROMLIB/FROMFILE) +                  
>              TOFILE(TOLIB/TOFILE) FROMMBR(*FIRST) +    
>              TOMBR(*FIRST) MBROPT(*REPLACE) CRTFILE(*NO) 
> MONMSG     MSGID(CPF2869) EXEC(GOTO CMDLBL(TAG1))  
> MONMSG     MSGID(CPF2861) EXEC(GOTO CMDLBL(TAG2)) 
> MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(TAG3))
> 
> TIA
> 
> Kerwin S. Crawford
> Toastmaster Inc.
> System Analyst

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---