Tema: RainCode COBOL - Error en Screen Section
Ver Mensaje Individual
  #1
Antiguo 29 de abril de 2022, 08:00
dariodr
Forero
Última Actividad 21.09.2026 13:09
Posts Posts: 57
Likes enviados Enviados: 17
Likes recibidos Recibidos: 11
Consola RainCode COBOL - Error en Screen Section
0
Likes

None...

Inactivo Inactivo
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:

Código COBOL:
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. HOLA.
  3.       *
  4.        ENVIRONMENT DIVISION.
  5.       *
  6.        DATA DIVISION.
  7.        WORKING-STORAGE SECTION.
  8.        01 TABLA.
  9.            03 AGENDA OCCURS 5 TIMES.
  10.               05 NOMBRE       PIC X(20).
  11.               05 APELLIDO     PIC X(30).
  12.               05 DIRECCION    PIC X(40).
  13.        01  CONTA           PIC 9.
  14.        SCREEN SECTION.
  15.        01  LIMPIA-PANTALLA.
  16.            05 BLANK SCREEN.
  17.       *
  18.        PROCEDURE DIVISION.
  19.        PRINCIPAL.
  20.            MOVE 1 TO CONTA.
  21.            DISPLAY LIMPIA-PANTALLA.
  22.            PERFORM INGRESO-DATOS 5 TIMES.
  23.            MOVE 1 TO CONTA.
  24.            DISPLAY LIMPIA-PANTALLA.
  25.            PERFORM MUESTRA-DATOS 5 TIMES.
  26.            STOP RUN.
  27.  
  28.        INGRESO-DATOS.
  29.            DISPLAY "Persona Nro " CONTA.
  30.            DISPLAY "Nombre: " NO ADVANCING.
  31.            ACCEPT NOMBRE(CONTA).
  32.            DISPLAY "Apellido: " NO ADVANCING.
  33.            ACCEPT APELLIDO(CONTA).
  34.            DISPLAY "Direccion: " NO ADVANCING.
  35.            ACCEPT DIRECCION(CONTA).
  36.            ADD 1 TO CONTA.
  37.            display " ".
  38.  
  39.        MUESTRA-DATOS.
  40.            DISPLAY "Nombre: " NOMBRE(CONTA).
  41.            DISPLAY "Apellido: " APELLIDO(CONTA).
  42.            DISPLAY "Direccion: " DIRECCION(CONTA).
  43.            ADD 1 TO CONTA.
dariodr is offline   Responder Con Cita