Re: Command messages

["Al Barsa/Barsa Consulting" <barsa@xxxxxxxxxxxxxxxxxxx>]

Generally speaking, you only can monitor for an escape message.  You can
receive a completion message and resend it if you code it properly.

I am away from home and do not have a system so I can find a snippet of
sample code.

Al

Al Barsa, Jr.
Barsa Consulting Group, LLC

400>390

914-251-1234
914-251-9406 fax

http://www.barsaconsulting.com
http://www.taatool.com






                    Peter_Vidal@pall.co
                    m                         To:     
as400programmer@yahoogroups.com, Easy400Group@yahoogroups.com,
                    Sent by:                   midrange-l@midrange.com
                    midrange-l-admin@mi       cc:
                    drange.com                Subject:     Command messages


                    03/28/02 04:20 PM
                    Please respond to
                    midrange-l






Hi everyone:

I have a new command and I want to monitor and display errors, if there is
any;
however, I want to use the errors defined for this command and display it
to the
user appropriately.   I know that I may need a combination of
RCVMSG/SNDPGMMSG
but I am not sure how.  What I am going to write down here is merely my
thoughts.  If for example, I want to clear a physical file:

CLRPFM FILE(MYLIB/MYFILE)

Is this valid?
MONMSG     MSGID(CPF0000) EXEC(DO)
RCVMSG     MSGTYPE(*COMP) MSGDTA(&MSGDTA) MSGID(&MSGID)
SNDPGMMSG  MSGID(&MSGID) MSGF(QCPFMSG) MSGDTA(&MSGDTA) +
             MSGTYPE(*COMP)
ENDDO

What am I doing wrong?

TIA
Peter Vidal
Pall Aeropower Corp.
Senior Programmer Analyst

_______________________________________________
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.