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
fperez.vcf
Description: Binary data
