Form-level DISPLAY and ACCEPT (Screen Section)

SCREEN SECTION.
01  ADDRESS-SCREEN.
    03  ERASE SCREEN.
    03  "Name:".
    03  TO NAME, COLUMN 12.
    03  "Address 1:", LINE + 1.
    03  TO ADDRESS-1, COLUMN 12.
    03  "Address 2:", LINE + 1.
    03  TO ADDRESS-2, COLUMN 12.
    03  "City:", LINE + 1.
    03  TO CITY, COLUMN 12.
    03  "State:", COLUMN 25.
    03  TO STATE, COLUMN 32.
DISPLAY-AND-ACCEPT-ADDRESS.
    DISPLAY ADDRESS-SCREEN.
    ACCEPT ADDRESS-SCREEN.

There are three primary advantages of the Screen Section:

• The centralized screen definition is easier to maintain, especially when screen processing occurs in more than one place in the program.
• Automatic handling of arrow keys allows the user to move between fields without specialized programming.
• Users gain improved automatic mouse handling on systems where the mouse is supported.