Re: Dealing with CPE3029 in CPYFRMIMPF

[Peter Dow <petercdow@xxxxxxxxx>]

Hi Mark,

I don't know of a way to change the lock level imposed by Excel, but for 
your hopes for a more elegant solution, I'm going to raise your hopes, 
then dash them :(  -- but maybe it will be of use elsewhere.

> From 
https://www.ibm.com/docs/en/i/7.6.0?topic=functions-monitoring-copy-errors

"The CPF2817 escape message is always preceded by at least one 
diagnostic message that indicates the specific error condition. The 
message identifier of the diagnostic message, which immediately precedes 
the CPF2817 escape message is used as message replacement data (MSGDTA 
parameter on theSend Program Message (SNDPGMMSG) 
<https://www.ibm.com/docs/en/ssw_ibm_i_76/cl/sndpgmmsg.htm>command) for 
the CPF2817 escape message. This enables you to monitor for specific 
error cases from the CPF2817 escape message by using the CMPDTA 
parameter on theMonitor Message (MONMSG) 
<https://www.ibm.com/docs/en/ssw_ibm_i_76/cl/monmsg.htm>command."

Which would imply that something like

MONMSG MSGID(CPF2817) CMPDTA(CPFA0D4)

should work.  But I don't see CPFA0D4 or CPE3029 listed as messages that 
would show up in the CPF2817 message's message data.

To see the message data for a message in the joblog that doesn't show 
it, you can use

SELECT MESSAGE_ID, MESSAGE_TYPE, MESSAGE_TOKEN_LENGTH
     , hex(substr(MESSAGE_TOKENs, 1, MESSAGE_TOKEN_LENGTH)) MSGDTA
  FROM TABLE(QSYS2.JOBLOG_INFO('*')) A
 WHERE A.MESSAGE_ID = 'CPF2817'

It would be nice if IBM modified the CPF2817 message to show its message 
data.

--
*Peter Dow* /
909 793-9050
petercdow@xxxxxxxxx
/


On 8/28/2025 1:13 PM, mlazarus wrote:
>  Does anyone have a good way of dealing with an error thrown by the 
> Copy From Import File (CPYFRMIMPF) command:
>
> Message ID . . . . . . :   CPFA0D4
> Message . . . . :   File system error occurred.  Error number 3029.
> Cause . . . . . :   File system experienced an unexpected error. Error 
> number
>   3029 was received.
>
> Error 3029 points to:
>
> Message ID . . . . . . . . . :   CPE3029
> Message file . . . . . . . . :   QCPFMSG
>   Library  . . . . . . . . . :     QSYS
>
> Message . . . . :   Resource busy.
> Cause . . . . . :   An attempt was made to use a system resource that 
> is not
>   available at this time.
>  This occurs when the file is open elsewhere.  The situation is that 
> there are .csv files in the IFS that might be open in Excel. All the 
> program is attempting to do is copy the data into a PF. It seems to 
> want an exclusive lock.  Is there a way to tell it not to require that 
> level of a lock?
>
>  This is extra strange to me because other commands such as MOV or REN 
> seem to work fine, even if the file is open in Excel.  I think that 
> those command *should* throw an error when the file is in use!
>
>  The original message is sent as a diagnostic message, so it can't be 
> monitored.  Only the final message: "CPF2817 Copy command ended 
> because of error" is an escape message.  This is a generic message for 
> any error in this command.  I can of course monitor the escape and 
> then receive the previous message, but I was hoping for a more elegant 
> solution.  TIA.
>
>  -mark