Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Componente] Gerar QR Code Paulo PowerCOBOL (ActiveX, v4 - v11) 4 9 de noviembre de 2018 16:18
[Sintaxis] Error en programa: Illegal function call Begoguay PowerCOBOL (ActiveX, v4 - v11) 3 11 de julio de 2018 18:41
[Sintaxis] CALL a programas externos en Windows 8 Gusaiello AcuCobol 8 28 de diciembre de 2017 17:08
[Sintaxis] Equivalente al comando System de RM Cobol apetro PowerCOBOL (ActiveX, v4 - v11) 1 21 de julio de 2016 06:58
[Sintaxis] Imprimir PDF desde DOS (CALL "SYSTEM") Roger RM/COBOL 1 1 de julio de 2016 15:40
Respuesta
 
Herramientas

  #1
Antiguo 23 de julio de 2019, 14:34
IDENTIFICATION DIVISION
dmosca
 Novato Junior
ENVIRONMENT DIVISION
Avatar de dmosca
DATA DIVISION
marzo 2017
Mendoza
22.07.2021 15:09
PROCEDURE DIVISION
Posts: 67
Enviado: 32
Recibido: 4
Soluiones: 1
Reputación: 5
dmosca is an unknown quantity at this point
Predeterminado Call "CFURCOV" System error occurred. code = 0x25

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

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  77 RUTA        PIC X(100) value "MAESTRO-.DAT".
  5.  77 ERR-ERROR   PIC X(40) VALUE "C:\USR\MAL.TAD".
  6.  77 ERR-MENSAJE PIC X(40) value spaces.
  7.  PROCEDURE       DIVISION.
  8.      CALL "CFURCOV" USING BY REFERENCE RUTA
  9.           BY REFERENCE ERR-ERROR
  10.           BY REFERENCE ERR-MENSAJE.
dmosca no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 1
  #2
Antiguo 24 de julio de 2019, 17:54
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
31.07.2021 23:26
PROCEDURE DIVISION
Posts: 1.780
Enviado: 568
Recibido: 734
Soluiones: 95
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

dmosca, ¿qué es CFURCOV?



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 24 de julio de 2019, 19:26
IDENTIFICATION DIVISION
dmosca
 Novato Junior
ENVIRONMENT DIVISION
Avatar de dmosca
DATA DIVISION
marzo 2017
Mendoza
22.07.2021 15:09
PROCEDURE DIVISION
Posts: 67
Enviado: 32
Recibido: 4
Soluiones: 1
Reputación: 5
dmosca is an unknown quantity at this point
Predeterminado

Hola KUK

es un utilitario de netcobol para recuperar archivos indexados

copio parrafo del User´s Guide
Imágenes Adjuntas
Tipo de Archivo: jpg Captura.JPG (27,6 KB, 4 descargas)
dmosca no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Kuk (24 de julio de 2019)
  #4
Antiguo 24 de julio de 2019, 20:26
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
31.07.2021 23:26
PROCEDURE DIVISION
Posts: 1.780
Enviado: 568
Recibido: 734
Soluiones: 95
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

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

Código CPP:
  1. signed long int CFURCOV( char *ixdfilename, char *blkdatname, char *message);

Y los campos de la siguiente:
Código CPP:
  1. char ixdfilename[512] = "c:\\ixdfile\0";
  2. char blkdatname[512] = "c:\\blkdat\0";
  3. char message[512];

Prueba cambiando los tamaños a 512.

Está en esta DLL :
Código:
 [ENTRY] CFURCOV=F3BIFUTC.DLL
La propia llamada desde Cobol :

Código COBOL:
  1.  77 BLKFILE-NAME PIC X(11) VALUE "C:\BLKNDAT ".
  2.  77 MESSAGE-AREA PIC X(512).
  3.  77 IXDFILE-NAME PIC X(512).
  4.  
  5.  PROCEDURE DIVISION.  
  6.       CALL "CFURCOV" USING BY REFERENCE IXDFILE-NAME
  7.                            BY REFERENCE BLKFILE-NAME
  8.                            BY REFERENCE MESSAGE-AREA
  9.                            



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 24 de julio de 2019, 21:25
IDENTIFICATION DIVISION
dmosca
 Novato Junior
ENVIRONMENT DIVISION
Avatar de dmosca
DATA DIVISION
marzo 2017
Mendoza
22.07.2021 15:09
PROCEDURE DIVISION
Posts: 67
Enviado: 32
Recibido: 4
Soluiones: 1
Reputación: 5
dmosca is an unknown quantity at this point
Predeterminado

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".
dmosca no ha iniciado sesión   Responder Con Cita
  #6
Antiguo 24 de julio de 2019, 22:24
IDENTIFICATION DIVISION
fastpho
 Novato Senior
Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Razón: Acceso a datos Cobol vía web 
ENVIRONMENT DIVISION
Avatar de fastpho
DATA DIVISION
diciembre 2016
Mendoza
50 años
30.07.2021 12:55
PROCEDURE DIVISION
Posts: 156
Enviado: 100
Recibido: 87
Soluiones: 19
Reputación: 13
fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point
Predeterminado

