Hello Edward,
"p errno" wasn't 0, as follows:
Using host libthread_db library "/lib64/libthread_db.so.1".
0x00007f217855f1a1 in read () from /lib64/libc.so.6
Missing separate debuginfos, use: zypper install glibc-debuginfo-2.26-lp152.25.10.x86_64 libdb-4_8-debuginfo-4.8.30-lp152.8.73.x86_64 libgmp10-debuginfo-6.1.2-lp152.5.26.x86_64 libncurses6-debuginfo-6.1-lp152.7.67.x86_64
(gdb) b fileio.c:3202
Breakpoint 1 at 0x7f2178b98be7: file fileio.c, line 3202.
(gdb) c
Continuing.
Breakpoint 1, indexed_file_delete (f=0xdbaac0, filename=0xdb7230 "testfile") at fileio.c:3202
3202 for (i = 0; i < f->nkeys; ++i) {
(gdb) p filename
$1 = 0xdb7230 "testfile"
(gdb) p errno
$2 = 2
(gdb) n
3203 if (i == 0) {
(gdb) n
3204 snprintf (file_open_buff, (size_t)COB_FILE_MAX, "%s",
(gdb) n
3210 file_open_buff[COB_FILE_MAX] = 0;
(gdb) n
3211 unlink (file_open_buff);
(gdb) p errno
$3 = 2
(gdb) q
A debugging session is active.
Inferior 1 [process 5239] will be detached.
Quit anyway? (y or n) y
Detaching from program: /home/marcio/Downloads/gnucobol-3.1-rc1/tests/testsuite.dir/0696/prog, process 5239
[Inferior 1 (process 5239) detached]
marcio@lentium:~/Downloads/gnucobol-3.1-rc1/tests/testsuite.dir/0696>
DISPLAYs of the prog:
marcio@lentium:~/Downloads/gnucobol-3.1-rc1/tests/testsuite.dir/0696> ./prog
STATUS WRITE:48
STATUS DELETE FILE (closed):35
marcio@lentium:~/Downloads/gnucobol-3.1-rc1/tests/testsuite.dir/0696>
I don't know the cause of FILE-STATUS 48 on WRITE clause too.
Let me know if I can help.
Att.
Márcio.