No pero puedes usar una variable para pasar el nombre del archvio, intenta con
esto en tu CL
CPY OBJ(&LISTF) TOOBJ('/qdls/FTP/NUEVO.txt') REPLACE(*YES)
From: elvira_vazq...@edasnet.com
To: forum.help400@listas.combios.es
Subject: RE: AYUDA
Date: Fri, 8 Oct 2010 16:20:34 +0200
Siguiendo tus pasos (gracias por la ayuda)
El problema es que tengo mas de un archivo en el origen y al hace el CPY me
obliga a elegir solo uno
Hay forma de hacer que pase todos sin tener que elegir nada??
Elvira
De: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Gerardo Santillana
Enviado el: viernes, 08 de octubre de 2010 15:35
Para: forum.help400@listas.combios.es
Asunto: RE: AYUDA
Puedes hacer esto tambien, a mi me funciona y me evita ese CPF2817
usa este comando para ver que folders tienes o crear uno nuevo, suponiendo
que creaste uno que se llame FTP
WRKFLR
despues ejectua este comando para copiar de tu directorio al nuevo folder
CPY OBJ('/ftp/NOMBREARCHIVO.TXT') TOOBJ('/qdls/FTP/NUEVO.txt')
REPLACE(*YES)
despues usa este comando
CPYFRMPCD FROMFLR(FTP) TOFILE(WDBBASE/CESARV) FROMDOC(NUEVO.TXT)
TRNFMT(*NOTEXT)
Espero te sirva
From: elvira_vazq...@edasnet.com
To: forum.help400@listas.combios.es
Subject: AYUDA
Date: Fri, 8 Oct 2010 13:52:16 +0200
Hola foreros
Alguien me puede decir porque al ejecutar este CPYFRMIMPF me da como error
CPF2817 con codigo de razon 11
Todo lo anterior hasta aquí lo hace bien pero no ejecuta la copia y no se porque
Si en lugar de CPYFRMIMPF ejecuto CPYF el problema es que los nombre originales
son muy largos pero iguales en las primeras 10 posiciones con lo que me machaca
los ficheros que trae
Columns . . . : 1 71 Edit WFUENTE/WFUETRAN
SEU==> CLFTPCRT2
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0001.16 /QSYS.LIB/WDBBASE.LIB/LISTF.FILE/LISTF.MBR')
0001.17 MONMSG MSGID(QSH0005)
0001.18 /*LEE EL ARCHIVO QUE CONTIEN LOS NOMBRES DESCONOCIDOS*/
0001.19 START:
0001.20 RCVF RCDFMT(LISTF)
0001.21 MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))
0001.22 /*EJECUTA QCLSCAN PARA ENCONTRAR SOLO LO NECESARIO*/
0001.23 CALL PGM(QCLSCAN) PARM(&LISTF &STRLEN &STRPOS +
0001.24 &PATTERN &PATLEN &TRANSLATE &TRIM &WILD +
0001.25 &RESULT)
0001.26 CHGVAR VAR(&RSLT) VALUE(&RESULT)
0001.27 CHGVAR VAR(&LSTPOS) VALUE(&RSLT-1)
0001.28 CHGVAR VAR(&LISTF2) VALUE(%SST(&LISTF 1 &LSTPOS))
0001.29 CPYFRMIMPF FROMSTMF(&LISTF) TOFILE(WDBBASE/CESARV) +
0001.30 MBROPT(*ADD)
0001.32 GOTO CMDLBL(START)
0004.00 END: ENDPGM
F3=Exit F4=Prompt F5=Refresh F9=Retrieve F10=Cursor F11=Toggle
F16=Repeat find F17=Repeat change F24=More keys
Elvira Vázquez González
______________________________________________________________________________________________
Noticia legal:
Este mensaje electrónico contiene información de EdasNet,s.l. que es privada y
confidencial,
siendo para el uso exclusivo de la persona(s) o entidades arriba mencionadas.
Si usted no es
el destinatario señalado, le informamos que cualquier divulgación, copia,
distribución o uso
de los contenidos está prohibida. Si usted ha recibido este mensaje por error,
por favor borre
su contenido lo antes posible. Muchas Gracias.
______________________________________________________________________________________________
P Antes de imprimir este e-mail piense bien si es necesario hacerlo: El
medioambiente es cosa de todos
____________________________________________________ �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.
