HP3000-L Archives

March 2001, 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:
From:
Tony Summers <[log in to unmask]>
Reply To:
Tony Summers <[log in to unmask]>
Date:
Thu, 1 Mar 2001 09:46:02 +0000
Content-Type:
text/plain
Parts/Attachments:
text/plain (54 lines)
Several thoughts - I had a similar error when trying to open input on a file which was file equated to a printer device. 

(1) Remove any error checking around the open output statement (decaratives or whatever) and you'll probably get a much bigger tombstone with more detail about the error.

(2) check the MPE capabilities of the group the file is being built in - have you got open output capabilities from where you're logged on ? 

(3) Add a space character after the pin number. 

-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]]On 
Behalf Of Keith Bordovsky
Sent: Wednesday, February 28, 2001 2:53 PM
To: [log in to unmask] 
Subject: [HP3000-L] temporary file cannot be opened

Hello all, I have a dilemma I'm in.  I have a COBOL program that I would
like it to create a unique temporary file and write to it on the fly.  The
snippet of code is as follows:

SELECT PRT-FILE ASSIGN USING TF-FMP-PFILE.

FILE SECTION.
FD  PRT-FILE.
01  PRT-REC                      PIC X(80).

WORKING-STORAGE SECTION.
     03  TF-FMP-PFILE.
       05  TF-PIN-PREFIX          PIC X(3) VALUE "TIF".
       05  TF-PIN-FMP             PIC X(5) VALUE SPACES.

This is a COBOL sub-program that is called from an XL.  I load up the
TF-PIN-FMP variable with the pin number of the process I am running.  Then I
attempt to open the file as output using:
        OPEN OUTPUT PRT-FILE
This is the result:
        Filename: FMP00290
        File status is 37
        File/Org/Device does not support OPEN mode [37] ACCESS (COBERR 659)
        Program file: MICFMP.PRG.DCALLS
        OPERATION INCONSISTENT WITH ACCESS TYPE  (FSERR 40)

        +-F-I-L-E---I-N-F-O-R-M-A-T-I-O-N---D-I-S-P-L-A-Y+
        !  ERROR NUMBER: 0           RESIDUE: 0          !
        +------------------------------------------------+
        **** COB_QUIT 659 ****

A similar program I have that is using basically the same logic works like a
charm.  I can't figure out why the COBOL program will not create the
temporary file.  There are no file equations, permanent files, or temporary
file with the same name that this process will attempt to use.  Any help
will be appreciated.
Thanks,
Keith Bordovsky

ATOM RSS1 RSS2