Call "CFURCOV" System error occurred. code = 0x25

[dmosca]

Hola Foro:

al ejecutar cfurcov en powercobol V9 - win7 da el siguiente error:

System error occurred. code = 0x25

estoy buscando, pero no encuentro a que corresponde...


ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 RUTA PIC X(100) value "MAESTRO-.DAT".
77 ERR-ERROR PIC X(40) VALUE "C:\USR\MAL.TAD".
77 ERR-MENSAJE PIC X(40) value spaces.
PROCEDURE DIVISION.
CALL "CFURCOV" USING BY REFERENCE RUTA
BY REFERENCE ERR-ERROR
BY REFERENCE ERR-MENSAJE.

[Kuk]

dmosca, ¿qué es CFURCOV?

[dmosca]

Hola KUK

es un utilitario de netcobol para recuperar archivos indexados

copio parrafo del User´s Guide

[Kuk]

dmosca, pues según el amigo Google dicha función está definida de la siguiente manera:


signed long int CFURCOV( char *ixdfilename, char *blkdatname, char *message);


Y los campos de la siguiente:

char ixdfilename[512] = "c:\\ixdfile\0";
char blkdatname[512] = "c:\\blkdat\0";
char message[512];


Prueba cambiando los tamaños a 512.

Está en esta DLL :

[ENTRY] CFURCOV=F3BIFUTC.DLL


La propia llamada desde Cobol :


77 BLKFILE-NAME PIC X(11) VALUE "C:\BLKNDAT ".
77 MESSAGE-AREA PIC X(512).
77 IXDFILE-NAME PIC X(512).

PROCEDURE DIVISION.
CALL "CFURCOV" USING BY REFERENCE IXDFILE-NAME
BY REFERENCE BLKFILE-NAME
BY REFERENCE MESSAGE-AREA

[dmosca]

kuk

con las modificaciones da el mismo error.

al intentar con un archivo que no existe: el error cambia a "archivo inexistente" cuando el nombre del archivo está ok, da: "System error occurred. code = 0x25".

[fastpho]

dmosca,
Yo utilizo en pwc version 5 la libreria f3bifutc.lib y funciona perfectamente en ambitos de 32 y 64
te paso un ejemplo

ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TEXTO.
03 LINEA1 PIC X(65) VALUE "Se generaran los indices del archivo de articulos".
03 FILLER PIC X VALUE X"0A".
03 LINEA2 PIC X(65) VALUE "Desea continuar...".
77 BLKFILE-NON PIC X(30) VALUE "C:\SIST\ARCHIVOS\BLKNDAT.DAT".
77 MESSAGE-NON PIC S9(9) COMP-5 VALUE 0.
77 IXDFILE-NAME PIC X(512).
01 MESSAGE-AREA PIC X(512).
PROCEDURE DIVISION.
* MOVE 11 TO "MouseIconName" OF POW-SELF.
MOVE POW-FALSE TO "Enabled" OF CmCommand3.
/ INVOKE POW-SELF "ThruEvents".
if "Text" OF DISCO-TRABAJO-CLI1 = spaces
INVOKE pow-self "DisplayMessage" USING "Error debe seleccionar un archivo"
MOVE POW-TRUE TO "Enabled" OF CmCommand3
exit program
end-if.
MOVE "Text" OF DISCO-TRABAJO-CLI1 TO IXDFILE-NAME.
move "Espere realizando proceso......." to "Text" OF DISCO-TRABAJO-CLI3.
INVOKE DISCO-TRABAJO-CLI3 "Refresh".
INVOKE pow-self "Refresh".
CALL "CFURCOV" USING BY REFERENCE IXDFILE-NAME
BY REFERENCE BLKFILE-NON
BY REFERENCE MESSAGE-AREA.
* EXIT PROGRAM.
* MOVE 0 TO "MouseIconName" OF POW-SELF.
MOVE POW-TRUE TO "Enabled" OF CmCommand3.

move MESSAGE-AREA to "Text" OF DISCO-TRABAJO-CLI2.

move POW-TRUE to "Enabled" OF INSERTAR1.
move "Proceso terminado......." to "Text" OF DISCO-TRABAJO-CLI3.
MOVE 0 TO "MouseIconName" OF POW-SELF.
EXIT PROGRAM.

[dmosca]

Fastpho

gracias por la respuesta

intente con tu ejemplo pero sigue dando el error de sistema


"System error occurred. code = 0x25"

[Fito]

Hola:

Ahi donde ponés el nombre de archivo "MAESTRO-.DAT" asi se llama o fue a modo de ejemplo? por ese guion que tiene entre la 0 y el punto.

Yo en el nombre del archivo le paso la ruta completa, no sé si asi lo estás haciendo.

Saludos

Fito...

[dmosca]

Hola FIto:

modifique el nombre del archivo, sigue el mismo error

ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 BLKFILE-NAME PIC X(11) VALUE "C:\BLKNDAT ".
77 MESSAGE-AREA PIC X(512).
77 IXDFILE-NAME PIC X(512).
PROCEDURE DIVISION.
MOVE "c:\cuadros\debug\p1301090.dat" TO IXDFILE-NAME.
CALL "CFURCOV" USING BY REFERENCE IXDFILE-NAME
BY REFERENCE BLKFILE-NAME
BY REFERENCE MESSAGE-AREA

[Josber]

"C:\BLKNDAT "

Puede ser que te esté dando problemas ahora por el espacio que hay al final del nombre del fichero.

Un saludo y suerte.-

[dmosca]

Estimados muchas gracias por las respuestas

pero sigue con error,

después del intento de re indexar archivos sin error (para probar la rutina), estos quedan con error 39

[Armando]

Hola,

ponele al final del path y nombre del archivo un null x"00"

STRING cPATH-OFWORK delimited by " "
"" delimited by size
strARECUPERAR delimited by " "
".DAT" delimited by size
x"00" delimited by size
INTO BLKFILE-NAME
END-STRING

Lo mismo para el archivo donde quedarian los registros con problemas.
lo usamos mucho y sin problemas (el archivo indexado tiene que tener por lo menos un registro)

espero que resuelvas con esto
saludos
Armando

[Kuk]

dmosca, puedes hacer una prueba en otra máquina? Y también con otra versión de Windows, otra versión de Run-Times (que te puedes bajar aquí, en el foro).

Me parece que debe tratarse de algún problema del Run-Time o versión de VC++ Redistributable o algo por el estilo.

[dmosca]

Kuk

sigo con el problema, tengo run-time v9,

no tengo run-time v10...

[Kuk]

no tengo run-time v10

Aquí están: [Componente] Run-Times y Merge-Modules v10.0 - COBOL Foro (https://www.cobolforo.es/showthread.php?t=307)

[dmosca]

Hola Kuk

sigo con el error en otra pc instalando el runtime V10...

intente con COBFUT32.exe y da el mismo error: "0x25"

[dmosca]

Kuk

adjunto archivo con error 39

[fastpho]

dmosca, el zip no lo pude abrir , y ademas subi el archivo original sin el error
Saludos

[dmosca]

Fastpho

adjunto zip con los archivos...

podemos probar con una copia de la libreria? f3bifutc.lib

[dmosca]

Buen dia

encontré lo que estaba dando el error....

el archivo fue creado por rmcobol V5.36, lo modifica powercobol pero algo tiene que no le gusta, porque no lo puede abrir para reindexar.

intente con un archivo creado por el powercobol y funciona ok

muchas gracias a todos por su tiempo...