| |
|
RSS Feed - WebSphere MQ Support
|
RSS Feed - Message Broker Support
|
  |
|
| MQ IMS OTMA exit |
« View previous topic :: View next topic » |
| Author |
Message
|
| jaggz |
 Posted: Tue Jan 10, 2012 11:11 pm Post subject: MQ IMS OTMA exit |
 |
|
Newbie
Joined: 10 Dec 2010
Posts: 6
|
Hi,
I am into a IMS TM-MQ integration where OTMA defintion requires a load module has to be created with DRU exit
I have found the sample Exit DFSOXXXX. In the below EXIT where are the points that needs modification which would result a new load module as DFSOWMQ1
TITLE 'DRU0VCPE: OTMA DESTINATION RESOLUTION USER EXIT'
DRU0VCPE CSECT
DRU0VCPE AMODE 31
DRU0VCPE RMODE ANY
*
SAVE (14,12),,DRU0VCPE&SYSDATE&SYSTIME
SPACE 2
LR R12,R15 MODULE ADDRESSABILITY
USING DRU0VCPE,R12
*
L R2,12(,R1) R2 -> OTMA DRU PARMS
*
L R5,88(,R2) R5 ADDR OF OTMA USERDATA
LA R6,2(,R5) R6 ADDR OF MQMD
USING MQMD,R6 AS A BASE
*
LA R4,MQMD_LENGTH+10 SET THE OTMA USERDATA LEN
STH R4,0(,R5) = LL + MQMD + 8
* CLEAR REST OF USERDATA
MVI 0(R6),X'00' ...NULL FIRST BYTE
MVC 1(255,R6),0(R6) ...AND PROPAGATE IT
MVC 256(MQMD_LENGTH-256+8,R6),255(R6) ...AND PROPAGATE IT
*
VCPE DS 0H
CLC 44(16,R2),=CL16'VCPE' IS DESTINATION VCPE?
BNE EXIT4 NO, THEN DEST IS NON-OTMA
MVC MQMD_REPLYTOQ,=CL48'IMS.BRIDGE.UNSOLICITED.QUEUE'
MVC MQMD_REPLYTOQMGR,=CL48'VCPE' SET QNAME AND QMGRNAME
MVC MQMD_FORMAT,MQFMT_IMS SET MQMD FORMAT NAME
MVC MQMD_LENGTH(8,R6),MQFMT_IMS_VAR_STRING
* SET REPLYTO FORMAT NAME
B EXIT0
*
EXIT0 DS 0H
LA R15,0 SET RC TO OTMA PROCESS
B BYEBYE AND EXIT
*
EXIT4 DS 0H
LA R15,4 SET RC TO NON-OTMA
B BYEBYE AND EXIT
*
BYEBYE DS 0H
RETURN (14,12),,RC=(15) RETURN CODE IN R15
SPACE 2
REQUATE
SPACE 2
CMQA EQUONLY=NO
CMQMDA DSECT=YES
SPACE 2
END |
|
| Back to top |
|
 |
| Mr Butcher |
| Posted: Wed Jan 11, 2012 2:09 am Post subject: |
|
|
Padawan
Joined: 23 May 2005
Posts: 1716
|
i would change "DRU0VCPE" to the required name, and of course you have to modify the compile job ...
_________________
Regards, Butcher |
|
| Back to top |
|
|
| jaggz |
| Posted: Wed Jan 11, 2012 2:26 am Post subject: |
|
|
Newbie
Joined: 10 Dec 2010
Posts: 6
|
Butcher,
Do you mean its like DFSOXXXX as DFSOWMQ1 where WMQ1 is the queue manager ? other than there is'nt any changes in the instructions ? |
|
| Back to top |
|
|
| Mr Butcher |
| Posted: Wed Jan 11, 2012 3:32 am Post subject: |
|
|
Padawan
Joined: 23 May 2005
Posts: 1716
|
?!? if i understood your original question correct, you asked how to change to source to become a different load module name.´...
now it seems to me you ask about dependencies between queuemanager name and exit name ?!? Sorry, i dont know if the DRU exits have to match specific naming conventions ....
_________________
Regards, Butcher |
|
| Back to top |
|
|
| cicsprog |
| Posted: Tue Apr 10, 2012 8:55 am Post subject: |
|
|
Partisan
Joined: 27 Jan 2002
Posts: 347
|
The DRU exit name is specfied in your ZPARM. You should be able to name it what you want and change your ZPARM entry for the DRU exit to match that name.
The DRU exit is to reroute IMS OTMA reply message to a different queue. I assume you have that requirement? A DRU exit is not mandatory. |
|
| Back to top |
|
|
|
|
|
| |
|
Page 1 of 1 |
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
|
|
|
