Richard,

Correct me if I'm wrong but I think that the file you are accessing is a
KSAM file?

If it is then the status code returned is decoded as follows:

The first digit indicates that it is a file system error.

The second digit is the MPE file system error code. This should be passed to
the CKERROR routine to convert it from a binary value to a numeric display
format.

regards,
Robert W.Mills

-----Original Message-----
From: Richard Barker [mailto:[log in to unmask]]
Sent: 05 March 2002 10:48
To: [log in to unmask]
Subject: Cobol help


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.

* 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 *