Muchas gracias Pedro
Elvira -----Mensaje original----- De: pedro.pin...@gmail.com A: forum.help400 <forum.help400@listas.combios.es> Fecha: 13/04/2018 13:33 Asunto: RE: recuperacion datos desde nombre fichero Con este código, lees un directorio del ifs (&DIRg), lo metes en un documento (&TMBR) y luego lo copias a un fichero (audos2f). /* */ /* leer directorio */ /* */ CHGVAR VAR(&A) VALUE('ls /' *CAT &DIRg *TCAT ' > + /QDLS/CARPETA/' *CAT &TMBR) STRQSH CMD(&A) MONMSG MSGID(CPF0000) /* */ /* copiar a archivo */ /* */ CPYFRMPCD FROMFLR(CARPETA) TOFILE(Tulib/audos2f) + FROMDOC(&TMBR) TRNTBL(*NONE) TRNFMT(*NOTEXT) MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(FIN)) DLTDLO DLO(&TMBR) FLR(CARPETA) ****************************************************** * FICHERO DE DIRECTORIOS AUDOS2F * ****************************************************** A* A R RDOS2 A* A NOMDI1 150 A* Un saludo Pedro Pinedo Hernandez. pedro.pin...@hotmail.com De: forum.help400-boun...@listas.combios.es [mailto:forum.help400-boun...@listas.combios.es] En nombre de Elvira_vazquez Enviado el: viernes, 13 de abril de 2018 10:09 Para: forum.help400@listas.combios.es Asunto: recuperacion datos desde nombre fichero Hola a todos Tengo un fichero que traigo desde un FTP y lo dejo en un Directorio con el nombre por ejemplo: 2018_13_04_9_12_31_72_68505K.400 Necesito guardar de alguna forma parte del nombre con el que lo tengo en el DIR, sería 9_12_31_72, y no se como hacerlo Agradezco cualquier ayuda Gracias Elvira ____________________________________________________ Ú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.