Ayyy las prisas!!
No sé si has trabajado con lecturas de ficheros en Cl's, pero me he dejado
que tienes que declararlo previamente :
DCLF FILE(LISTAFI)
y luego, si quieres eliminarlo,
CHGVAR VAR(&FENTRADA) +
VALUE('ruta/' *CAT &NOMFIC)
DEL OBJLNK(&FENTRADA)
Salu2
De: alberto/arcadie
Para: "forum.help400" <[email protected]>
Fecha: 22/08/2013 17:54
Asunto: Re: Ayuda nombre archivo IFS
Enviado por: Alberto Martinez
Hola
Te refieres a que quieres acceder a ver los archivos que tienes en una
carpeta, y hacer algo con ellos?
A ver si te sirve este trozo de código. como verás, tengo creado un
fichero(listafi) en el cual voy guardando todos los nombres que se generan
al hacer el Ls de la carpeta.
QSH CMD('ls /carpeta/ > +
qsys.lib/milib.lib/listafi.file/listafi.mbr')
Dowhile COND(*Not &Eof)
RCVF
MONMSG MSGID(CPF0864) EXEC(CHGVAR VAR(&EOF) +
VALUE('1'))
If (*Not &Eof) Do
CHGVAR VAR(&NOMFIC) VALUE(%SST(&LISTAFI 1 25))
CALL PGM(Programa que hace cosas) parm(&nomfic
&existeix)
IF COND(&EXISTEIX) THEN(DO)
CHGVAR VAR(&MSG) VALUE('El fichero ' *cat &Nomfic *cat 'no +
se procesará porque ya existe en el +
sistema. Si quiere procesarlo, debe +
cambiarle el nombre')
SNDBRKMSG MSG(&MSG) TOMSGQ(&WS)
Enddo
De: Luz Nelly Zapata <[email protected]>
Para: forum.help400 [[email protected]]
<[email protected]>
Fecha: 22/08/2013 17:38
Asunto: Ayuda nombre archivo IFS
Buenos días..
Agradecería mucho si alguien sabe cuál es el comando para saber cuál es el
nombre del archivo que se encuentra en una carpeta del IFS 400
Me explico.. con DSPLNK si me se el nombre, con el MONMSG MSGID(CPFA0A9)
se si el archivo existe o no existe, pero como no me se el nombre porque
puede ser variable, necesito saber como se lee una carpeta de Ifs y
colocar en una variable del programa el nombre del archivo que allí
encuentre
Muchas gracias____________________________________________________
Ú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.
