Existe
un comando FTP
ls
(disk
Que te
deja en tu *CURLIB un archivo llamado LSOUTPUT que contiene una lista de los
archivos que tengas en el directorio.
Luego
solo es cuesti�n de tratarlos.
Saludos
Lo
que pasa es que me lo copia en venusiano
[EMAIL PROTECTED]
Enviado por: [EMAIL PROTECTED]
10/03/05 18:50
|
|
Gracias. En este caso prefiero lo efectivo a lo
elegante, porque lo unico que he visto elegante es hacer un programa desde el
Pc y esto siempre intento evitarlo.
Fernando P�rez
<[EMAIL PROTECTED]>
Enviado por:
[EMAIL PROTECTED] 10/03/05 18:31
|
|
[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
