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.

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(

Examples - retrieving responses to an MQ command

On this page