screen to cluttered initial menu can i have a trick to make it look less cluttered please

[J McNamara]

Hi-
This does what i want more or less but the initial data-entry-screen
is overwritten by text at the top half of the screen.
is there a way when the records get displayed show-record that
the records get shown in the bottom half of the screen instead?

thanks,
J. McNamara

    PROCEDURE DIVISION.
         MAIN-MENU.

     DISPLAY X'1B5B3031' 
  * Initial Setup for Environment

     SET ENVIRONMENT "COB_SCREEN_ESC" TO "Y"
     SET ENVIRONMENT "COB_SCREEN_EXCEPTIONS" TO "Y"

  *screen-status = COB-SCR-f1
  * If the F1 key is pressed (help requested)


     EVALUATE MENU-OPTION
           WHEN 1
               PERFORM SHOW-RECORDS
           WHEN 2
               ACCEPT Data-Entry-Screen
               DISPLAY ' '
               DISPLAY ' '
               DISPLAY ' '
               PERFORM SHOW-RECORDS

           WHEN 3
                STOP RUN
           WHEN OTHER
               DISPLAY "Invalid key. Please press F1 or F2."

       END-EVALUATE


       STOP RUN.

Sent with Proton Mail secure email.

[J McNamara]

hi Simon-

I kind of got it ...

here is a screen shot...

[image.png]

Sent with Proton Mail secure email.

thanks for your cool help,
jim

[Simon Sobisch]

Seems something important is missing (possibly a screenshot of a "broken" screen annd the DISPLAYs creating that), but what should work fine is to do something like DISPLAY SPACE AT 0101 EOS at the beginning (forcing all following screenio to be in "extended" mode) and at the start of SHOW-RECORDS do a repositioning by something like DISPLAY SPACE AT 2001 EOL,