dmosca,
Yo utilizo en pwc version 5 la libreria f3bifutc.lib y funciona perfectamente en ambitos de 32 y 64
te paso un ejemplo
Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01 TEXTO.
  5.     03 LINEA1 PIC X(65) VALUE "Se generaran los indices del archivo de articulos".
  6.     03 FILLER PIC X VALUE X"0A".
  7.     03 LINEA2 PIC X(65) VALUE "Desea continuar...".
  8.  77 BLKFILE-NON PIC X(30) VALUE "C:\SIST\ARCHIVOS\BLKNDAT.DAT".
  9.  77 MESSAGE-NON PIC S9(9) COMP-5 VALUE 0.
  10.  77 IXDFILE-NAME PIC X(512).
  11.  01 MESSAGE-AREA PIC X(512).
  12.  PROCEDURE       DIVISION.
  13. *    MOVE 11 TO "MouseIconName" OF POW-SELF.
  14.      MOVE POW-FALSE TO "Enabled" OF CmCommand3.
  15. /     INVOKE POW-SELF "ThruEvents".
  16.      if "Text" OF DISCO-TRABAJO-CLI1 = spaces
  17.       INVOKE pow-self "DisplayMessage" USING "Error debe seleccionar un archivo"
  18.           MOVE POW-TRUE TO "Enabled" OF CmCommand3
  19.         exit program
  20.      end-if.
  21.      MOVE "Text" OF DISCO-TRABAJO-CLI1 TO IXDFILE-NAME.
  22.      move "Espere realizando proceso......."  to "Text" OF DISCO-TRABAJO-CLI3.
  23.      INVOKE DISCO-TRABAJO-CLI3 "Refresh".
  24.      INVOKE pow-self "Refresh".
  25.      CALL "CFURCOV" USING BY REFERENCE IXDFILE-NAME
  26.                           BY REFERENCE BLKFILE-NON
  27.                           BY REFERENCE MESSAGE-AREA.
  28. *    EXIT PROGRAM.
  29. *    MOVE 0 TO "MouseIconName" OF POW-SELF.
  30.      MOVE POW-TRUE    TO "Enabled" OF CmCommand3.
  31.      
  32.      move MESSAGE-AREA to "Text" OF DISCO-TRABAJO-CLI2.
  33.  
  34.      move POW-TRUE to "Enabled" OF INSERTAR1.
  35.      move "Proceso terminado......."  to "Text" OF DISCO-TRABAJO-CLI3.
  36.      MOVE 0 TO "MouseIconName" OF POW-SELF.    
  37.      EXIT PROGRAM.
fastpho no ha iniciado sesión   Responder Con Cita
  #7
Antiguo 25 de julio de 2019, 00:45
IDENTIFICATION DIVISION
dmosca
 Novato Junior
ENVIRONMENT DIVISION
Avatar de dmosca
DATA DIVISION
marzo 2017
Mendoza
22.07.2021 15:09
PROCEDURE DIVISION
Posts: 67
Enviado: 32
Recibido: 4
Soluiones: 1
Reputación: 5
dmosca is an unknown quantity at this point
Predeterminado

Fastpho

gracias por la respuesta

intente con tu ejemplo pero sigue dando el error de sistema


"System error occurred. code = 0x25"
dmosca no ha iniciado sesión   Responder Con Cita
  #8
Antiguo 25 de julio de 2019, 15:45
IDENTIFICATION DIVISION
Fito
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por el Avatar  Activista del Foro: Activista del Foro - Razón: Por aportar ideas 
ENVIRONMENT DIVISION
Avatar de Fito
DATA DIVISION
febrero 2015
Córdoba, Villa María
50 años
31.07.2021 19:51
PROCEDURE DIVISION
Posts: 274
Enviado: 139
Recibido: 131
Soluiones: 13
Reputación: 19
Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road
Predeterminado

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...
Fito no ha iniciado sesión   Responder Con Cita
  #9
Antiguo 25 de julio de 2019, 17:09
IDENTIFICATION DIVISION
dmosca
 Novato Junior
ENVIRONMENT DIVISION
Avatar de dmosca
DATA DIVISION
marzo 2017
Mendoza
22.07.2021 15:09
PROCEDURE DIVISION
Posts: 67
Enviado: 32
Recibido: 4
Soluiones: 1
Reputación: 5
dmosca is an unknown quantity at this point
Predeterminado

Hola FIto:

modifique el nombre del archivo, sigue el mismo error

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  77 BLKFILE-NAME PIC X(11) VALUE "C:\BLKNDAT ".
  5.  77 MESSAGE-AREA PIC X(512).
  6.  77 IXDFILE-NAME PIC X(512).
  7.  PROCEDURE       DIVISION.
  8.       MOVE "c:\cuadros\debug\p1301090.dat" TO IXDFILE-NAME.
  9.       CALL "CFURCOV" USING BY REFERENCE IXDFILE-NAME
  10.                            BY REFERENCE BLKFILE-NAME
  11.                            BY REFERENCE MESSAGE-AREA
dmosca no ha iniciado sesión   Responder Con Cita
  #10
Antiguo 25 de julio de 2019, 19:10
IDENTIFICATION DIVISION
Josber
 Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
febrero 2015
Alicante
31.07.2021 17:38
PROCEDURE DIVISION
Posts: 591
Enviado: 269
Recibido: 289
Soluiones: 38
Reputación: 29
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

Cita del post de dmosca Ver Mensaje
"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.-
Josber no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 06:16.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.