Bill Waller

Having written and delivered several hundred thousand lines of COBOL code to end-users, I am concerned about the ability to support COBOL products in the field. GNUCOBOL's function, EXCEPTION-FILE returns the Select Name, which may not be helpful in determining the actual name of the file in error as it is known to the filesystem. Looking at the runtime library, it appears that the choice of select_name was intentional, but it should definitely be the real filename instead. The following patch resulted...

Thank you, Simon. I have been looking into libcob/fileio.c and libcob intrinsic.c for ways to replace select_name with filename. If I can get a FILE pointer or the fd number, I can use the realpath() function to determine the file name. // some random file FILE *fp = fopen("make.out", "r"); // now that the FILE is open, we can get the filename printf("filename: %s\n", fpfname(fp)); char fpfname(FILE fp) { int fd; char ProcPath[32]; if (fp) fd = fileno(fp); if (fd > 0) { sprintf(ProcPath,"/proc/self/fd/%d",fd);...

// In the alternative, simple code such as the following (pseudo-code) could provide a // down-and-dirty method of matching filenames with fd's or Fp's. // We know for sure that Linux isn't going to do it, so it will have to be tracked inside // the runtime libraries. // Mostly in libcob/fileio.c char file_open_name[COB_FILE_MAX]; char error_filename[COB_FILE_MAX]; struct { char filename; int Fd; FILE Fp; } Fn_tbl[COB_MAX_FILES]; uint32_t Fn_tbl_idx=0; FILE Fp; int Fd; const char fmode; mode_t mode;...