I like using a system rexx exec for this, it can easily produce MLWTOs for 
testing automation:

/* REXX TEST - Rexx for issuing test messages for testing  */                   
       
                                                                                
                               
   ConnectId = 'firstline';                                                     
                               
   Rc=AXRMLWTO(strip('CSQX548E !Q4 CSQXRESP Messages sent to local dead-letter 
queue, 467'), 'Connectid','d'); 
   Rc=AXRMLWTO(strip('channel QQM_ACCESS.TO.CSQ4'), 'Connectid','d');           
                               
   Rc=AXRMLWTO(strip('reason=2053 (MQRC_Q_FULL)'), 'Connectid','de');           
                               
                                                                                
                               
   Return                                                                       
                               


On Mon, 21 Aug 2023 12:40:41 -0400, Mark Regan <marktre...@gmail.com> wrote:

>Is there a way to generate WTO messages via a batch job to check message
>suppression? At my last site, where we had NetView, we used a CLIST (or was
>it REXX), to do this.
>

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to