[open-cobol-list] a small suggestion

[Jose Vilmar Estacio de Souza]

Hi all,
When OC find an I-O error in a file and the file does not have a file status 
clause, the program is aborted with an appropriated message. However the 
name of the file is not shown in the message. In my opinion it would be very 
nice if the external name of the file was displayed together  with the error 
message.
I'm sending a small patch that tries to address this situation.


--- fileio.c.ori 2006-01-09 19:48:42.727692800 -0200
+++ fileio.c 2006-01-09 20:00:04.407900800 -0200
@@ -1924,6 +1924,7 @@
cob_default_error_handle (void)
{
 const char *msg = NULL;
+ char   filename[COB_MEDIUM_BUFF];
 char  *file_status = cob_error_file->file_status;
 int  status = cob_d2i (file_status[0]) * 10 + cob_d2i (file_status[1]);

@@ -1989,7 +1990,8 @@
 }

 if (msg) {
-  cob_runtime_error ("%s (STATUS=%02d)", gettext (msg), status);
+         cob_field_to_string (cob_error_file->assign, filename);
+  cob_runtime_error ("%s (STATUS=%02d). %s", gettext (msg), status, 
filename);
 }
}