Nosotros dejamos los pdf, txt y xls... en un directorio para cada usuario en el IFS que se mapea (se le asigna una letra de unidad) automaticamente en las pcs cuando se loguea..
Luego hay pgms para depurar dichos archivos dejando los ultimos XX dias. Marcelo El 7 de octubre de 2014, 8:45, Jose Luis Da Silva Jara < [email protected]> escribió: > En nuestra empresa funciona correctamente el /QNTC en un servidor 08 de > la red de windows. > > > Todos los dias se transfieren los listados a PDF y XLS a carpetas en ese > servidor para los distintos usuarios del AS400. > > > Con esto hemos reducido drasticamente la impresion en papel. > > > Vease un ejemplo de CLP que genera un PDF desde un listado en spool: > > > > RDMCOPDCL: PGM PARM(&LISTADO &FILE) > > /* Declaracion de Variables */ > > DCL VAR(&LISTADO) TYPE(*CHAR) LEN(20) > DCL VAR(&FILE) TYPE(*CHAR) LEN(30) > DCL VAR(&DOCU) TYPE(*CHAR) LEN(35) > DCL VAR(&PTH_FILE) TYPE(*CHAR) LEN(255) > DCL VAR(&PTH_ROOT) TYPE(*CHAR) LEN(255) + > VALUE('/qntc/lbwsrv08/cboanlis') > DCL VAR(&EXT) TYPE(*CHAR) LEN(4) + > VALUE('.PDF') > DCL VAR(&JOBNAME) TYPE(*CHAR) LEN(10) > DCL VAR(&JOBUSER) TYPE(*CHAR) LEN(10) > DCL VAR(&JOBNRO) TYPE(*CHAR) LEN(6) > > RTVJOBA JOB(&JOBNAME) USER(&JOBUSER) NBR(&JOBNRO) > > /*-------------------------------------------------------------*/ > /* Copia el Listado en /qntc/lbwsrv08/cboanlis */ > /*------------------------------------------------------------*/ > > CHGVAR VAR(&PTH_FILE) VALUE(&PTH_ROOT *TCAT '/' + > *TCAT &FILE *TCAT &EXT) > > ADDENVVAR ENVVAR(AR_DISPLAY_USAGE_TIPS) VALUE('*NO') > MONMSG MSGID(CPF0000) > > CVTSPLPDF FROMFILE(&LISTADO) TOSTMF(&PTH_FILE) + > JOB(&JOBNRO/&JOBUSER/&JOBNAME) + > SPLNBR(*LAST) STMFOPT(*REPLACE) > MONMSG MSGID(CPF0000) > > FIN: ENDPGM > > > > *JOSE LUIS DA SILVA JARA* > > > Dep. Tecnologia Informatica > > Laboratorios Bernabo S.A. > > Republica Argentina > > > > ------------------------------ > *De:* [email protected] < > [email protected]> en nombre de Javier Mora < > [email protected]> > *Enviado:* martes, 07 de octubre de 2014 04:50 a.m. > *Para:* forum.help400 > *Asunto:* RE: Copiar archivos del IFS a la PC > > Podrías intentarlo a través de /QNTC. Necesitarás tener una carpeta > compartida en el PC para que sea visible en /QNTC y el usuario y contraseña > del Windows debe de coincidir con la del usuario de 400. Debes utilizar el > mandato CPY (si no me equivoco). > > He de decir que siempre que he intentado utilizar este mecanismo nunca he > conseguido que funcione bien en todas las versiones de Windows que pudira > tener en mi red. Esto es un problema porque no puedes estandarizar > (generalizar) determinados procesos. Para casos concretos es bastante útil. > > Otra opción es utilizar el "Orgarnizador" de Client Access, es decir, los > mandatos STRPCO y STRPCCMD. Nosotros utilizamos mucho este sistema. > Necesitas tener una carpeta del IFS compartida para que sea visible desde > Windows. El usuario y contraseña de Windows debe coincidir con el del > AS400. La operación de copia se hará en la máquina local que esté > ejecutando la sesión 5250 (siempre es necesario la sesión de Client > Access). Crear un .BAT o un CL con STRPCCMD con la secuencia de comandos > MS-DOS para realizar la copia en el PC. > > El gran inconveniente de este sistema es un control pobre de los errores > producidos en Windows y la dificultad de supervisarlos en el CL. > > Un saludo, > > Javier Mora > > ------------------------------ > *De:* [email protected] [mailto: > [email protected]] *En nombre de *Pedro Molina > *Enviado el:* martes, 07 de octubre de 2014 0:54 > *Para:* [email protected] > *Asunto:* Copiar archivos del IFS a la PC > > Hola Foreros. > > Tengo una consulta, se puede o existe algún comando para copiar un > archivo de texto alojado en el IFS y se pueda bajar en la PC local? sin FTP > o TRANSFER, algo así como un Copy o la utilidad de Netserver. > > Saludos!! > > > ____________________________________________________ > Ú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.
