Estou usando o cobol 85 para criar um programa que insere um número de 10 dígitos e, se o usuário digitar "END", o programa termina. Mas não consigo limpar a tela usando DISPLAY AT "position". Existe alguma sugestão? Obrigado. Aqui está o código fonte:
IDENTIFICATION DIVISION.
PROGRAM-ID. INPUT-ASSIGMENT.
******************************************************************
DATA DIVISION.
WORKING-STORAGE SECTION.
******************************************************************
01 A.
03 A1 OCCURS 10 TIMES PIC X(3).
01 I PIC 9(3).
01 J PIC 9(3).
01 KETA PIC 9(4).
01 DT-IN PIC X(3).
******************************************************************
PROCEDURE DIVISION.
PERFORM MAIN-SYORI.
STOP RUN.
******************************************************************
MAIN-SYORI SECTION.
PERFORM INITIALIZE-RTN.
PERFORM TAMEKOMI-SYORI.
PERFORM TORIDASHI-SYORI.
******************************************************************
INITIALIZE-RTN SECTION.
DISPLAY SPACE.
MOVE 1 TO I.
MOVE 1 TO J.
******************************************************************
TAMEKOMI-SYORI SECTION.
PERFORM UNTIL I > 10 OR DT-IN = "END"
DISPLAY "3文字を入力してください:"
ACCEPT DT-IN
IF DT-IN NOT = "END"
MOVE DT-IN TO A1(I)
ADD 1 TO I
END-IF
END-PERFORM.
******************************************************************
TORIDASHI-SYORI SECTION.
DISPLAY SPACE.
PERFORM VARYING J FROM 1 BY 1 UNTIL J > I - 1
DISPLAY A1(J)
END-PERFORM.
DISPLAY "プログラムは終了しました.".
******************************************************************
END PROGRAM INPUT-ASSIGMENT.