RE: Problem with MONMSG

No that's not the case. And, that's just a snippet of code. The program compiles fine.

Mark Walter
Business to Business Data Integration Specialist
Certified IBM System i Specialist
Paragon Consulting Services, Inc
mwalter@xxxxxxxxxxxxxxx
717-764-7909 ext. 126


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Schollenberger
Sent: Wednesday, January 06, 2010 1:40 PM
To: Midrange Systems Technical Discussion
Subject: RE: Problem with MONMSG

Mark --

While you code doesn't show it, the most common reason is that there is
another CL command between the ALCOBJ and MONMSG.

Also since you don't show them in your example, I'll ask about the
missing ENDDO for the MONMSG and for the IF (&counter = 60) lines.
The CL shouldn't compile without them so are you sure you are executing
the program based on the source you wanted to use.

Scott

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Mark Walter
Sent: Wednesday, January 06, 2010 1:06 PM
To: Midrange Systems Technical Discussion
Subject: Problem with MONMSG

I'm trying to monitor for CPF1002 when allocating an object. OS/400
seems to be ignoring the MONMSG Command. Here is the code:

lmp: /* LMP - Location Master File */
alcobj obj((lmp *file *excl)) wait(10)
monmsg msgid(CPF1002) exec(do)
chgvar var(&counter) value(&counter + 1)
if cond(&counter = 60) then(do)
sndpgmmsg msg('Cannot Allocate file LMP')
goto cmdlbl(pmp)

Any ideas why the alcobj command is throwing an exception message
CPF1002 when I'm monitoring for it?

Thanks,

Mark.

Mark Walter
Business to Business Data Integration Specialist
Certified IBM System i Specialist
Paragon Consulting Services, Inc
mwalter@xxxxxxxxxxxxxxx
717-764-7909 ext. 126



--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.