Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Otros Compiladores e IDE-s COBOL
Otros Compiladores e IDE-s COBOL CA-Realia COBOL, GNU Cobol, Raincode Cobol, Objective Cobol etc.
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Información] Errores de compilación en PowerCOBOL v3 britolugo PowerCOBOL V3L10 (Win32) 1 26 de junio de 2020 14:28
[Información] Tabla de errores Socavi Fujitsu COBOL 4 18 de abril de 2020 08:07
[Sintaxis] Ayuda a principiante con unos errores Hipromark COBOL - General 3 4 de mayo de 2018 18:26
[Información] Códigos de errores de RM/Cobol jmeza RM/COBOL 1 6 de mayo de 2017 15:56
[Información] Errores en la V10.1 Dasije PowerCOBOL (ActiveX, v4 - v11) 3 10 de agosto de 2016 20:14
Respuesta
 
Herramientas

  #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
01.07.2022 09:28
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
  #2
Antiguo 3 de mayo de 2022, 11:26
IDENTIFICATION DIVISION
Josber
 Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
febrero 2015
Alicante
01.07.2022 20:00
PROCEDURE DIVISION
Posts: 636
Enviado: 297
Recibido: 334
Soluciones: 45
Reputación: 35
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
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.-
Josber no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 05:16.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2022, Jelsoft Enterprises Ltd.