PGM PARM(&TO &SUBJECT &MSG) DCL VAR(&TO) TYPE(*CHAR) LEN(128) DCL VAR(&SUBJECT) TYPE(*CHAR) LEN(256) DCL VAR(&MSG) TYPE(*CHAR) LEN(512) MONMSG CPF0000 SNDDST TYPE(*LMSG) TOINTNET((&TO)) DSTD(&SUBJECT) + LONGMSG(&MSG) ENDPGM