Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   IDE-s para GnuCOBOL (https://www.cobolforo.es/forumdisplay.php?f=95)
-   -   [Compilador] OpenCobolIde Error alucinante (https://www.cobolforo.es/showthread.php?t=1507)

Paco_Diaz 3 de agosto de 2022 20:02
OpenCobolIde Error alucinante
 
Hola.

Estoy haciendo como repaso un programin que deberia funcionar a la primera por su simpleza, pero estoy atascado en un error al que le he dado unas pocas de vueltas y aun no he podido solucionar.

El programa detecta si un numero de 3 cifras nada mas, es capicua. Lo mas facil que se me ha ocurrido es comprobar si el primer digito es un 0, y si lo es, se termina, si no es 0, comparo el primero con el tercero, si son iguales, visualiza que si, y si no, visualiza que no. Como podeis ver, una chorrada.

El codigo es este:
Código COBOL:
  1.        IDENTIFICATION DIVISION.
  2.  
  3.        PROGRAM-ID. capicua.
  4.  
  5.        ENVIRONMENT DIVISION.
  6.  
  7.        CONFIGURATION SECTION.
  8.  
  9.        INPUT-OUTPUT SECTION.
  10.  
  11.        DATA DIVISION.
  12.  
  13.        FILE SECTION.
  14.  
  15.        WORKING-STORAGE SECTION.
  16.        77  sw PICTURE 9 VALUE 0.
  17.        01  capicua.
  18.            03 primero PICTURE 9 VALUE 0.   
  19.            03 segundo PICTURE 9 VALUE 0.
  20.            03 tercero PICTURE 9 VALUE 0.
  21.        01  numero.
  22.            03 digito1 PICTURE 9 VALUE 0.
  23.            03 digito2 PICTURE 9 VALUE 0.
  24.            03 digito3 PICTURE 9 VALUE 0.
  25.  
  26.        PROCEDURE DIVISION.
  27.  
  28.        MAIN-PROCEDURE.
  29.             DISPLAY "Introduzca un numero de 3 cifras: "
  30.             ACCEPT primero
  31.             ACCEPT segundo
  32.             ACCEPT tercero
  33.  
  34.             MOVE capicua TO numero
  35.             MOVE primero to digito1
  36.             MOVE segundo to digito2
  37.             MOVE tercero to digito3
  38.  
  39.             IF digito1 EQUAL 0
  40.                 sw = 1
  41.                 IF sw = 1
  42.                     DISPLAY "El numero no tiene 3 cifras"
  43.                 ELSE
  44.                     IF digito1 NOT EQUAL digito3
  45.                         DISPLAY "NO es un numero capicua"
  46.                     ELSE
  47.                         DISPLAY "SI es un numero capicua"
  48.             .
  49.             STOP RUN.
  50.  
  51.        END PROGRAM capicua.

La variable numero, la he creado por si no podia hacer un IF directamente sobre la variable del ACCEPT.

El error lo da en la linea: "IF digito1 EQUAL 0", como "Invalid expression", o sea, increible. Tambien lo he puesto con "=", y tampoco.

A ver si alguien puede echarme una mano.

Muchas gracias. Un saludo.

Josber 3 de agosto de 2022 21:48
A ver, el fallo lo tienes en

Código COBOL:
  1. sw = 1

en COBOL, no existe esa forma, para darle valor a una variable, ha de hacerse con la instrucción MOVE,

Código COBOL:
  1. MOVE 1 TO SW

o, como es una variable numérica, también valdría

Código COBOL:
  1. COMPUTE SW = 1

Otra cosa, ya que en COBOL, se escribe muchíiiiiiisimo, puedes cambiar la instrucción PICTURE, (que no usa nadie), por su abreviatura PIC

Estos es idéntico

Código COBOL:
  1. 01  sw   PICTURE 9 VALUE 0.
  2.  
  3. 01  sw   PIC 9 VALUE 0.


Pruébalo y dinos algo.

Por cierto, todo lo que sea código COBOL, tienes un botón que pone CBL, que es para resaltar la sintaxis de ese lenguaje, (hay un botón para cada uno de los lenguajes más usados), úsalo la próxima vez, por favor.

Un salu2.-

Paco_Diaz 4 de agosto de 2022 13:08
Muchas gracias Josber, funciono a la primera. Creo que arrastre los habitos de la programación en clipper, que es ultimo lenguaje con el que he estado "reviviendo" la programacion, y por eso lo habre escrito asi.

La segunda parte del mensaje, no la he entendido. Ya tengo la sintaxis resaltada en OpenCobolIDE, hice un copia/pega del codigo. Lo del boton "cbl" tampoco lo he entendido.

Muchas gracias. Un saludo.

Josber 4 de agosto de 2022 13:56
De nada @Paco_Diaz, lo de resaltar CBL, es que, cuando escribas código COBOL, seleccionas todo el código y, una vez seleccionado, pulsas en el "botón" que hay en azul claro casi al final de la línea desde la que puedes resaltar en negrita, cursiva, subrayado, etc, el que hay justo después de una silueta con un símbolo de @, que encima en pequeño, pone CBL, eso hace que imite a un editor de texto específico para COBOL y sea más fácil de leer por los usuarios.

Un salu2.-


La franja horaria es GMT +2. Ahora son las 14:39.

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