HP3000-L Archives

September 2003, Week 1

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: shared temp output files in Cobol
From:
Rich Trapp <[log in to unmask]>
Reply To:
Rich Trapp <[log in to unmask]>
Date:
Wed, 3 Sep 2003 16:20:42 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (58 lines) 
Tracy,
   The error you're getting is "101" which 

DUPLICATE TEMPORARY FILE NAME  (FSERR 101)

Perhaps you need to specify a different file equation for the 2nd open
to indicate ",OLDTEMP" so that when it opens it opens the same file
(it's probably defaulting to ",NEW" in both so the 2nd CLOSE fails.

RAT

Rich Trapp
Consultant
Managed Business Solutions 
[log in to unmask]


-----Original Message-----
From: Tracy P1erce [mailto:[log in to unmask]] 
Sent: Wednesday, September 03, 2003 3:59 PM
To: [log in to unmask]
Subject: Re: shared temp output files in Cobol

<snip> 
another good idea, but oops, sometimes FLTREP is pointed at a printer,
so
> |  Filename: FLTREP
> |  File status is 9e
> |  Unable to CLOSE file, See File System error [9x] (COBERR 633)
> |  Program file: PFLTREP.OBJ.VMS
> |  DUPLICATE TEMPORARY FILE NAME  (FSERR 101)
> |
> |  +-F-I-L-E---I-N-F-O-R-M-A-T-I-O-N---D-I-S-P-L-A-Y+
> |  !  FILE NAME IS MAILTEXT.KTP.VMS                 !
> |  !  FOPTIONS: NEW,ASCII,FORMAL,F,NOCCTL,FEQ       !
> |  !            NOLABEL                             !
> |  !  AOPTIONS: OUTPUT,NOMR,NOLOCK,SHR,BUF,GMULTI   !
> |  !            WAIT,NOCOPY                         !
> |  !  DEVICE TYPE: 3      DEVICE SUBTYPE: 8         !
> | (992/1015) Continue?
> |  !  LDEV: 2        DRT: 8         UNIT: 0         !
> |  !  RECORD SIZE: 80     BLOCK SIZE: 240   (BYTES) !
> |  !  EXTENT SIZE: 334    MAX EXTENTS: 32           !
> |  !  RECPTR: 50          RECLIMIT: 32000           !
> |  !  LOGCOUNT: 50           PHYSCOUNT: 17          !
> |  !  EOF AT: 50          LABEL ADDR: %00000000000  !
> |  !  FILE CODE: 0        ULABELS: 0                !
> |  !  FILE OWNER: TRACY.VMS                         !
> |  !  PHYSICAL STATUS: 0000000000000000             !
> |  !  ERROR NUMBER: 101   RESIDUE: 80       (BYTES) !
> |  !  BLOCK NUMBER: 17           NUMREC: 3          !
> |  +------------------------------------------------+

<snip>

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

ATOM RSS1 RSS2