OpenCobolIde Error alucinante

[Paco_Diaz]

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:

       IDENTIFICATION DIVISION.
 
       PROGRAM-ID. capicua.
 
       ENVIRONMENT DIVISION.
 
       CONFIGURATION SECTION.
 
       INPUT-OUTPUT SECTION.
 
       DATA DIVISION.
 
       FILE SECTION.
 
       WORKING-STORAGE SECTION.
       77  sw PICTURE 9 VALUE 0.
       01  capicua.
           03 primero PICTURE 9 VALUE 0.   
           03 segundo PICTURE 9 VALUE 0.
           03 tercero PICTURE 9 VALUE 0.
       01  numero.
           03 digito1 PICTURE 9 VALUE 0.
           03 digito2 PICTURE 9 VALUE 0.
           03 digito3 PICTURE 9 VALUE 0.
 
       PROCEDURE DIVISION.
 
       MAIN-PROCEDURE.
            DISPLAY "Introduzca un numero de 3 cifras: "
            ACCEPT primero
            ACCEPT segundo
            ACCEPT tercero
 
            MOVE capicua TO numero
            MOVE primero to digito1
            MOVE segundo to digito2
            MOVE tercero to digito3
 
            IF digito1 EQUAL 0
                sw = 1
                IF sw = 1
                    DISPLAY "El numero no tiene 3 cifras"
                ELSE
                    IF digito1 NOT EQUAL digito3
                        DISPLAY "NO es un numero capicua"
                    ELSE
                        DISPLAY "SI es un numero capicua"
            .
            STOP RUN.
 
       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]

A ver, el fallo lo tienes en

sw = 1

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

MOVE 1 TO SW

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

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

01  sw   PICTURE 9 VALUE 0.
 
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]

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]

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