Then why did the prog abort when it closed the file? I don't recall ever
having to use TEMP and NEW on the same file EQ before to close a temp file.
Of course, I can't rule out that I've never ran into this particular
circumstance before either.
Ray Shahan
"There is so much good in the worst of us,
and so much bad in the best of us,
that it behooves none of us
to talk about the rest of us"
--Robert Louis Stevenson?
> -----Original Message-----
> From: Tom Brandt [SMTP:[log in to unmask]]
> Sent: Monday, November 24, 2003 11:06 AM
> To: Shahan, Ray; [log in to unmask]
> Subject: Re: Temp vs. Perm file
>
> Ray,
>
> The "TEMP" option in your file equation does not specify the file domain
> (OLD, OLDTEMP, NEW), but the disposition; i.e, what to do with the file
> once it is closed.
>
> You can change your file equation to this:
>
> FILE IM077Z01.DATAWORK,NEW;TEMP;DISC=250000
>
> This will cause your COBOL program to open the file as a new file, rather
> than open the old permanent file, and close it as a TEMP file when it is
> done.
>
> At 11:53 AM 11/24/2003, Shahan, Ray wrote:
> >Hi all,
> >
> > I ran into a snag from this weekend, and I'm looking for some
> >clarification (read as proof I'm not losing what tiny bit of memory I
> have
> >left). We run several instances of a job at the same time to do
> multiple
> >updates based upon input to the prog within the job.
> >
> >The JCL has a file EQ to set up a temp file for the program run:
> > FILE IM077Z01 IM077Z01.DATAWORK;TEMP;DISC=250000
> >
> >The COBOL source simply refers to the Z01 file as a generic file (no EQ
> >designation, etc.):
> > SELECT I-O-PRICE ASSIGN TO "IM077Z01".
> >
> >This weekend, a perm file existed with the same name as the temp file
> (and
> >GROUP.ACCOUNT), so the prog aborted first with a error:
> >
> >Filename: IM077Z01
> >File status is 9[
> >Unable to OPEN file, See File System error [9x] (COBERR 644)
> >Program file: IM077.PROG.VALLEY
> >EXCLUSIVE VIOLATION: FILE ACCESSED EXCLUSIVELY (FSERR 91).
> >
> >Then when we ran the job as a single job (rather that 5 versions at
> once),
> >we got an abort on the close of the file:
> >
> >Filename: IM077Z01
> >File status is 9n
> >Unable to CLOSE file, See File System error [9x] (COBERR 633)
> >Program file: IM077.PROG.VALLEY
> >ATTEMPT TO SAVE PERMANENT FILE AS TEMPORARY (FSERR 110)
> >
> > I purged the perm file, and reran the other jobs, and all worked
> >fine, but since the file EQ is for a temp file, I'm at a loss as to why
> the
> >perm file was being accessed?
> >
> >
> >TIA for any help. :-)
> >
> >
> >Ray Shahan
> >
> >"There is so much good in the worst of us,
> >and so much bad in the best of us,
> >that it behooves none of us
> >to talk about the rest of us"
> > --Robert Louis Stevenson?
> >
> >
> >#########################################################################
> ############
> >This e-mail message has been scanned for Viruses and Content and cleared
> >by MailMarshal
> >#########################################################################
> ############
> >
> >* To join/leave the list, search archives, change list settings, *
> >* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
> --
> Tom Brandt
> Northtech Systems, Inc.
> 130 S. 1st Street, Suite 220
> Ann Arbor, MI 48104-1343
> http://www.northtech.com/
#####################################################################################
This e-mail message has been scanned for Viruses and Content and cleared
by MailMarshal
#####################################################################################
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
