Chamar um programa windows do iSeries AS/400 passando-lhe parâmetros

Este simples código nos permitirá executar aplicações windows do AS/400 iSeries.

/* Recolhe parâmetro &PARM1 */

PGM &PARM1 DCL VAR(&PARM1) TYPE(*CHAR) LEN(9)

/* Startamos o organizador PC*/

STRPCO

/* Monitorizamos as mensagens do organizador PC*/

MONMSG MSGID(CPF0000 CPC0000 CPD0000)

/* Chama o programa PC */

STRPCCMD PCCMD('C:\chamar.bat' |> &PARM1) + PAUSE(*NO) MONMSG MSGID(CPF0000 CPC0000 CPD0000) ENDPGM 18-07-2002

Fonte: www.recursos400.com