cobol中怎么显示行号

avatar
作者
筋斗云
阅读量:1

在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编译器而有所不同。因此,在具体使用时请参考相应的编译器文档。

广告一刻

为您即时展示最新活动产品广告消息,让您随时掌握产品活动新动态!