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.
