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'))