I was asked to forward this to the list to see if someone can spot the
problem.  You can respond back to me or Wade.  The program gets a file
attributes error when the program itself creates the file.

Curt Brimacomb
System Manager                                          www.magiclink.com
Idaho Computer Services, Inc.                                   Voice:  1-208-734-2245
Twin Falls, Idaho 83301                                         Fax:    1-208-733-9663


-----Original Message-----
From:   Wade B. Bond [SMTP:[log in to unmask]]
Sent:   Monday, December 08, 1997 9:34 AM
To:     [log in to unmask]
Subject:        COBOL temp files.

I have a problem with a COBOL problem opening a print file when the print
file is going to a disc file.  I am trying to build a file called TERMLP by
using a file equation to redirect the print file.  When I run the progeram
I get a FILE STATUS ERROR 39.  I have only one file equation, no tempoary
files and no permanent files with the name TERMLP.  I have other program
that work just fine using this same concept.  TIA

:FILE LP=TERMLP;DEV=DISC

source code of program:
1       $CONTROL USLINIT
1.1     IDENTIFICATION DIVISION.
1.2     PROGRAM-ID. UBM028.
1.3     ENVIRONMENT DIVISION.
1.4     CONFIGURATION SECTION.
1.5     SOURCE-COMPUTER. HP-3000.
1.6     OBJECT-COMPUTER. HP-3000.
1.7     INPUT-OUTPUT SECTION.
1.8     FILE-CONTROL.
1.9     SELECT OUTFILE ASSIGN TO "LP,UR,,LP(CCTL)".
2       DATA DIVISION.
2.1     FILE SECTION.
2.2     FD OUTFILE LABEL RECORDS ARE OMITTED.
2.3    01 PRINT-LINE             PIC X(80).
2.4     WORKING-STORAGE SECTION.
2.5    77 EOF-IND                PIC X VALUE SPACES.
2.6     PROCEDURE DIVISION.
2.7     OPEN-FILES.
2.8     OPEN OUTPUT OUTFILE.
2.9     DISPLAY "OPEN"
3       ACCEPT EOF-IND.
3.1     CLOSE OUTFILE.
3.2     DISPLAY "CLOSED"
3.3     ACCEPT EOF-IND.
3.4     GO TO OPEN-FILES.