Buenas tardes.
Quiero salvar a cinta los documentos y que el contenido de lo salvado me quede
en un fichero fisico para luego tratarlo.
Para ello, ejecuto
SAV DEV('/QSYS.LIB/TAP01.DEVD') OBJ(('/*') +
('/QSYS.LIB' *OMIT) ('/QDLS' *OMIT) +
('/QIBM' *OMIT) ('/QOPENSYS' *OMIT)) +
OUTPUT('/COPIADOCS/FCOPSAV.txt') +
ENDOPT(*LEAVE) UPDHST(*YES)
Previamente he creado en la carpeta COPIADOCS, el FCOPSAV.txt
Luego para tratar la informacion del fichero FCOPSAV.txt hago lo siguiente:
Copiar desde archivo continuo (CPYFRMSTMF)
Teclee elecciones, pulse Intro.
Archivo continuo origen . . . . > '/COPIADOCS/FCOPSAV.TXT'
Arch salv o miemb arch destino > '/QSYS.LIB/BIBGES.LIB/COPSAV.FILE/COPSAV.
MBR'
Opción miembro . . . . . . . . . > *ADD *NONE, *ADD, *REPLACE
Opciones conversión de datos . . *AUTO *AUTO, *TBL, *NONE
Pág códigos archivo continuo . . > *STMF 1-32767, *STMF, *PCASCII
CCSID de arch de base de datos *FILE 1-65533, *FILE
He creado el fichero COPSAV en la biblioteca BIBGES con una longitud de 500.
Al ejecutarlo, el resultado en el fichero copsav no se puede leer.
Alguien me puede ayudar e indicarme como hacerlo.
Gracias anticipadas
Carlos____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
