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

We don't see the F spec for ARINVHP - is it coded for Update?

Bob Cagle
IT Manager
Lynk, Inc.

-----Original Message-----
From: Mike
Sent: Tuesday, July 22, 2008 10:02 AM

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