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



Ah, nice catch. So as for the code:

GOTO LOOP

EOFAUT:
GRTOBJAUT OBJ(&LIB/&ATFILE) OBJTYPE(&TYPE) USER(*PUBLIC) AUT(*EXCLUDE) <--This works fine

NOCHG:
CHKOBJ &QUELIB/&QUENAME *DTAQ <-- this is the CHKOBJ that I thought was failing with the CPF9801
MONMSG CPF9801 EXEC(GOTO EXIT ) <-- and wondered why this didn't catch it.

CALL QSNDDTAQ (&QUENAME &QUELIB &DTALEN &DATA) <-- Turns out that this is the program returning the error.


Notice, the variable names are the same for both. Guess that's why the CHKOBJ was coded just before the call to the API.




Notice that in the job log the message CPF9801 is being sent by program QSNDDTAQ, so what seems to be happening is that whatever value is in &NAME is not the same value that >is being passed on the call to QSNDDTAQ. As you are not showing us these parameters, I can only guess. But it is clear that the error is being issued from the API and not the >CHKOBJ.



-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Smith, Mike
Sent: Tuesday, June 19, 2012 11:39
To: midrange-l@xxxxxxxxxxxx
Subject: MONMSG question

So I had something weird happen the other day. I got called on a program failing and when I looked at it, I don't see why the MONMSG did not handle it.
I have to be missing something basic...

The CL program is passed several parameters, there's a DCLF, some variables defined and then the programs starts.
There are no Global MONMSG.
The program does a couple security things and then starts a loop.

Michael Smith
Systems Manager -Technical Support and iSeries Support
ITS - Computing Services
American National Insurance companies
PO 656
Albany, NY 12201-0656

V : (518) 431-5117
F : (518) 431-5985
E : Michael_Smith@xxxxxxxxxxxxxx
Business Hours : M - F : 8:00 - 4:30 EST




________________________________
Confidentiality: This transmission, including any attachments, is solely for the use of the intended recipient(s). This transmission may contain information that is confidential or otherwise protected from disclosure. The use or disclosure of the information contained in this transmission, including any attachments, for any purpose other than that intended by its transmittal is strictly prohibited. Unauthorized interception of this email is a violation of federal criminal law. If you are not an intended recipient of this transmission, please immediately destroy all copies received and notify the sender.

As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.