溫馨提示×

cobol中怎么顯示行號

小億
95
2023-10-16 12:00:51
欄目: 編程語言

在COBOL中,可以通過使用特殊的編譯器選項來顯示行號。具體步驟如下:

1. 打開COBOL源代碼文件。

2. 找到編譯器選項部分,一般位于源代碼文件的頂部。

3. 在編譯器選項中添加或修改以下選項:`LIST` 或 `LINECOUNT(n)`。

- `LIST` 選項將顯示源代碼的行號和源代碼內(nèi)容。
- `LINECOUNT(n)` 選項將顯示源代碼的行號和源代碼內(nèi)容,并將每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編譯器而有所不同。因此,在具體使用時請參考相應的編譯器文檔。

0