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.
