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/

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *