× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.