CMD PROMPT('Message to distrib. list') PARM KWD(SENDERID) TYPE(*CHAR) LEN(20) MIN(1) + PROMPT('Sender''s ID') PARM KWD(SUBJECT) TYPE(*CHAR) LEN(70) MIN(1) + PROMPT('Subject') PARM KWD(TEXT) TYPE(*PNAME) LEN(256) MIN(1) + PROMPT('Stmf containing message text') PARM KWD(DATALIB) TYPE(*NAME) LEN(10) + DFT(MMAILDATA) PROMPT('Control files + library') PARM KWD(DSTL) TYPE(*CHAR) LEN(4) DFT(*ALL) + MIN(0) PROMPT('To distribution list') PARM KWD(DSTTYPE) TYPE(*CHAR) LEN(1) RSTD(*YES) + DFT(A) VALUES(A B) MIN(0) + PROMPT('Distribution type') PARM KWD(ATTACHMENT) TYPE(*PNAME) LEN(256) + DFT(*NONE) SPCVAL((*NONE '/NIL')) MIN(0) + PROMPT('Stmf containing an attachment') PARM KWD(ATTACHTYPE) TYPE(*CHAR) LEN(10) + RSTD(*YES) DFT(*TEXT) VALUES(*TEXT *HTML + *PDF *JPG *OTHER) PMTCTL(P1) PROMPT('Type + of attachment') PARM KWD(BMODE) TYPE(*CHAR) LEN(4) RSTD(*YES) + DFT(*NO) VALUES(*YES *NO) + PMTCTL(*PMTRQS) PROMPT('Execute in batch + mode') P1: PMTCTL CTL(ATTACHMENT) COND((*NE '/NIL'))