Cobol Foro - Ayuda Carpetas - Cargar fecha y hora de creación.

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - Ayuda Carpetas - Cargar fecha y hora de creación. (https://www.cobolforo.es/showthread.php?t=1709)

lfortuny

8 de enero de 2024 17:38

Ayuda Carpetas - Cargar fecha y hora de creación.

Necesito desde programa leer la fecha y hora de creación y/o modificación de una o varias carpeta/s.
¿Me pueden ayudar?
El 'FileList' no me sirve ya que puede no haber ficheros en la carpeta y, si los hubiera pueden ser de una fecha u hora que no correspondan con la creación de la carpeta.

Gracias.

JCantero

8 de enero de 2024 21:54

@lfortuny, yo lo realizo con un call "system" realizando un dir direccionado a un fichero y despues a analizar.

Salvo que tu cobol lleve algo especifico, no tendras otra opcion.

Kuk	9 de enero de 2024 09:32

@lfortuny, me parece que hablas de PowerCOBOL. Si es el caso, tienes el FolderList a tu disposición en el panel de componentes.

Si hablas de otro entorno, dinos cuál. ;)

También puedes recurrir a las herramientas nativas del SO, en Windows, lanzar un dir y leer la salida como fichero secuencial.

lfortuny

9 de enero de 2024 09:58

Cierto, PowerCobol.
El FolderList no me devuelve la fecha y hora de creación de la carpeta, que puede o no tener datos.
Lo mejor, es como dice JCantero es usar el 'DIR' creando un archivo temporal y analizándolo.
Gracias a tod@s.

Joseg

9 de enero de 2024 18:03

Cita:

Citación del post de lfortuny (Mensaje 9221)

Código COBOL:

01 file-name PIC X(n).
01 file-details.
    02 file-size PIC 9(18) BINARY.
    02 file-date.
        03 days PIC 9(4) BINARY.
        03 months PIC 9(4) BINARY.
        03 years PIC 9(4) BINARY.
  02 file-time.
       03 hours PIC 9(4) BINARY.
       03 minutes PIC 9(4) BINARY.
      03 seconds PIC 9(4) BINARY.
     03 m-secs PIC 9(4) BINARY.
01 status-code PIC S9(4) COMP-5.
 
 
Calling format
CALL "CBL_CHECK_FILE_EXIST2"
         USING file-name
        file-details
RETURNING status-code.

Return code
- 0: Successful
- Other than 0: Failur

Adicionar ao projecto a libraria: F3BICBLR.lib

Mais detalhes: https://software.fujitsu.com/jp/manu...297-01enz0.pdf

lfortuny

9 de enero de 2024 18:50

Gracias Joseg.
No me sirve, el 'CHK_FILE_EXIST2' no me retorna información de la carpeta, devuelve información del fichero que quiera analizar.

Se puede hacer con algo así:

Código COBOL:

            INITIALIZE llama-dir
            STRING "CMD /C " DELIMITED BY SIZE
                X"22" DELIMITED BY SIZE
                "DIR /A:D >> fichero.txt" DELIMITED BY SIZE
                X"22" DELIMITED BY SIZE
                INTO llama-dir
            END-STRING
        INVOKE POW-SELF "ExecuteSync" USING llama-dir pow-swhide RETURNING ReturnValue

y luego analizar el 'fichero.txt' que ha generado en la carpeta en curso.

La franja horaria es GMT +2. Ahora son las 16:19.