>>685
ISAMだけかな

http://opencobol.no-ip.org/download.html
open-cobol-1.0.tar.gz

000000031524 typeck.c 04384 CB_FILE (file)->access_mode == COB_ACCESS_SEQUENTIAL) {
000000031525 typeck.c 04385 /* READ NEXT/PREVIOUS */
000000031526 typeck.c 04386 if (next == cb_int2) {
000000031527 typeck.c 04387 if (CB_FILE (file)->organization != COB_ORG_INDEXED) {
000000031528 typeck.c 04388 cb_error_x (CB_TREE (current_statement),
000000031529 typeck.c 04389 _("READ PREVIOUS only allowed for INDEXED SEQUENTIAL files"));