如何用COBOL';s屏幕部分?

如何用COBOL';s屏幕部分?,cobol,Cobol,出于学习目的,我尝试以下方法: 我正在尝试通过COBOL显示一个表。。。我想定义它在屏幕部分中的显示方式 以下情况已经发生或应该发生-所有这些都没有打开多个屏幕: (1) User enters ENTRY-SCREEN (2) User has to type in a password (nothing happens there yet ... I am going step by step) (3) User hits ENTER and gets to the MAIN

出于学习目的,我尝试以下方法: 我正在尝试通过COBOL显示一个表。。。我想定义它在
屏幕部分中的显示方式

以下情况已经发生或应该发生-所有这些都没有打开多个屏幕:

(1) User enters ENTRY-SCREEN
(2) User has to type in a password (nothing happens there yet ... I am going   
    step by step)
(3) User hits ENTER and gets to the MAIN MENU
    (3.1) User hits "D" --> List of states and abbreviations is displayed
    (3.2) User hits "S" --> User gets to screen where he can look up state-name  
          by entering abbreviation.
(4) By pressing F2 the user can go back to the MAIN MENU
(5) By pressing F1 the user can exit the program
我的问题是3.1没有打开新屏幕,也不必为每个状态定义行和列定义。 有没有一种方法-可能是通过循环或通过<代码>通过<代码>-使这更容易,甚至可能在屏幕部分定义这一点? 比如:

执行从1到1的计数器变化,直到计数器>50
*
结束表演。

您可以通过使用可变行号定义要在屏幕部分显示的行来完成此操作,行号本身在工作存储器中单独定义


使用循环,在过程部分,您可以通过向行变量添加1来显示每一行,显示该行,然后重复。

您可以通过使用变量行号定义要在屏幕部分显示的行来完成此操作,变量行号本身在工作存储中单独定义


使用循环,在过程部分,您可以通过向行变量添加1来显示每一行,显示该行,然后重复。

@peehaa如果可能,请在修改时编辑所有内容tags@peehaa如果可能,请在修改标签时编辑所有内容
PERFORM VARYING counter FROM 1 BY 1 UNTIL counter > 50
*<Display the abbreviation and state-name w/o opening new screen>
END-PERFORM.