RE: Problem with MONMSG

["Albert York" <Albertyork@xxxxxxxxx>]

You can use any value. My question is, why do you wait in a loop? If you are
going to wait up to 600 seconds, why not just specify a wait time of 600?
That way you wouldn't have to worry about someone jumping in and grabbing it
while you were looping. As soon as it gets released you can get it.

Albert


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Mark Walter
Sent: Wednesday, January 06, 2010 11:28 AM
To: Midrange Systems Technical Discussion
Subject: 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.