At 5:25 PM -0400 10/25/99, Boris Kortiak wrote:

>I'm beginning to suspect that the JCL is incorrect.  It looks like this:
>
>!JOB  COMRPTSJ, BATCHOPS/JOBS.SUPPLY;OUTCLASS=205,1,1
>!CALC FINFO("ECFDAT.TEMP.SUPPLY","EOF")*20
>!SETVAR COMRPTS_FS HPRESULT
>!PURGE ECFDAT.TEMP.SUPPLY
>!FILE ECFDAT=ECFDAT.TEMP.SUPPLY,NEW;DISC=!COMRPTS_FS;SAVE
>!FILE OPDB=OPDB.FLS.SUPPLY
>!RUN COMRPTS.TEMP.MIS;PARM=3
>?(FISPER2K)
>!DELETEVAR COMRPTS_@
>!EOJ
>
>I'm pretty sure that file equation is causing my problem.
>
Sure would appear to be the problem. Here's how I understand it:

1) Your first OPEN OUTPUT along with its subsequent WRITEs and CLOSE creates a new permanent file named ECFDAT.TEMP.SUPPLY
2) Your re-OPEN INPUT creates a new temporary file with that name, your START fails because that file has no records in it and your CLOSE fails when the file equate SAVE tries to make your new temporary file permanent because the file created by your OPEN OUTPUT processing is already using that name in the permanent domain.
=======================================================================
Bruce Hobbs, CCP, CDP   856 N Monterey St         Phone: (626) 570-8028
Partner                 Alhambra, CA 91801-1574   FAX:   (626) 570-9850
Engineered Software     E-mail: [log in to unmask]