Ray,
Tom is correct in his suggestion of using ",NEW;TEMP" in the file equation.
Doing so, the program is directed to create a new file and then, at close
time, place it in the 'temporary' domain. Your program aborted because it
could not fulfill "your request" (conveyed by the existing file AND file
equation) of placing a permanent file in the temporary domain.
Regards
Paul Christidis
HP-3000 Systems Discussion <[log in to unmask]> wrote on 11/24/2003
09:21:50 AM:
> 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 *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
