Subject: | |
From: | |
Reply To: | |
Date: | Wed, 28 Feb 2001 14:52:52 -0600 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
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
|
|
|