Iniciado por
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.
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 :
COBOL Código:
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 ..... )
Marcadores