Как отобразить таблицу в разделе экрана COBOL? - PullRequest
Новая
       9

Как отобразить таблицу в разделе экрана COBOL?

0 голосов
/ 15 февраля 2010

В учебных целях я пробую следующее: Я пытаюсь отобразить таблицу с помощью COBOL ... Я хочу определить способ ее отображения в SCREEN SECTION.

Следующее происходит или должно произойти - все без открытия нескольких экранов: 

(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 без открытия нового экрана и без определения строки и столбца для каждого состояния. Есть ли способ - может быть, с помощью цикла или THRU - сделать это проще и, возможно, даже определить это в разделе экрана? Как: 

PERFORM VARYING counter FROM 1 BY 1 UNTIL counter > 50
*<Display the abbreviation and state-name w/o opening new screen>
END-PERFORM.

1 Ответ

0 голосов
/ 24 февраля 2010

Это можно сделать, определив строку, отображаемую в разделе экрана, с переменным номером строки, который сам по себе определяется отдельно в рабочем хранилище.

Используя цикл, в разделе процедуры вы можете отобразить каждую строку, добавив 1 к вашей строковой переменной, отобразить строку и повторить.

...