Muchisimas gracias, lo he probado y funciona, solo puntualizar que en
usuario he puesto *NONE y que hay que hacer tambien lo siguiente:
a) Inicio/panel de control/herramientas
administrativas/Servicios/Mandato remoto de iseries access para Windows
y en propiedades poner:
. En General:Tipo de inicio automatico
. En Iniciar Sesión: Permitir a los
servicios que interactúen con el escritorio
Aplicar y aceptar. También hay que iniciar el servicio.
b) Por otro lado para recuperar la ip desde IBM me mandan la siguiente api:
PGM PARM(&DEVD)
/* THIS PROGRAM IS FROM AN ARTICLE BY COLIN BATES ON WWW.SEARCH400.COM */
/* IT DEMONSTRATES THE USE OF A CL PROGRAM TO CALL THE QCRDEVD API TO */
/* RETRIEVE THE IP ADDRESS OF A USER DEVICE CONNECTED TO THE ISERIES. */
/* TO USE THE PROGRAM, YOU MUST SPECIFY THE DEVICE NAME WHEN YOU CALL
THE */
/* PROGRAM. I.E., "CALL PROGRAMNAME DEVICENAME". */
DCL VAR(&DEVINFO) TYPE(*CHAR) LEN(999)
DCL VAR(&LENVAR) TYPE(*DEC) LEN(3 0) VALUE(999)
DCL VAR(&LENVARBIN) TYPE(*CHAR) LEN(4) VALUE(X'00000000')
DCL VAR(&FRMT) TYPE(*CHAR) LEN(8) VALUE('DEVD0600')
DCL VAR(&DEVD) TYPE(*CHAR) LEN(10)
DCL VAR(&MSG) TYPE(*CHAR) LEN(50)
DCL VAR(&ERRORCODE) TYPE(*CHAR) LEN(32) +
VALUE(X'00000000000000000000000000000000000+
00000000000000000000000000000')
DCL VAR(&IPADDR) TYPE(*CHAR) LEN(15)
CHGVAR %BIN(&LENVARBIN) &LENVAR
CALL QDCRDEVD (&DEVINFO +
&LENVARBIN +
&FRMT +
&DEVD +
&ERRORCODE)
MONMSG MSGID(CPF2702) EXEC(GOTO CMDLBL(NODEV))
CHGVAR &IPADDR %SST(&DEVINFO 877 15)
CHGVAR VAR(&MSG) VALUE(&devd *BCAT 'is being used +
by' *BCAT &ipaddr)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&MSG) +
TOPGMQ(*PRV) MSGTYPE(*ESCAPE)
GOTO CMDLBL(END)
NODEV: SNDMSG MSG(&DEVD *BCAT 'is not a known device') +
TOUSR(*SYSOPR)
END:
ENDPGM
Saludos a todos,
Tecnico escribió:
Buenos días,
La ventaja del RUNRMTCMD es que puedes usarla contra cualquier PC que
tenga activado el servicio de ejecución de mandatos remotos, la
desventaja es que creo que tienes que conocer la dirección de red
donde envías la ejecución del mandato.
Desde un trabajo de iSeries funciona igual que el STRPCO con
STRPCCMD pero no necesitas que el trabajo se esté ejecutando en una
emulación de PC. Si lo quieres invocar desde una sesión en interactivo
en una emulación 5250 y la ejecución del mandato la deseas hacer en el
mismo PC, deberás conocer la dirección de red (yo siempre uso la IP
del PC) para poder ejecutar el mandato. Creo que hay maneras de
recuperar la IP del PC de la sesión actual.
Básicamente tendrás que seguir los siguientes pasos:
- Configurar los PC's en los que se pueda realizar la invocación para
poder ejecutar mandatos remotos. En Propiedades de iSeries Access para
Windows, en la pestaña Entrada de Mandatos Remotos.
- En la CL donde realizas el STRPCO y STRPCCMD, recuperar la IP de la
conexión actual y ejecutar el mandato remoto con:
RUNRMTCMD CMD(&LINKWEB)
RMTLOCNAME('xxx.xxx.xxx.xxx' *IP)
RMTUSER(USUARIO)
Espero haberte ayudado.
Saludos,
Jorge.
-----Mensaje original-----
*De:* [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] nombre de
*Pablo Sanchez Marquez
*Enviado el:* miércoles, 29 de noviembre de 2006 14:20
*Para:* FORUM HELP400
*Asunto:* Mandato RUNRMTCMD
Tengo una cl que ejecuta lo siguiente:
STRPCO PCTA(*NO)
MONMSG MSGID(IWS4010)
STRPCCMD PCCMD(&LINKWEB) PAUSE(*NO)
En &LINKWEB mando una sentencia de ms-dos que es "START
IEXPLORE.EXE -NEW HTTP://dirección:puerto/carpeta/archivo.pdf"
Este mandato no funciona con el "access for web", y me han
comentado desde IBM que sustituya los mandatos anteriores por
"RUNRMTCMD".
¿Alguien sabe como se utiliza y que hay que poner en los
parametros de este mandato para que me funcione igual que lo
anteriormente especificado?.
Saludos a todos,
--
Pablo Sánchez Márquez
(Dpto.Administración)
FABRICANTES LINEA BLANCA, S.A.
=========================================================================
- AVISO LEGAL -
La presente comunicación y sus anexos tiene como destinatario la persona a la que
le va dirigida, por lo que si usted lo recibe por error debe notificarlo al
remitente y
eliminarlo de su sistema, no pudiendo utilizarlo, total o parcialmente, para
ningún fin.
Su contenido puede tener información confidencial o protegida legalmente y
únicamente
expresa la opinión del remitente. El uso del correo electrónico vía Internet no permite
asegurar ni la confidencialidad de los mensajes ni su correcta recepción. En el caso de
que el destinatario no consintiera la utilización del correo electrónico, deberá ponerlo en
nuestro conocimiento inmediatamente.
=========================================================================
------------------------------------------------------------------------
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
--
Pablo Sánchez Márquez
(Dpto.Administración)
FABRICANTES LINEA BLANCA, S.A.
=========================================================================
- AVISO LEGAL -
La presente comunicación y sus anexos tiene como destinatario la persona a la que
le va dirigida, por lo que si usted lo recibe por error debe notificarlo al
remitente y
eliminarlo de su sistema, no pudiendo utilizarlo, total o parcialmente, para
ningún fin.
Su contenido puede tener información confidencial o protegida legalmente y
únicamente
expresa la opinión del remitente. El uso del correo electrónico vía Internet no permite
asegurar ni la confidencialidad de los mensajes ni su correcta recepción. En el caso de
que el destinatario no consintiera la utilización del correo electrónico, deberá ponerlo en
nuestro conocimiento inmediatamente.
=========================================================================
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
