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


  1.  Home
  2. JAVA400-L
  3. September 2002

RE: ProgramCall messages

I am not getting a message.  Here is my CL:

PGM        PARM(&FILE &LIB &LEN)
DCL &FILE *CHAR 10
DCL &LIB *CHAR 10
DCL &LEN *DEC (5 0)
DLTF &LIB/&FILE
MONMSG (CPF3032)
ENDPGM

Note that I don't check for CPF2100.  If the file does not exist, I get a
message in QSYSOPR.  If I respond with a C, I get the following output:

AS/400 messages:
CPF9999
Function check. CPF2110 unmonitored by MSGTEST at statement 500, instruction
X'0012'.

This is what I would expect.

If, however, the file does exist and is locked, I get no messages, which is
also what I would expect, because of the MONMSG.  Something else in your CL
is putting in the CPF9898 message.

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.