Resultados 1 al 2 de 2

Tema: Errores al compilar

  1. #1
      Acabo de llegar...
    d

    Registrado
    noviembre de 2018
    Edad
    52
    Mensajes
    17

    Agradecimientos
     
    Recibidos
    1
    Enviados
    3

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    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
    COBOL Código:
    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               PICVALUE SPACES.
    13.                05 TALLA-POLO           PIC XX VALUE SPACES.
    14.                05 USA-LENTES           PICVALUE SPACES.
    15.                05 TIENE-CELULAR        PICVALUE 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.

    0 Not allowed!

  2. #2
      Super Moderador
    Avatar de Josber

    Registrado
    febrero de 2015
    Mensajes
    641
    Ciudad
    Alicante

    Agradecimientos
     
    Recibidos
    338
    Enviados
    298

    Citaciones y menciones
     
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    3 Post(s)
    Poder de Reputación
    35
    Activista del Foro / Point Value: 0 Agradecimientos / Point Value: 0

    Predeterminado

    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.-

    0 Not allowed!

Información de Tema

Usuarios Viendo este Tema

Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)

Temas Similares

  1. [Información] Errores de compilación en PowerCOBOL v3
    Por britolugo en el foro PowerCOBOL V3L10 (Win32)
    Respuestas: 1
    Último Mensaje: 26.06.2020, 15:28
  2. [Información] Tabla de errores
    Por Socavi en el foro Fujitsu COBOL
    Respuestas: 4
    Último Mensaje: 18.04.2020, 09:07
  3. [Sintaxis] Ayuda a principiante con unos errores
    Por Hipromark en el foro COBOL - General
    Respuestas: 3
    Último Mensaje: 04.05.2018, 19:26
  4. [Información] Códigos de errores de RM/Cobol
    Por jmeza en el foro RM/COBOL
    Respuestas: 1
    Último Mensaje: 06.05.2017, 16:56
  5. [Información] Errores en la V10.1
    Por Dasije en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 3
    Último Mensaje: 10.08.2016, 21:14

User Tag List

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •