PGM
DCL VAR(&CALL) TYPE(*CHAR) LEN(123) VALUE(' ')
DCL VAR(&WEBSITE) TYPE(*CHAR) LEN(89) +
VALUE('C:\Documents and +
Settings\flapeyre\My Documents\whatever.pdf')
STRPCO
MONMSG MSGID(CPF0000 IWS0000)
CHGVAR VAR(&CALL) VALUE('rundll32 +
url.dll,FileProtocolHandler' *BCAT &WEBSITE)
STRPCCMD PCCMD(&CALL) PAUSE(*NO)
MONMSG MSGID(CPF0000)
ENDPGM