Comment afficher le tableau dans la SECTION SCREEN de COBOL?

Question

Pour l'apprentissage j'essaie ce qui suit: J'essaie d'afficher une table via COBOL ... Je veux définir la façon dont tout est affiché dans le SCREEN SECTION.

Après arrive ou est censé se produire - sans ouvrir plusieurs écrans:

(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 

Mon problème est 3.1 sans ouvrir un nouvel écran et sans avoir à définir une ligne et la définition de la colonne pour chaque état. Existe-t-il un moyen - peut-être avec une boucle ou avec THRU - de le rendre plus facile et peut-être même de le définir dans la section écran? Comme :

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

Answer 1

Vous pouvez le faire en définissant la ligne à afficher dans la section de l'écran avec un numéro de ligne variable, qui est elle-même définie séparément dans le travail de stockage. En utilisant une boucle, dans la division de procédure, vous pouvez afficher chaque ligne en ajoutant 1 à votre variable de ligne, afficher la ligne et répéter.