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