Examples - retrieving responses to an MQ command

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