Hola Elvira..
Te envío el fuente que tengo para determinar los nombres variables de los
archivos que hay en una carpeta del Ifs..es importante que tengas en cuenta que
el archivo a donde se envía la salida (SFTF003) debe ser creado directamente
con CRTPF y no con una dds (porqué? no sé..pero con lo que leí para realizar la
aplicación debía ser así)..al programa le llega como parámetros la ruta del Ifs
donde se debe buscar, la extensión de los archivos que se deben buscar..esta
puede ser en blanco, el miembro a donde se dejara la salida, porque este
programa se ejecuta en paralelo al mismo tiempo, entonces le envío como miembro
el número de trabajo que se está procesando y un indicador de retorno para
saber si encontré o no archivos
Ojala te sirva :)
PGM PARM(&IFSORIG &EXTENSION &MIEMBRO &RETORNO)
DCL VAR(&IFSORIG) TYPE(*CHAR) LEN(80)
DCL VAR(&EXTENSION) TYPE(*CHAR) LEN(4)
DCL VAR(&NOMBRE) TYPE(*CHAR) LEN(40)
DCL VAR(&MIEMBRO) TYPE(*CHAR) LEN(10)
DCL VAR(&RUTADES) TYPE(*CHAR) LEN(60)
DCL VAR(&PARTE1) TYPE(*CHAR) LEN(3) VALUE('ls ')
DCL VAR(&PARTE2) TYPE(*CHAR) LEN(1) VALUE('>')
DCL VAR(&COMANDO) TYPE(*CHAR) LEN(100)
DCL VAR(&EOF) TYPE(*LGL) LEN(1) VALUE('0')
DCL VAR(&RETORNO) TYPE(*CHAR) LEN(1) VALUE('1')
DCLF FILE(SFTF003)
CLRPFM FILE(SFTF003) MBR(&MIEMBRO)
OVRDBF FILE(SFTF003) TOFILE(SFTF003) MBR(&MIEMBRO) +
OVRSCOPE(*JOB)
CHGVAR VAR(&RUTADES) +
VALUE('QSYS.LIB/BCPSGCD01.LIB/SFTF003.FIL+
E/' *TCAT &MIEMBRO *TCAT '.MBR')
CHGVAR VAR(&COMANDO) VALUE(&PARTE1 *CAT +
&IFSORIG *TCAT &PARTE2 *TCAT &RUTADES)
QSH CMD(&COMANDO)
DOWHILE COND(*NOT &EOF)
RCVF
MONMSG MSGID(CPF0864) EXEC(CHGVAR VAR(&EOF) +
VALUE('1'))
IF COND(*NOT &EOF) THEN(DO)
CHGVAR VAR(&NOMBRE) VALUE(%SST(&SFTF003 1 40))
CHGVAR VAR(&RETORNO) VALUE('0')
ENDDO
ENDDO
DLTOVR FILE(SFTF003) LVL(*JOB)
ENDPGM
-----Mensaje original-----
De: Elvira Vázquez [mailto:[email protected]]
Enviado el: miércoles, 27 de noviembre de 2013 06:44 a.m.
Para: Luz Nelly Zapata; 'forum.help400'
Asunto: RE: Re[2]:
Hola Luz
Increible que me contestes a estas horas de la mañana en Bogota. Muchas gracias
Si me puedes mandar el ejemplo te lo agradezco Gracias desde Madrid
-----Mensaje original-----
De: [email protected]
[mailto:[email protected]] En nombre de Luz Nelly Zapata
Enviado el: miércoles, 27 de noviembre de 2013 12:14
Para: forum help400
Asunto: Re: Re[2]:
Hola Elvira..buenos días (en Bogotá son las 6:10 am)..lo que debes hacer es en
el CL ejecutar el comando QSH y luego construir y ejecutar el comando -ls
..esto se manda a un archivo fÍsico que crees con un campo de 50 posiciones por
ejemplo..dejame llego a mi oficina y te envío el fuente de como se construye el
comando Enviado desde mi BlackBerry de Movistar
-----Original Message-----
From: Elvira Vázquez <[email protected]>
Sender: <[email protected]>
Date: Wed, 27 Nov 2013 09:43:40
To: 'forum help400'<[email protected]>
Reply-To: forum.help400 <[email protected]>
Subject: RE: Re[2]:
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
