COBOL:如何关闭 SCREEN 并返回终端

Question

我正在向用户显示一个在屏幕部分中定义的表单。用户输入后，我想清除屏幕并返回 终端 .但我不知道该怎么做。每个下一个 DISPLAY “something” 都会将数据放回屏幕的第一行。我不想再使用 SCREEN，没有 LINE 语句。

[...]

SCREEN SECTION.
01 USER-FORM.
[...]
01  CLEAR-SCREEN.
    05 BLANK SCREEN.

[...]

DISPLAY USER-FORM.
ACCEPT USER-FORM.
DISPLAY CLEAR-SCREEN.

PERFORM DATA-CALCULATIONS.

DISPLAY "CALCULATION RESULTS 1: " WS-DATA(1).
DISPLAY "CALCULATION RESULTS 2: " WS-DATA(2).
DISPLAY "CALCULATION RESULTS 3: " WS-DATA(3).

Answer 1

你不能。一旦您在 GnuCOBOL 中使用了 SCREEN，所有后续的 DISPLAYs/ACCEPTs 都会出现在屏幕上。

如果不想为后续的 DISPLAY 显式指定 LINE 和 COL，可以使用 LINE 0扩展名，它提供类似于通常的 DISPLAY 行为(即 LINE 0 将 DISPLAY 定位在最后一个 ACCEPT/DISPLAY 之后的行的开头)。

DISPLAY "CALCULATION RESULTS 1: " LINE 0, WS-DATA(1).
DISPLAY "CALCULATION RESULTS 2: " LINE 0, WS-DATA(2).
DISPLAY "CALCULATION RESULTS 3: " LINE 0, WS-DATA(3).