cobol中怎样显示行号

在COBOL中，可以通过使用特殊的编译器选项来显示行号。具体步骤以下：

1. 打开COBOL源代码文件。

2. 找到编译器选项部份，一般位于源代码文件的顶部。

3. 在编译器选项中添加或修改以下选项：LIST 或 LINECOUNT(n)。

- LIST 选项将显示源代码的行号和源代码内容。
- LINECOUNT(n) 选项将显示源代码的行号和源代码内容，并将每n行显示一次行号。

例如，以下是一个COBOL源代码文件的例子，其中使用了LINECOUNT(5)选项：


IDENTIFICATION DIVISION.
PROGRAM-ID. DISPLAY-LINE-NUMBERS.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-COUNTER PIC 9(2).

PROCEDURE DIVISION.
DISPLAY-LINE-NUMBERS.


MOVE 1 TO WS-COUNTER.


PERFORM UNTIL WS-COUNTER > 10


DISPLAY "Line " WS-COUNTER


ADD 1 TO WS-COUNTER


END-PERFORM.

STOP RUN.


使用LINECOUNT(5)选项编译该源代码文件后，编译器将在每五行显示一次行号：




1 IDENTIFICATION DIVISION.


2 PROGRAM-ID. DISPLAY-LINE-NUMBERS.


3


4 DATA DIVISION.


5 WORKING-STORAGE SECTION.


6 01 WS-COUNTER PIC 9(2).


7


8 PROCEDURE DIVISION.


9 DISPLAY-LINE-NUMBERS.
10 MOVE 1 TO WS-COUNTER.
11 PERFORM UNTIL WS-COUNTER > 10
12 DISPLAY "Line " WS-COUNTER
13 ADD 1 TO WS-COUNTER
14 END-PERFORM.
15
16 STOP RUN.


请注意，行号显示的格式和选项可能因使用的COBOL编译器而有所区分。因此，在具体使用时请参考相应的编译器文档。