[Compilador] Error al Ejecutar

[JuanPelaez]

Buenas tardes Foro ....

He hecho mi primer programa en COBOL y al ejecutarlo me da un error .....

Primero aparece una pantalla ( ver imagen adjunta I01.jpg ), para modificar las variables de entorno,
no hago nada, le doy a Ok, se ejecuta mi programa que debo pulsar un boton
y me sale un error ( ver imagen adjunta I02.jpg ) ......

Sabe alguien que es lo que pasa .... ?

Gracias

[Josber]

Es PWC 3, ¿no?, el que mejor te puede ayudar es Kuk, es quien mejor domina la instalación y manejo de esa versión.

Un saludo.-

[Kuk]

JuanPelaez, ¿cuándo salta el error, cuando les das al botón "OK" de la ventana de las variables o cuando le das al botón de tu programa que se abre después?

Publica el código de tu programa, es posible que el fallo venga de ahí también.

[JuanPelaez]

❞ JuanPelaez, ¿cuándo salta el error, cuando les das al botón "OK" de la ventana de las variables o cuando le das al botón de tu programa que se abre después? Publica el código de tu programa, es posible que el fallo venga de ahí también.

Cuando le doy al botón de mi programa ......

---------- Post añadido : 08:37 ---------- Post anterior : 06:29 ----------

Me da que debe ser el codigo que puse por que cuando cree SOLO la pantalla con el boton ya lo habia compilado y ejecutado y no daba el error .....
te pego el código añadigo en el EVENTO CLICK del boton :

 ENVIRONMENT DIVISION.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
     
     SELECT AR86-FILE
     ASSIGN TO "BARRAS.DAT"
     ORGANIZATION IS INDEXED 
     ACCESS MODE IS SEQUENTIAL 
     RECORD KEY IS RE-DE86
     FILE STATUS IS SW-FS. 
     
     SELECT TXT-FILE
     ASSIGN TO "BARRAS.TXT"
     ORGANIZATION IS LINE SEQUENTIAL
     FILE STATUS IS SW-FS. 
 DATA        DIVISION.
 FILE SECTION.
 FD  AR86-FILE. 
 01  RE-AR86.
     02  RE-CO86      PIC 99999999999999.
     02  RE-DE86      PIC X(10).
      
 FD  TXT-FILE.
 01  RE-TXT           PIC X(26). *> campos entrada + los ";"
 
 WORKING-STORAGE SECTION.
 01  SW-FS            PIC X(2).
     88  SW-FS-OK             VALUE '00' '02' '05'.
     88  SW-FS-EOF            VALUE '10'.
         
 01  ZZZ-AR86         PIC X(50).
 01  ZZZ-TXT          PIC X(50).
 
 01  CNT-1            PIC S9(9) COMP-5.
 01  CNT-2            PIC S9(9) COMP-5.
 
 LINKAGE SECTION.
 01  CMD-LINE.
     05   CMD-LENGTH  PIC S9(4) COMP-5.
     05   CMD-CONTENT PIC X(100).
 PROCEDURE   DIVISION.
 DECLARATIVES.
 ERR SECTION.
     USE AFTER ERROR PROCEDURE ON AR86-FILE.
 END DECLARATIVES.
 
     IF  CMD-LENGTH = 0
         DISPLAY "No hay parametros en entrada. EXIT"
         
         GOBACK
     END-IF
     
     UNSTRING CMD-CONTENT DELIMITED BY ";" 
         INTO ZZZ-AR86, ZZZ-TXT 
     
     DISPLAY "Fichero AR86: " ZZZ-AR86
     DISPLAY "Fichero TXT : " ZZZ-TXT
     
     PERFORM ABRIR-FICHEROS
     PERFORM READ-AR86            
     
     PERFORM UNTIL SW-FS-EOF                
         STRING RE-CO86 ";" 
                RE-DE86 ";"
                DELIMITED BY SIZE INTO RE-TXT
         
         WRITE RE-TXT
         
         IF  SW-FS-OK
             ADD 1 TO CNT-2
             
         ELSE
             DISPLAY "ERROR WRITE TXT, FS: " SW-FS
         
             GO TO 9999-ABEND
         END-IF
                                
         PERFORM READ-AR86
     END-PERFORM
     
     DISPLAY "Registros leidos AR86 : " CNT-1
     DISPLAY "Registros escritos TXT: " CNT-2
     
     CLOSE AR86-FILE, TXT-FILE
     
     DISPLAY "Tratamiento de datos OK"
     
     GOBACK
     .            
     
 ABRIR-FICHEROS.
 
     OPEN INPUT AR86-FILE
     
     IF  NOT SW-FS-OK
         DISPLAY "ERROR OPEN AR86, FS: " SW-FS
         
         GOBACK
     END-IF
     
     OPEN OUTPUT TXT-FILE
     
     IF  NOT SW-FS-OK
         DISPLAY "ERROR OPEN TXT, FS: " SW-FS
         
         GOBACK
     END-IF
     .
     
 READ-AR86.
     
     READ AR86-FILE
     
     IF  SW-FS-OK
         ADD 1 TO CNT-1
         
     ELSE
         IF  NOT SW-FS-EOF
             DISPLAY "ERROR READ AR86, FS: " SW-FS
         
             GOBACK
         END-IF
     END-IF
     .
         
 9999-ABEND.
     
     DISPLAY "ABEND - exit"
     
     CLOSE AR86-FILE, TXT-FILE
     
     MOVE 8 TO RETURN-CODE
     
     GOBACK 
     .

Es un código copiado y adaptado ( seguramente mal ..... )

[Kuk]

JuanPelaez, quita la LINKAGE SECTION y todo lo relacionado con ella, no puedes tenerla ahí.

❞ Es un código copiado y adaptado

Es código mío, lo reconozco enseguida