Hola varias preguntas sobre el formato de los datos:
¿los archivo de IFS qué formato tiene? ¿utilizan delimitador para los datos, coma o punto decimal? Lo pregunto porque en el CPYFRMIMPF del CL no indicas los parámetros RCDDLM ó FLDDLM para indicar éstos atributos de los ficheros de IFS y pueden ser necesarios. ¿ y lo mismo sobre la tabla WDBBASE/CESARV ¿es un archivo plano o tiene DDS ? Salu2 El 8 de octubre de 2010 13:52, Elvira Vázquez <[email protected]>escribió: > 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.
