Tema: [Compilador] Errores al compilar
Ver Mensaje Individual
  #1
Antiguo 3 de mayo de 2022, 04:18
IDENTIFICATION DIVISION
dariodr
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de dariodr
DATA DIVISION
noviembre 2018
52 años
29.06.2022 11:44
PROCEDURE DIVISION
Posts: 16
Enviado: 3
Recibido: 1
Soluciones: 0
Reputación: 0
dariodr is an unknown quantity at this point
Predeterminado Errores al compilar

Hola, tengo este codigo pero al compilar me aparecen estos errores:
En rmcobol compila bien.

Código:
IBM COBOL for Linux 1.1.0 compile started
0LineID  Message code  Message text
         IGYSC0090-W   5 sequence errors were found in this program.
     52  IGYPS0009-E   "IF" should not begin in area "A".  It was processed as if found in ar
                       ea "B".
     55  IGYPS0009-E   "ADD" should not begin in area "A".  It was processed as if found in a
                       rea "B".
     58  IGYPS0009-E   "DISPLAY" should not begin in area "A".  It was processed as if found 
                       in area "B".
                       Same message on line:     59
-Messages    Total    Informational    Warning    Error    Severe    Terminating
0Printed:       5                          1         4                      
End of compilation 1,  program COMUNI,  highest severity: Error.
Return code 8
Código COBOL:
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. COMUNI.
  3.      *
  4.        ENVIRONMENT DIVISION.
  5.      *
  6.        DATA DIVISION.
  7.        WORKING-STORAGE SECTION.
  8.        01  NUM-PERSONAS                PIC 9(3) VALUE 1.
  9.        01  COMUNIDAD.
  10.            03 TABLA-PERSONAS OCCURS 100 TIMES
  11.                              DEPENDING ON NUM-PERSONAS.
  12.                05 GENERO               PIC X  VALUE SPACES.
  13.                05 TALLA-POLO           PIC XX VALUE SPACES.
  14.                05 USA-LENTES           PIC X  VALUE SPACES.
  15.                05 TIENE-CELULAR        PIC X  VALUE SPACES.
  16.                05 EDAD                 PIC 99 VALUE 0.
  17.        01  MAS-DATOS                   PIC X VALUE SPACES.
  18.        01  CONTA                       PIC 9(3) VALUE 1.
  19.        01  VARIABLES.
  20.            03 MUJER-TALLAM             PIC 99 VALUE 0.
  21.            03 HOMBRE-TALLAXL           PIC 99 VALUE 0.
  22.      *
  23.        PROCEDURE DIVISION.
  24.        PRINCIPAL.
  25.            PERFORM INGRESO-DATOS UNTIL MAS-DATOS = 'N'.
  26.            PERFORM PUNTO-A UNTIL CONTA > NUM-PERSONAS.
  27.            PERFORM RESULTADOS.
  28.            STOP RUN.
  29.      *
  30.        INGRESO-DATOS.
  31.            DISPLAY "Genero (M o F): " NO ADVANCING.
  32.            ACCEPT GENERO(NUM-PERSONAS).
  33.            DISPLAY "Talla de polo (S,M,L,XL): " NO ADVANCING.
  34.            ACCEPT TALLA-POLO(NUM-PERSONAS).
  35.            DISPLAY "Usa lentes (S/N): " NO ADVANCING.
  36.            ACCEPT USA-LENTES(NUM-PERSONAS).
  37.            DISPLAY "Tiene celular (S/N): " NO ADVANCING.
  38.            ACCEPT TIENE-CELULAR(NUM-PERSONAS).
  39.            DISPLAY "Edad de la persona: " NO ADVANCING.
  40.            ACCEPT EDAD(NUM-PERSONAS).
  41.            DISPLAY "Registrar mas personas S/N: " NO ADVANCING.
  42.            ACCEPT MAS-DATOS.
  43.            IF MAS-DATOS = "S"
  44.                ADD 1 TO NUM-PERSONAS
  45.            END-IF.
  46.      *
  47.        PUNTO-A.
  48.            MOVE 1 TO CONTA.
  49.            IF GENERO(CONTA) = "F" AND TALLA-POLO(CONTA) = "M"
  50.                ADD 1 TO MUJER-TALLAM
  51.            END-IF.
  52.            IF GENERO(CONTA) = "M" AND TALLA-POLO(CONTA) = "XL"
  53.                ADD 1 TO HOMBRE-TALLAXL
  54.            END-IF.
  55.            ADD 1 TO CONTA.
  56.       *
  57.        RESULTADOS.  
  58.            DISPLAY "Mujeres con talla M: " MUJER-TALLAM.
  59.            DISPLAY "Hombres con talla XL: " HOMBRE-TALLAXL.
dariodr no ha iniciado sesión   Responder Con Cita