lunes, 26 de enero de 2009

Ejecutar comandos DOS desde AS400

Para poder ejecutar un programa de pc desde un programa CL del AS400, hemos de ejecutar los mandatos STRPCO y STRPCCMD.

Podemos por ejemplo ejecutar un .BAT o un .CMD pasándole parámetros (solo de ida)

Un ejemplo para abrir la web de Google con el navegador Interner Explorer:
STRPCO
MONMSG MSGID(IWS4010)
STRPCCMD PCCMD('"C:\Archivos de programa\Internet Explorer\IEXPLORE.EXE" www.google.com')

Otro ejemplo para ejecutar el programa c:\Myscripts\program1.BAT pasándole un parámetro:
DCL VAR(&PCCMD) TYPE(*CHAR) LEN(512)
DCL VAR(&VAR1) TYPE(*CHAR) LEN(256)
CHGVAR VAR(&VAR1) VALUE('VALOR1')
CHGVAR VAR(&PCCMD) VALUE('C:\Myscripts\program1.BAT' *BCAT &VAR1)

STRPCO
MONMSG MSGID(IWS4010)

STRPCCMD PCCMD(&PCCMD)

Despues deberiamos controlar la ejecucion del programa

No hay comentarios: