DCL &MYKEY *CHAR 4
DCL &SENDER *CHAR 80
SNDPGMMSG MSG('/* */') TOPGMQ(*PRV) KEYVAR(&MYKEY)
RCVMSG PGMQ(*PRV) MSGKEY(&MYKEY) SENDER(&SENDER)

Anstelle dder CL-Befehle, die ja nur im CLP funktionieren, können alternativ auch die MSGAPI's verwendet werden.