START less than or equal fails to position the internal record pointer

[mo-shimada]

The index file contains the following data.

202310271807441003000000002000360000110886
202310271809114703000000002000360000110886
202311021144297703000000002000360000110886
202311021644053103000000002000360000110886
202311081549087603000000002000360000110886
202311081549498603000000002000360000110886
202401191201516303000000002000360000110886
202401191207326603000000002000360000110886
202401250854457503000000002000360000110886
202401250954457503000000002000360000110886

The key position is 16 bytes from the beginning, indicating the date and time.
If the key is set to 2024011999999999, START less than or equal and READ previous, the result set includes the data greater than the specified key.

2024011999999999
202401250854457503000000002000360000110886
202401191207326603000000002000360000110886
202401191201516303000000002000360000110886
202311081549498603000000002000360000110886
202311081549087603000000002000360000110886
202311021644053103000000002000360000110886
202311021144297703000000002000360000110886
202310271809114703000000002000360000110886
202310271807441003000000002000360000110886
END

Please find the attached sample program.

STARTTEST.txt

[yutaro-sakamoto]

@mo-shimada
Although I checked your program STARTTEST.txt and executed the program with opensource COBOL 4J and opensource COBOL, there is no difference between the outputs.
Please review your program again.

[mo-shimada]

Thank you for investigating this issue.
I executed the program STARTTEST.txt on GNU COBOL and got the correct results.

2024011999999999
202401191207326603000000002000360000110886
202401191201516303000000002000360000110886
202311081549498603000000002000360000110886
202311081549087603000000002000360000110886
202311021644053103000000002000360000110886
202311021144297703000000002000360000110886
202310271809114703000000002000360000110886
202310271807441003000000002000360000110886
END