COBOL：如何关闭屏幕并返回终端

Question

我正在向用户显示在屏幕部分中定义的表单。用户输入后，我想清除屏幕并返回 terminal。但我不知道该怎么做。下一个 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 位置最后一个 ACCEPT/DISPLAY).

之后行首的 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).

COBOL：如何关闭屏幕并返回终端

COBOL: How to turn off SCREEN and come back to terminal

cobol

gnucobol