COBOL读取顺序行文件，计数字符

Question

在COBOL中，我从顺序行文件中读取。一行行，到EOF，诸如此类的

           read bank-file  at end
            move 'Y'  to end-of-bank

行的长度从40到80个字符不等。我需要知道，每行有多少个字符。但是行可以以一些空格结束，我也需要计算。所以我不能在程序中从变量取字符串的长度。READ语句是否有返回值，它返回已读行的字符数（直到达到CRLF）？

Answer 1

正如注释中提到的，实际上可以读取字符（字节数），实际上记录根据子句而变化：

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.

    SELECT SOME-FILE
        ASSIGN TO "someFile.txt"
        ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.

FD SOME-FILE
    RECORD VARYING 40 TO 80 DEPENDING ON SOME-LINE-LENGTH.

 01 SOME-LINE PIC X(80).

WORKING-STORAGE SECTION.

 77 SOME-LINE-LENGTH PIC 9(3).

现在，对于每次读取，记录长度存储到some-line-length:

READ SOME-FILE NEXT RECORD
DISPLAY SOME-LINE-LENGTH

我不知道到底哪些供应商支持它（可能几乎所有），但至少它可以与Acucobol一起工作。

据我所知，对于执行read语句读取的字节数没有反馈。显然，字节会立即存储到文件节中的文件描述符所描述的记录中。

但是，可以通过计算写入记录的字符数来计算读取的字节数。
首先，将文件记录初始化为low-values。然后读下一条记录；这将移动读取到记录的字节数。当读取的字节数小于记录大小时，记录末尾的字节保持不变。

MOVE LOW-VALUES TO YOUR-RECORD
READ YOUR-FILE NEXT RECORD
PERFORM VARYING SOME-COUNTER FROM 72 BY -1 UNTIL (SOME-COUNTER < 0)
    IF NOT (YOUR-RECORD(SOME-COUNTER : 1) = LOW-VALUES)
        EXIT PERFORM
    END-IF
END-PERFORM

some-counter将包含行长，假设文件中没有NUL值。