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