PGM PARM(&URL)
DCL VAR(&URL) TYPE(*CHAR) LEN(100)
DCL VAR(&PATH) TYPE(*CHAR) LEN(50) +
VALUE('"C:\PROGRAM FILES\INTERNET EXPLORER\IEXPLORE.EXE" ')
DCL VAR(&PCSTRING) TYPE(*CHAR) LEN(150)
CHGVAR VAR(&PCSTRING) VALUE(&PATH *CAT &URL)
STRPCO
MONMSG MSGID(CPF0000)
STRPCCMD PCCMD(&PCSTRING)
ENDPGM