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í. :ojo1:

Es un código copiado y adaptado
Es código mío, lo reconozco enseguida :D ;)