Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   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
[Noticia] PowerCOBOL v11 - ¡¡¡Sí que existe!!! Josber PowerCOBOL (ActiveX, v4 - v11) 47 14 de julio de 2018 23:38
[Información] ¿Existe alguna version de RM/Cobol gratuita? JuanPelaez RM/COBOL 1 27 de abril de 2018 18:26
[Información] ¿Existe alguna version de NetCobol gratuita? JuanPelaez NetCOBOL for Windows 9 27 de abril de 2018 12:14
Respuesta
 
Herramientas

  #1
Antiguo 17 de mayo de 2016, 16:38
IDENTIFICATION DIVISION
JuanJuan77
Novato Junior
ENVIRONMENT DIVISION
Avatar de JuanJuan77
DATA DIVISION
Forero desde (Registrado)octubre 2015
Argentina
Ubicación Empalme Villa Constitución
Última Actividad18.01.2021 15:43
PROCEDURE DIVISION
PostsPosts: 35
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 1
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
JuanJuan77 is on a distinguished road
Carpeta Ver si existe un archivo

Hola, como puedo saber en powercobol si existe un archivo en un directorio?

saludos
JuanJuan77 no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 1
  #2
Antiguo 17 de mayo de 2016, 18:49
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
Ubicación Madrid
Edad36 años
Última Actividad03.03.2021 00:23
PROCEDURE DIVISION
PostsPosts: 1.708
Ha dicho GraciasEnviado: 516
Ha recibido agradecimientosRecibido: 695
Mejores respuestasSoluiones: 92
ReputaciónReputació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
1 usuarios han marcado este post como "Solución"

JuanJuan77, hay varios modos. Se puede hacer por WinAPI, también con un CmFile y recorrerlo. Pero lo más fácil y apropiado en este caso será usar la rutina correspondiente:

Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  01 file-name          PIC X(n).
  3.  01 file-details.      
  4.     02 file-size       PIC 9(18) BINARY.
  5.     02 file-date.      
  6.        03 day          PIC 9(4) BINARY.
  7.        03 month        PIC 9(4) BINARY.
  8.        03 year         PIC 9(4) BINARY.
  9.     02 file-time.      
  10.        03 hour         PIC 9(4) BINARY.
  11.        03 minute       PIC 9(4) BINARY.
  12.        03 second       PIC 9(4) BINARY.
  13.        03 1-100-second PIC 9(4) BINARY.
  14.  01 status-code        PIC S9(4) COMP-5.
  15.  
  16. PROCEDURE DIVISION.
  17.  
  18.     CALL "CBL_CHECK_FILE_EXIST2"
  19.        USING file-name file-details
  20.        RETURNING status-code

Para poder usar las rutinas CBL_ hay que añadir la librería siguiente al proyecto:

Código:
C:\Program Files\Fujitsu NetCOBOL for Windows\F3BICBLR.lib


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
JuanJuan77 (17 de mayo de 2016)
  #3
Antiguo 19 de mayo de 2016, 18:47
IDENTIFICATION DIVISION
Adrianeloy
Novato Junior
ENVIRONMENT DIVISION
Avatar de Adrianeloy
DATA DIVISION
Forero desde (Registrado)marzo 2015
Argentina
Ubicación Santa Fe/rosario
Edad54 años
Última Actividad24.11.2020 17:31
PROCEDURE DIVISION
PostsPosts: 39
Ha dicho GraciasEnviado: 30
Ha recibido agradecimientosRecibido: 31
Mejores respuestasSoluiones: 3
ReputaciónReputación: 0
Adrianeloy is on a distinguished road Adrianeloy is on a distinguished road Adrianeloy is on a distinguished road
Predeterminado

JuanJuan77, yo "cargo" el fichero a un Item EDIT de esta forma:

Código COBOL:
  1.      CALL LOADFILE OF EDIT1 USING "ruta y nombre del archivo"
  2.      IF PROGRAM-STATUS NOT = ZEROS DISPLAY "El archivo no existe".

