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.
<mailto:pedro.pin...@hotmail.com> 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.
