clearing screen (Fujitsu v3)

[Minora]

Hi
How do I clear the display (Fujitsu v3).
I am running win98SE.

In Micro Focus personal Cobol I use this code "DISPLAY SPACES UPON CRT" and the display is cleared. This code is also executed in Fujitsu but it just opens another display window called "screen". (the other windows is the console that displays my menu).

Here is what I tried:
1) write a "perform n times" routine to display say 80 space on the console
it works, but the menu is displayed at the bottom of the console window.
2) Placed the following code in the special-names paragraph "console is
crt". Now only one windows is opened "screen". But this creates a new
problem now each new line is displayed on the previous line. So after the
menu is displayed only the last line show on the "screen" window and the
cursor for the accept statement is flashing at left of this last line. It
looks like this:
"0 5) EXITT A REPORT OF TRANSACTIONS TO DATE" (The cursor is flashing in
the 0 at the beginning of the line. Please see my code below.)
What am I missing as this code works perfectly in MF?

Here is my code:

DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 MENU-OP.
05 CHOICE PIC 9 VALUE 0.
PROCEDURE DIVISION.
PERFORM MAIN-MENU UNTIL CHOICE = 5
STOP RUN.
*
MAIN-MENU SECTION.
DISPLAY SPACES UPON CRT
DISPLAY ' **-- MAIN MENU --**'
DISPLAY SPACE.
DISPLAY ' PLEASE MAKE A CHOICE (VALID RANGE 1 - 4)'
DISPLAY ' ----------------------------------------'
DISPLAY SPACE
DISPLAY ' 1.) ENTER INCOME'
DISPLAY ' 2.) ENTER A TRANSACTION'
DISPLAY ' 3.) DISPLAY SUMMARY REPORT'
DISPLAY ' 4.) PRINT A REPORT OF TRANSACTIONS TO DATE'
DISPLAY ' 5.) EXIT'
DISPLAY SPACE
ACCEPT CHOICE

Thanks
Minora

 

[mrregan]

Minora,
I dont know anything about Fujitsu cobol, but you might want to try the following changes:
1. Change 'display spaces upon crt' to 'display " " line 1 position 1 erase'.
2. Put line and position numbers in your display and accept statements.
Hope this helps...

 

[Thane]

The best way to handle this with Fujitsu is to use a Screen Section and use ERASE SCREEN.