Examples - retrieving responses to an MQ command

The following examples show how to retrieve all responses to an MQ command, how to retrieve selected responses, and sample BBI journal output.

Related topic

CMD-Issue-a-command-to-IBM-MQ-with-response

Example

Retrieving all 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''
Example

Retrieving selected responses to an MQ command:

/* 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''
Example

Retrieving all responses to an MQ command with the STEM parameter specified:

/* 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''
Example

Sample output in the BBI Journal from the command DIS QMGR DEFXMITQ with DEBUG specified:

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(


 

Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*