Hola amigos, requiero su ayuda para solucionar esto.
Tengo un codigo COBOL algo simple, la cuestion es que cuando compilo (con RainCode COBOL) me aparecen errores en la SCREEN SECTION no se que puede estar pasando.
El error es este:
cobrc hola.cob
1:hola.cob
hola.cob:21:20:Error:Not resolved: LIMPIA-PANTALLA
hola.cob:24:20:Error:Not resolved: LIMPIA-PANTALLA
El codigo es este:
COBOL Código:
IDENTIFICATION DIVISION.
PROGRAM-ID. HOLA.
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TABLA.
03 AGENDA OCCURS 5 TIMES.
05 NOMBRE PIC X(20).
05 APELLIDO PIC X(30).
05 DIRECCION PIC X(40).
01 CONTA PIC 9.
SCREEN SECTION.
01 LIMPIA-PANTALLA.
05 BLANK SCREEN.
*
PROCEDURE DIVISION.
PRINCIPAL.
MOVE 1 TO CONTA.
DISPLAY LIMPIA-PANTALLA.
PERFORM INGRESO-DATOS 5 TIMES.
MOVE 1 TO CONTA.
DISPLAY LIMPIA-PANTALLA.
PERFORM MUESTRA-DATOS 5 TIMES.
STOP RUN.
INGRESO-DATOS.
DISPLAY "Persona Nro " CONTA.
DISPLAY "Nombre: " NO ADVANCING.
ACCEPT NOMBRE(CONTA).
DISPLAY "Apellido: " NO ADVANCING.
ACCEPT APELLIDO(CONTA).
DISPLAY "Direccion: " NO ADVANCING.
ACCEPT DIRECCION(CONTA).
ADD 1 TO CONTA.
display " ".
MUESTRA-DATOS.
DISPLAY "Nombre: " NOMBRE(CONTA).
DISPLAY "Apellido: " APELLIDO(CONTA).
DISPLAY "Direccion: " DIRECCION(CONTA).
ADD 1 TO CONTA.