Hope this code fragment from one of my macros helps
!1-FILE-STATUS PIC XX.
77 MPE-ERROR PIC 9(4) USAGE DISPLAY.
DISPLAY "File status " !1-FILE-STATUS
" ON !1"
DISPLAY "File status " !1-FILE-STATUS
" ON !1" UPON CONSOLE.
*
* Extra bit of information displayed on 9-series errors.
IF !1-FILE-STATUS (1:1) = "9"
CALL INTRINSIC "CKERROR" USING
!1-FILE-STATUS MPE-ERROR
DISPLAY "MPE error is " MPE-ERROR
DISPLAY "MPE error is " MPE-ERROR upon console.
*
>>> Richard Barker <[log in to unmask]> 05/03/02 13:26:47 >>>
Excellent Roy.
I fairly sure this is the problem as I just logged on again, ran the report
and got the error again. I ran it once more, with exactly the same options
and it worked. I'm using Cobol85 and indeed am using OPEN EXTENDS, example:
move 88888888 to nb-account-no.
R1330 - open extend navbil-file.
R1330 - write navbil-record.
R1330 - close navbil-file.
R1330-FINAL-CPTJO-RECORD.
R1330 - open extend cptjo-file.
R1330 - write cptjo-record.
R1330 - close cptjo-file.
move 88888888 to nb-account-no.
R1330 - open extend navbil-file.
R1330 - write navbil-record.
R1330 - close navbil-file.
Total PNR-DETAILS Read: 000487719
END OF PROGRAM
So, OPTIONAL then, I'll get the manual.
Thanks
-----Original Message-----
From: Roy Brown [mailto:[log in to unmask]]
Sent: Tuesday, March 05, 2002 2:02 PM
To: [log in to unmask]
Subject: Re: [HP3000-L] Cobol help
"Richard Barker" <[log in to unmask]> wrote in message
news:a628iu026c6@enews1.newsguy.com...
> Hi
>
> We have an old huge Cobol program here that produces Invoices. It also
> produces files to be sent to another application. Now someone made an
> unrelated change to the program and now we get this:
>
> R1320-WRITE-CPTJO-RECORD.
> R1320-WRITE-CPTJO-RECORD.
> R1320-WRITE-CPTJO-RECORD.
> R1300-WRITE-ERUCA-FILE.
> R1310-WRITE-ERUCA-RECORD.
> R1320-WRITE-CPTJO-RECORD.
> R1300-WRITE-ERUCA-FILE.
> R1310-WRITE-ERUCA-RECORD.
> R1320-WRITE-CPTJO-RECORD.
> R1320-WRITE-CPTJO-RECORD.
> Unable to open CPTJO - Status : 9G
> Filename: AGBILL
> File status is 9d
> Unable to CLOSE file, See File System error [9x] (COBERR 633)
> Program file: BILLING.EXE.VIRDEV
>
> We open and close the file numerous times, why is it suddenly getting this
> 9G error. I realise I'm not giving you much information, but has anyone
> come accross 9G error before. Nothing else is access the file.
9x errors are 'Implementation-defined' COBOL file status errors.
The G is the FSERR number expressed in the ASCII collating sequence, or in
other bytes, 71.
This is: TOO MANY FILES OPEN (FSERR 71)
Likewise, the 9d decodes to: DUPLICATE PERMANENT FILE NAME (FSERR 100)
My guess? You've recompiled this from ANSI-74 to ANSI-85, and fallen foul of
some of the file-handling subtleties that are different (e.g. OPEN or OPEN
EXTEND on 74 will build a file that does not exist at the time; 85 needs an
OPTIONAL clause not to error on this).
Or if not, that the 'unrelated change' is not so unrelated as you think, and
has broken the existing processing..... :-(
--
Roy Brown
Fixing COBOL for a living...
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
The contents of this email are confidential to the intended recipient and may not be disclosed.
Although it is believed that this email and any attachments are virus free, it is the responsibility of the recipient to confirm this.
Smith & Williamson Corporate Finance - A member of M&A International Inc. http://www.mergers.net Regulated by the FSA
Smith & Williamson Investment Management Limited, Registered No. 976145. Regulated by the FSA
Smith & Williamson Pension Consultancy Limited - Independent Intermediary. Registered No. 3133226. Regulated by the FSA
Smith & Williamson Unit Trust Managers Limited, Registered No. 1934644. Regulated by the FSA
Smith & Williamson Chartered Accountants - A member of Nexia International. Registered to carry on audit work and regulated for a range of investment business activities by the Institute of Chartered Accountants in England & Wales
Smith & Williamson Management Consultants Limited, Registered No. 3226020
Registered Office: No. 1 Riding House Street, London W1A 3AS
Telephone: 020 7637 5377 http://www.smith.williamson.co.uk
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|