COBOL : Comment éteindre l'écran et revenir au terminal ?

Question

J'affiche à l'utilisateur un formulaire, défini dans la SECTION SCREEN. Après la saisie de l'utilisateur, j'aimerais effacer l'écran et revenir à la section terminal . Mais je n'ai aucune idée de la façon de procéder. Chaque prochain DISPLAY "quelque chose" replace les données sur la première ligne de l'écran. Je ne veux plus utiliser SCREEN, pas d'instructions 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

Vous ne pouvez pas. Une fois que vous avez utilisé un SCREEN dans GnuCOBOL, tous les DISPLAYs/ACCEPTs suivants sont sur l'écran.

Si vous ne voulez pas spécifier explicitement la LIGNE et la COL pour les AFFICHAGES suivants, vous pouvez utiliser LINE 0 qui donne quelque chose qui ressemble au comportement habituel de DISPLAY (à savoir, LINE 0 positionne l'AFFICHAGE au début de la ligne qui suit le dernier 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).