sndpgmmsg

0001.00              PGM        PARM(&MSGID &MSGDT &MSGPF &MSGTP)             
0001.01                                                                       
0003.01              DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)                
0003.02              DCL        VAR(&MSGTP) TYPE(*CHAR) LEN(7)                
0003.03              DCL        VAR(&MSGPF) TYPE(*CHAR) LEN(10)               
0003.04              DCL        VAR(&MSGDT) TYPE(*CHAR) LEN(256)              
0003.05              DCL        VAR(&RLTSHP) TYPE(*CHAR) LEN(5) VALUE('*PRV ')
0003.06              MONMSG     MSGID(CPF0000)                                
0003.07                                                                       
0004.00              IF         COND(&MSGID *EQ '       ') THEN(DO)           
0004.01              RMVMSG     PGMQ(*PRV) CLEAR(*OLD)                        
0004.02              GOTO       CMDLBL(ENDPGM)                                
0004.03              ENDDO                                                    
0004.04                                                                       
0005.00              IF         COND(&MSGTP *EQ '*INFO') THEN(DO)             
0006.00              SNDPGMMSG  MSGID(&MSGID) MSGF(*LIBL/&MSGPF) +            
0006.01                           MSGDTA(&MSGDT) TOPGMQ(&RLTSHP) +  
0006.02                           MSGTYPE(&MSGTP)                   
0007.00              MONMSG     MSGID(CPF0000)                      
0008.00              ENDDO