how to clear the screen

, , ,
1

hi all.
i’ve a new question. i dont know if it is possible.
in this program, after the first research, when it ask for second research, i’ve the screen with the data of first research.


0010 DEFINE DATA LOCAL
0020   1 EMPLOYEES VIEW OF EMPLOYEES
0030     2 PERSONNEL-ID (A8)
0040     2 FULL-NAME
0050       3 FIRST-NAME (A20)
0060       3 NAME (A20)
0070   1 #NAME (A20)
0080 END-DEFINE
0090 *
0100 DEFINE WINDOW W1
0110   SIZE 10*40
0120   BASE 10/40
0130 DEFINE WINDOW W2
0140   SIZE 4*40
0150   BASE 14/50
0160 *  
0170 REPEAT
0180   INPUT WINDOW='W1' / 'INSERT THE NAME ' #NAME
0190   FIND EMPLOYEES WITH NAME=#NAME
0200     IF NO RECORDS FOUND
0210        INPUT WINDOW='W2' / 'NO RECORDS FOUND'
0220        ESCAPE BOTTOM
0230     END-NOREC
0240     DISPLAY EMPLOYEES
0250   END-FIND
0260 *
0270 END-REPEAT
0280 END

result in attachment.
how can i clear the screen after press the ENTER key?

thank you

IMG.JPG

2

The simplest solutions are sometimes the best.

 Get rid of window W1. If you want you can "draw" something like a window. For example,
 something like INPUT 8/5 '*' (40)  10/7 'insert the name' #name 12/5 '*' (40). You can make this prettier
 by adding asterisks to present vertical members to a box out of asterisks. This would replace line 0180
 in your code. You could also use color to create lines that would look like a window. For example, you could  
 have an A40 field called #BLANKS that is blank. Then, instead of

INPUT 8/5 '*' (40)   you would have  INPUT 8/5 #BLANKS (AD=OV CD=PI)

There are other solutions possible, but none I can see that are as simple.

For example, You could have something like:

FIND EMPLOYEES WITH NAME = #NAME
ADD 1 to #COUNT
MOVE EMPLOYEES TO #EMP (#COUNT)
END-FIND

Then DISPLAY #EMP array with blank lines to fill the last page.

Other solutions would involve playing with %N, %Q. I have not played with these since they would definitely be messy.