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



David,

I know the Help Text for the Copy Object command (COPY) doesn't list
CPFA09E as one of the errors, I can only surmise that it was added as an
error after the Help Text was written. Below is a snippet from two
joblogs, one that caught the error and executed the DLYJOB and one that
didn't:

Message . . . . : 10000 - COPY
OBJ('/Trnsfrin/CCHD3334')

TOOBJ('/qsys.lib/qtemp.lib/UTZ014TEMP.file/UTZ014TEMP.mbr')
TOCCSID(*CALC)
REPLACE(*YES)
CPFA09E Escape 40 06/27/08 15:02:03.708584
QP0LCCFN QSYS *STMT PUTZ014 CBSUSER *STMT
From module . . . . . . . . :
QP0LCEXH
From procedure . . . . . . :
qgc_sendpm__Fv
Statement . . . . . . . . . : 17
To module . . . . . . . . . :
PUTZ014
To procedure . . . . . . . :
PUTZ014
Statement . . . . . . . . . :
10000
Message . . . . : Object in use.
Object is /Trnsfrin/CCHD3334.
Cause . . . . . : An operation
attempted to use object /Trnsfrin/CCHD3334.
This object is currently in use.
Recovery . . . : Allow time for the
current operation to complete and
then retry. If no operation is being
performed, determine if the
object is checked out. If it is, use the Check
In Object (CHKIN) command to
check in the object and then retry. To
determine what is currently using
the object or if the object is checked
out, you can use the Retrieve
Object References (QP0LROR) API, or examine
the object's properties using
iSeries Navigator. Additionally, the Work with
Object Links (WRKLNK) or Display
Object Links (DSPLNK) commands can be used
to determine if the object is
checked out.
*NONE Command 06/27/08 15:02:03.708832
QCADRV QSYS 03AE PABZ001TST UAUSR *STMT
To module . . . . . . . . . :
PABZ001TST
To procedure . . . . . . . :
PABZ001TST
Statement . . . . . . . . . :
8400
Message . . . . : 8400 - DLYJOB
DLY(300)

\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
\/\/\/\

Message . . . . : 10000 - COPY
OBJ('/Trnsfrin/CCHD3334')

