COBOL Foro

COBOL Foro (https://www.cobolforo.es/index.php)
-   Otros Compiladores e IDE-s COBOL (https://www.cobolforo.es/forumdisplay.php?f=31)
-   -   [Compilador] Errores al compilar (https://www.cobolforo.es/showthread.php?t=1484)

dariodr 3 de mayo de 2022 04:18
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.

Josber 3 de mayo de 2022 11:26
Te está diciendo que, esos "IF", "ADD" y "DISPLAY", los has escrito antes de la columna 12, (lo que antiguamente, se conocía como "Área A", que eran las columnas 8 a 11, y las columnas 12 a 72, eran el "Área B").

Eso suele ocurrir cuando, en vez de la barra espaciadora, usas el tabulador para desplazar el cursor y empezar a escribir, que, aunque parezca que tienes el cursor bien colocado, (en la columna 12), dependiendo del procesador de textos que uses, los tabuladores los trata de una manera u otra. Borra los espacios en blanco que haya delante de esas instrucciones, e insértalos otra vez pero con la barra espaciadora.

Un salu2.-


La franja horaria es GMT +1. Ahora son las 13:57.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2022, Jelsoft Enterprises Ltd.