HP3000-L Archives

February 2001, Week 4

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:
Keith Bordovsky <[log in to unmask]>
Reply To:
Keith Bordovsky <[log in to unmask]>
Date:
Wed, 28 Feb 2001 14:52:52 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (39 lines)
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