Re: Carpetas compartidas(no QDLS)

Thu, 10 Mar 2005 09:32:22 -0800

[EMAIL PROTECTED] escribió:

Hola Foro, una pregunta rebuscada a ver si esto se puede hacer sólo con recursos del AS.
En una carpeta no QDLS porque el nombre del fichero es muy largo, se copian varios ficheros
Ej: 20050302A.txt
     20050302B.txt
     20050302C.txt
    Etc.
Se trata de uno a uno y automáticamente irlos incorporando en un fichero del AS.
La segunda parte está clara, cada vez que recupero un fichero, hago un CPYFRMSTMF, lo paso a un fichero  de base de datos y llamo a un proceso, pero es que previamente no sé el nombre de los ficheros de las carpetas, sólo que empiezan por la fecha del dia, y no sé cómo procesarlos todos automáticamente y uno a uno. Hay algo parecido a CHKDLO pero con carpetas no QDLS y que acepte patrones(*)?        
       
habrá otras maneras más elegantes, pero la siguiente puede valer:

QSH CMD('LS /DIRECTORIO > /TMP/ARCHIVOS') : te deja en tmp/archivos la lista de ficheros

A partir de aquí, con las api's de manejo de ficheros del IFS, puedes consultar el fichero ARCHIVOS para ver los ficheros que hay en el directorio, o también, con cpyfrmstmf, puedes copiar ARCHIVOS  a un miembro de un archivo fuente, y a partir de ahí tratarlo como cualquier otro archivo en rpg.

como cpyfrmstmf es algo pejiguero en la nomenclatura, ahí va un ejemplo: CPYFRMSTMF FROMSTMF('/TMP/ARCHIVOS') TOMBR('/QSYS.LIB/BIBLIOTECA.LIB/FICHERO.FILE/MIEMBRO.MBR')

--
Saludos.

Fernando Pérez 

Cerámica Saloni. Dpto. Sistemas
 
begin:vcard
fn;quoted-printable:Fernando P=C3=A9rez
n;quoted-printable:P=C3=A9rez;Fernando
org:;Sistemas
email;internet:[EMAIL PROTECTED]
tel;work:Ext. 627
x-mozilla-html:TRUE
version:2.1
end:vcard

Responder a