TOOBJ('/qsys.lib/qtemp.lib/UTZ014TEMP.file/UTZ014TEMP.mbr')
TOCCSID(*CALC)
REPLACE(*YES)
CPFA09E Escape 40 06/27/08 01:20:12.076528
QP0LCCFN QSYS *STMT PUTZ014 CBSUSER *STMT
From module . . . . . . . . :
QP0LCEXH
From procedure . . . . . . :
qgc_sendpm__Fv
Statement . . . . . . . . . : 17
To module . . . . . . . . . :
PUTZ014
To procedure . . . . . . . :
PUTZ014
Statement . . . . . . . . . :
10000
Message . . . . : Object in use.
Object is /Trnsfrin/CCHD3334.
Cause . . . . . : An operation
attempted to use object /Trnsfrin/CCHD3334.
This object is currently in use.
Recovery . . . : Allow time for the
current operation to complete and
then retry. If no operation is being
5722SS1 V5R4M0 060210 Job Log
BANKUA 06/27/08 04:58:01 Page 10
Job name . . . . . . . . . . : IUPABZ001 User . . . . . . :
SVCBCHSCD Number . . . . . . . . . . . : 407629
Job description . . . . . . : QBATCH Library . . . . . :
BNKPRD01
MSGID TYPE SEV DATE TIME FROM
PGM LIBRARY INST TO PGM LIBRARY INST
performed, determine if the
object is checked out. If it is, use the Check
In Object (CHKIN) command to
check in the object and then retry. To
determine what is currently using
the object or if the object is checked
out, you can use the Retrieve
Object References (QP0LROR) API, or examine
the object's properties using
iSeries Navigator. Additionally, the Work with
Object Links (WRKLNK) or Display
Object Links (DSPLNK) commands can be used
to determine if the object is
checked out.
CPF9999 Escape 40 06/27/08 01:20:12.088040
QMHUNMSG *N PUTZ014 CBSUSER *STMT
To module . . . . . . . . . :
PUTZ014
To procedure . . . . . . . :
PUTZ014
Statement . . . . . . . . . :
10000
Message . . . . : Function check.
CPFA09E unmonitored by PUTZ014 at
statement 0000010000, instruction
X'0000'.
Cause . . . . . : An escape
exception message was sent to a program which
did not monitor for that message.
The full name of the program to which the
unmonitored message was sent is
PUTZ014 PUTZ014 PUTZ014. At the time the
message was sent the program was
stopped at higher level language statement
number(s) 0000010000. If more
than one statement number is shown, the
program was a bound program.
Optimization does not allow a single statement
number to be determined. If *N is
shown as a value, it means the actual
value was not available. Recovery
. . . : See the low level messages
previously listed to locate the
cause of the function check. Correct any
errors, and then try the request
again.
CPA0702 Sender copy 99 06/27/08 01:20:12.088328
QCLXERR QSYS 00DA QCLXERR QSYS 00DA
Message . . . . : CPFA09E
received by procedure PUTZ014. (C D I R)
Cause . . . . . : ILE Control
language (CL) procedure PUTZ014 in module
PUTZ014 in program PUTZ014 in
library CBSUSER detected an error at statement
number 0000010000. Message text
for CPFA09E is: Object in use. Object is
/Trnsfrin/CCHD3334. Use F10 (if
available) or the Display Job Log
(DSPJOBLOG) command to see the
messages in the job log for a more complete
description of what caused the
error. If you still are unable to solve the
problem, please contact your
technical support person. Recovery . . . :
This inquiry message can be
avoided by changing the procedure. Monitor for
the error (MONMSG command) and
perform error recovery within the procedure.
To continue, choose a reply
value. Possible choices for replying to message
. . . . . . . . . . . . . . . :
C -- Cancel the CL procedure. D -- Dump
the CL procedure variables and
cancel the procedure. I -- Ignore the failing
command. R -- Try the failing
command again.
*NONE Reply 06/27/08 02:23:31.705096
QMHSCLVL QSYS 068A QCLXERR QSYS 00E7
From user . . . . . . . . . :
OPRTEMP
Message . . . . : R

\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
\/\/\/\

If this is more than is supposed to be included in these mailing list
emails, I apologize. I'm just at my wit's end trying to unravel this. By
the way, the SBMJOB parameters for these two jobs are identical.

Again, thanks for any help that anyone can give me.

Rick Marchini
Associated Banc-Corp
IT Services





-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of David Gibbs
Sent: Monday, June 30, 2008 9:56 AM
To: Midrange Systems Technical Discussion
Subject: Re: CPFA09E not recoginzed by MONMSG

Marchini, Richard wrote:
Help! I have a batch job that copies a file from the IFS to my System
i5. The file comes from outside the company and is approximately 6 GB,

so it takes a little time to fully arrive in the IFS. In my CL program

I monitor for messages CPFA09E, CPA0702 and CPF0000 and execute a
DLYJOB command and return to the failing copy program until it finally

arrives. When I test this CL, it works correctly, but in production,
it doesn't "catch" the MONMSG, and the system operator receives the
CPFA09E message.

Well, the CPY command doesn't list CPFA09E as an escape message it sends
... perhaps there is a different error that you should trap? I suspect
that CPFA09E is sent as a diagnostic.

david

--
IBM System i - For when you can't afford to be out of business

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



*************************** NOTICE ***************************

This e-mail and attachment(s) may contain information that is
privileged, confidential, and/or exempt from disclosure under
applicable law. If the reader of this message is not the intended
recipient, you are hereby notified that any dissemination,
distribution, or copy of this message is strictly prohibited. If
received in error, please notify the sender immediately and
delete/destroy the message and any copies thereof. Although
Associated Banc-Corp and/or its affiliates (collectively
"Associated") attempt to prevent the passage of viruses via e-mail
and attachments thereto, Associated does not guarantee that either
are virus-free, and accepts no liability for any damage sustained
as a result of any such viruses.

Any federal tax advice contained in this communication (including
any attachments) is not intended or written to be used or referred
to in the promoting, marketing, or recommending of any entity,
investment plan or agreement, nor is such advice intended or written
to be used, and cannot be used, by a taxpayer for the purpose of
avoiding penalties under the Internal Revenue Tax Code.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.