Hola Javier:
Espero que te sirva. Como todo, es mejorable ;-), pero nosotros lo hacemos
con la siguiente CL:
/*Borra fichero Qtemp */
P1: DLTF FILE(QTEMP/DIR)
MONMSG MSGID(CPF0000)
/*Crea archivo en spool */
DSPLNK OBJ('/home/CARPETA/*') OUTPUT(*PRINT) +
OBJTYPE(*STMF) DETAIL(*BASIC) /* Crea +
archivo en spool */
/*Crea fichero Qtemp */
CRTPF FILE(QTEMP/DIR) RCDLEN(80)
/*Copia el contenido de la carpeta CARPETA para saber el nombre de los */
/*archivos contenidos en el directorio. */
CPYSPLF FILE(QSYSPRT) TOFILE(QTEMP/DIR) SPLNBR(*LAST)
/*Obtiene el nombre del fichero */
CALL PGM(NOMBRERP) PARM(&NOM &CONT)
/*Traspasa los datos del archivo TRT de NISSAN al archivo plano */
CPYFRMIMPF FROMSTMF('/home/CARPETA/' *cat &NOM) +
TOFILE(BIBLIOTECA/FICHERO) MBROPT(*REPLACE) +
RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM(*NONE) +
FLDDLM(*TAB)
/*Traspasa datos del archivo obtenido de la transferencia de datos */
/*al archivo de trabajo */
CALL PGM(PROCESORP)
CHGVAR VAR(&PATRON) VALUE('/home/CARPETA/' *cat &nom)
/*Borra el fichero procesado */
DEL OBJLNK(&patron)
MONMSG MSGID(CPF0000)
/*Borramos el spool */
DLTSPLF FILE(QSYSPRT) SPLNBR(*LAST)
MONMSG MSGID(CPF0000)
/*Si el contador detecta m�s de un archivo, repetir� el proceso */
IF COND(&CONT *GT 1) THEN(GOTO CMDLBL(P1))
El programa RPG para obtener el nombre y el n�mero de ficheros ser�a as�:
FDIR IF E DISK
F DIR KRENAMEDIRX
*
*Renombra campos de DIR
IDIRX
I DIR DIR1
IDIR1 DS
I 2 51 NOMCOM
I 2 4 FI
I 26 29 STMF
*
C *ENTRY PLIST
C PARM @NOM 50
C PARM @CONT 40
*
C [EMAIL PROTECTED]
C [EMAIL PROTECTED]
*
C 1 SETLLDIR 30
C READ DIR 30
C *IN30 DOWEQ*OFF
*
* El siguiente prefijo nos conviene a nosotros
C FI IFEQ 'FI_'
C STMF ANDNE'STMF'
*
C @NOM IFEQ *BLANKS
C MOVELNOMCOM @NOM 50
C ENDIF @NOM
*
C ADD 1 @CONT
C ENDIF NOMPAR
*
C READ DIR 30
*
C ENDDO *IN30
*
C SETON LR
A reveure.
Francesc Gibert i Bertran
GRUPO ESTAMPACIONES SABADELL
Javier Mora
<[EMAIL PROTECTED]> Para: Forum AS/400 en castellano
<[EMAIL PROTECTED]>
Enviado por: cc:
forum.help400-request Asunto: [IFS] Obtener la lista de
ficheros de un directorio del IFS
@combios.es
26/02/2003 17:30
Por favor, responda a
forum.help400
Hola a todos:
�C�mo podr�a obtener la lista de ficheros de un directorio del
IFS?
La idea es procesar el contenido fichero a fichero. Lo que quiero es algo
similar al DSPOBJD *OUTFILE de una biblioteca.
�Alguna idea?
Un saludo y gracias por vuestros comentarios,
Javier Mora Garc�a mailto:[EMAIL PROTECTED]
Dialsur S.A. http://www.dialsur.es
Departamento de Inform�tica
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
