Re: Update on Closed File Error... I don't think so!

Mike,

I'm wondering if the message you're getting is a red herring. I have a couple of observations on this code:

1) Could procedure GetNextWorkflowStep(ihWfId:ihStepId) be closing the file?

2) Unless it has changed in a recent release, the parentheses on the chain is reserved for a compound key, so they should be removed.

3) You are not testing for success on the chain, so your update may fail anyway.

4) Even if the chain is successful, if procedure GetNextWorkflowStep(ihWfId:ihStepId) is closing the file, the update will fail.

-mark


At 7/22/08 11:01 AM, you wrote:

I am having a strange problem. I have a subprocedure that is giving me a
"I/O operation was applied to closed file ARINVHP." I am not seeing why I
would be getting that error. Does anyone see anything glaring that I am
missing? The statement in question is the first "update ARINVHR;".

PInvoiceApproved B EXPORT
DInvoiceApproved PI N
D invoice 15A CONST
D userName 10A CONST
D comment 4069A CONST
D VARYING
D OPTIONS(*NOPASS)

D* Local fields
D retField S N inz(*on)

/free

// Open the needed files
open ARINVHP;
open ARWFP;
open ARWFSTEPP;

chain (invoice) ARINVHR;
chain (ihWfId) ARWFR;
chain (ihStepId) ARWFSTEPR;

if (wsStep < wfNumSteps);
ihStepId = GetNextWorkflowStep(ihWfId:ihStepId);
ihWfSts = 1;
update ARINVHR;
AddWorkflowLog(invoice:userName:'Approved':comment);
else;
ihWfSts = 3;
update ARINVHR;
AddWorkflowLog(invoice:userName:'Final Approval':comment);
endif;

CloseFiles(); // Close all files

return retField;

/end-free
PInvoiceApproved E


--
Mike Wills
Midrange Programmer/Analyst