De esto modo, no necesito agregar librerias y puedo leer hasta rutas y nombres de archivo con espacios en blanco.

NOTA: Al item EDIT1 lo limito a 1 caracter para que no lea ficheros pesados innecesariamente.
(O sea, entro su "Edit Item Style\ExStyle...", tildo "Limit Text" y le pongo 1 de valor)
Adrianeloy no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 19 de mayo de 2016, 21:59
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
Ubicación Madrid
Edad36 años
Última Actividad03.03.2021 00:23
PROCEDURE DIVISION
PostsPosts: 1.708
Ha dicho GraciasEnviado: 516
Ha recibido agradecimientosRecibido: 695
Mejores respuestasSoluiones: 92
ReputaciónReputació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

Adrianeloy, usa el resalto de sintaxis

En cuanto al tema, en PowerCOBOL 9 si el archivo no existe, creo recordar que da error. Además, puede que necesites comprobar un archivo que no es de texto plano. Por ejemplo un indexado.


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 20 de mayo de 2016, 17:06
IDENTIFICATION DIVISION
Adrianeloy
Novato Junior
ENVIRONMENT DIVISION
Avatar de Adrianeloy
DATA DIVISION
Forero desde (Registrado)marzo 2015
Argentina
Ubicación Santa Fe/rosario
Edad54 años
Última Actividad24.11.2020 17:31
PROCEDURE DIVISION
PostsPosts: 39
Ha dicho GraciasEnviado: 30
Ha recibido agradecimientosRecibido: 31
Mejores respuestasSoluiones: 3
ReputaciónReputación: 0
Adrianeloy is on a distinguished road Adrianeloy is on a distinguished road Adrianeloy is on a distinguished road
Predeterminado

Kuk, es cierto, la verdad lo usé y probé solo en PowerCobol V3.
Pero te aseguro que funciona con todo los tipo de archivos (texto, indexados, jpg, etc...)
Adrianeloy no ha iniciado sesión   Responder Con Cita
  #6
Antiguo 18 de enero de 2021, 15:43
IDENTIFICATION DIVISION
JuanJuan77
Novato Junior
ENVIRONMENT DIVISION
Avatar de JuanJuan77
DATA DIVISION
Forero desde (Registrado)octubre 2015
Argentina
Ubicación Empalme Villa Constitución
Última Actividad18.01.2021 15:43
PROCEDURE DIVISION
PostsPosts: 35
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 1
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
JuanJuan77 is on a distinguished road
Predeterminado me da un error

Cita del post de Adrianeloy Ver Mensaje
JuanJuan77, yo "cargo" el fichero a un Item EDIT de esta forma:

Código COBOL:
  1.      CALL LOADFILE OF EDIT1 USING "ruta y nombre del archivo"
  2.      IF PROGRAM-STATUS NOT = ZEROS DISPLAY "El archivo no existe".

De esto modo, no necesito agregar librerias y puedo leer hasta rutas y nombres de archivo con espacios en blanco.

NOTA: Al item EDIT1 lo limito a 1 caracter para que no lea ficheros pesados innecesariamente.
(O sea, entro su "Edit Item Style\ExStyle...", tildo "Limit Text" y le pongo 1 de valor)

al mover una ruta y nombre del archivo donde no existe el archivo me da un error y no puedo resolverlo.
JuanJuan77 no ha iniciado sesión   Responder Con Cita
  #7
Antiguo 20 de enero de 2021, 11:16
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
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad02.03.2021 20:43
PROCEDURE DIVISION
PostsPosts: 562
Ha dicho GraciasEnviado: 254
Ha recibido agradecimientosRecibido: 271
Mejores respuestasSoluiones: 35
ReputaciónReputación: 27
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 JuanJuan77 Ver Mensaje
al mover una ruta y nombre del archivo donde no existe el archivo me da un error y no puedo resolverlo.
¿Qué error te da?
Josber no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
cbl_check_file_exist2 , existencia archivo


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 03:45.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.