| Categoría : Programación
Autor : Vladimir Rojas
Título : Ejecutar Programa de PC en Batch en
el AS400 Descripción del truco:
Permite la ejecución en Batch de comandos de
PC en el AS400.
Debe estar instalado el Client Access en un Servidor.
Debe arrancarse el Servicio Mandato Remoto de Client
Access Express con los parametros /nosecok /usewinlogon.
Esto permite que no se chequee el usuario del PC.
Se pueden ejecutar funciones de transferencia de Client
Access automáticas utilizando el RTOPCB del PC
y dejar el archivo en una carpeta. El siguiente código
permite ejecutar un programa de Visual Basic en un servidor
en Batch.
Fecha 21-04-2004
Código:
PGM
DCL VAR(&CMD) TYPE(*CHAR) LEN(256)
DCL VAR(&IP1) TYPE(*CHAR) LEN(15) /**/
CHGVAR VAR(&IP1) VALUE('XX.XXX.XX.XX') /* IP DEL
SERVIDOR */
/* EJECUTA PROGRAMA EN VISUAL BASIC */
CHGVAR VAR(&CMD) +
VALUE('C:\\ARCHIV~1\\PROYEC~1\\PASAAUTEX.EXE')
RUNRMTCMD CMD(&CMD) RMTLOCNAME(&IP1 *IP) RMTUSER(*NONE)
ENDPGM
Tienes algún truco que quieras compartir con todos
los profesionales de Recursos iSeries AS400?.Envianoslo
y si resulta seleccionado te enviaremos un vale de Amazon
por valor de 50$
|
