Examples - retrieving responses to an MQ command

/* REXX */
/* Example to retrieve all responses to a MQ command*/
PARSE ARG EXNAME.
'IMFEXEC MSG '.'EXNAME 'EID='IMFEID 'STARTED''
'IMFEXEC CMD 'DISPLAY QUEUE(SYSTEM.CHANNEL.*)' TYPE(MQS)'
'IMFEXEC MSG '.IMFNOL='IMFNOL 'CC='IMFCC 'IMFEXEC CMD MQ''
DO i=1 TO IMFNOL
bad_chars = xrange('00'x, '41'x);
bad_chars = bad_chars''''';
v1 = value('MQLN'i);
clean_data = translate(v1,' ',bad_chars)'
  'IMFEXEC MSG '.MQLN'i 'LENGTH='length(v1)'''
  'IMFEXEC MSG '.MQLN'i'='clean_data'''
END
'IMFEXEC MSG '.'EXNAME 'EID='IMFEID 'CC='IMFCC 'RC='IMFRC 'ENDED''

/* REXX */
/* Example to retrieve selected responses to a MQ command.*/
PARSE ARG EXNAME.
'IMFEXEC MSG '.'EXNAME 'EID='IMFEID 'STARTED''
/* example of an IMFEXEC command that continues on the next line */
'IMFEXEC CMD 'DISPLAY QUEUE(SYSTEM.CHANNEL.*)' TYPE(MQS) ,
LM(MQS1) RESP(CSQN205I,CSQ9022I)'
'IMFEXEC MSG '.IMFNOL='IMFNOL 'CC='IMFCC 'IMFEXEC CMD MQ''
DO i=1 TO IMFNOL
bad_chars = xrange('00'x, '41'x);
bad_chars = bad_chars''''';
v1 = value('MQLN'i);
clean_data = translate(v1,' ',bad_chars)'
  'IMFEXEC MSG '.MQLN'i 'LENGTH='length(v1)'''
  'IMFEXEC MSG '.MQLN'i'='clean_data'''
END
'IMFEXEC MSG '.'EXNAME 'EID='IMFEID 'CC='IMFCC 'RC='IMFRC 'ENDED''

/* REXX */
/* Example to retrieve all responses to a MQ command*/
PARSE ARG EXNAME.
'IMFEXEC MSG '.'EXNAME 'EID='IMFEID 'STARTED''
'IMFEXEC CMD 'DISPLAY QUEUE(SYSTEM.CHANNEL.*)' TYPE(MQS) STEM(WORK)'
'IMFEXEC MSG '.WORK.0='WORK.0 'CC='IMFCC 'IMFEXEC CMD MQ''
DO i=1 TO WORK.0
   bad_chars = xrange('00'x, '41'x);
   bad_chars = bad_chars''''';
   v1 = value('WORK.i');
   clean_data = translate(v1,' ',bad_chars)'
   'IMFEXEC MSG '.WORK.'i 'LENGTH='length(v1)'''
   'IMFEXEC MSG '.WORK.'i'='clean_data'''
END
'IMFEXEC MSG '.'EXNAME 'EID='IMFEID 'CC='IMFCC 'RC='IMFRC 'ENDED''

EM9201I  MQCONN QM=JBQ            CC=X'0000' RC=X'00000000'         
EM9201I  MQOPEN FOR INQ           CC=X'0000' RC=X'00000000'         
EM9201I  MQINQ                    CC=X'0000' RC=X'00000000'         
EM9201I  MQCLOSE MQINQ QUEUE      CC=X'0000' RC=X'00000000'         
EM9201I  MQOPEN OPEN DYN OUTPUT Q CC=X'0000' RC=X'00000000'         
EM9202I  QUEUE=BBOMVAO.EXEC.REPLY.JB72.JBQ                          
EM9201I  MQPUT1 CMD LEN=X'0016'   CC=X'0000' RC=X'00000000'         
EM9202I  CMD=DIS QMGR DEFXMITQ                                      
EM9206I  CMDQUEUE=SYSTEM.COMMAND.INPUT                              
EM9209I  USERIDENTIFIER=BAOJDB4                                     
EM9210I  ALTERNATEUSERID=BAOJDB3                                    
EM9201I  MQGET 0001 LEN=X'003B'   CC=X'0000' RC=X'00000000'         
EM9202I  CSQN205I   COUNT=       3, RETURN=00000000, REASON=00000000
EM9204D  CREATED VARIABLE MQLN1                                     
EM9201I  MQGET 0002 LEN=X'0081'   CC=X'0000' RC=X'00000000'         
EM9202I  CSQM409I @JBQ QMNAME(JBQ                                   
EM9204D  CREATED VARIABLE MQLN2                                     
EM9201I  MQGET 0003 LEN=X'0035'   CC=X'0000' RC=X'00000000'         
EM9202I  CSQ9022I @JBQ CSQMDRTS ' DIS QMGR' NORMAL COMPLETION       
EM9204D  CREATED VARIABLE MQLN3                                  
EM9201I  MQCLOSE REPLYTO QUEUE    CC=X'0000' RC=X'00000000'      
EM9201I  MQDISC FROM QMGR         CC=X'0000' RC=X'00000000'      
MQC: Number of lines of output = 0003                            
MQC:  CSQN205I   COUNT=       3, RETURN=00000000, REASON=00000000
MQC:  CSQM409I @JBQ QMNAME(JBQ                                   
MQC:           ) DEFXMITQ(