Buenos días.
No sé si te he entendido bien. Supongo que SOLO HAY UN ARCHIVO en esa
carpeta.
Yo necesito hacer indices de carpetas del IFS continuamente para enlazar
datos con programas de consultas del ISeries. No sé si tiene que ver con lo
que solicitas. Te 'pego' un ejemplo:
PGM
CLRPFM FILE(DIRLIQU2)
QSH CMD('LS ARSYS/BKLIQUIDACIONES >QSYS.LIB/EURLIB.LIB/DIRLIQU2.-
FILE/DIRLIQU2.MBR')
CLRPFM FILE(LIQUIPDF)
CALL PGM(EGSLIB/LIQU03)
ENDPGM
Supogo que se entiende la idea. Vuelco el 'dir' (en güindos, en SQH 'Ls')
sobre un fichero del 400 y luego creo el indice leyedo el contenido.
Claro que si tienes un gran número de ficheros en la carpeta deberías
crearlos con algún tipo de codificación en el nombre para poder
localizarlos luego (así lo hago yo). Ejemplo:
L_11427_310513_PRESUPUESTO.PDF
L_11427_310513_RESUMEN_GASTOS.PDF
L_11430_311012_COEFICIENTES.PDF
L_11430_311012_DET_INGRESOS.PDF
Espero que te valga.
Saludos a todos.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
