View previous topic :: View next topic
|
Author |
Message |
ibmmainframe1
New User
Joined: 26 Jul 2005 Posts: 64 Location: India
|
|
|
|
Hi All,
I have IMS DC program which is calling MQ program. In xpediter How should I take my control to MQ program. Pls check my code.
Code: |
CALL "CBLTDLI" USING CHNG-FUNC
SES-ALT-PCB-MASK
C-OWS-TRANSACTION
. |
Code: |
CALL "CBLTDLI" USING ISRT-FUNC
SES-ALT-PCB-MASK
CS0014OW-INPUT-AREA
. |
Code: |
CALL "CBLTDLI" USING PURG-FUNC
SES-ALT-PCB-MASK
. |
I have compiled both the programs with xpediter option in changeman. I can invoke the main program however when I execute all the 3 codes its not taking me to the MQ Program.
Pls advise.
Thanks. |
|
Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006 Posts: 1193 Location: Dublin, Ireland
|
|
|
|
Call CBLTDLI is a call to IMS. There's nothing in the calls shown to suggest that there's any MQ involved, or indeed, any other program.
Garry. |
|
Back to top |
|
|
ibmmainframe1
New User
Joined: 26 Jul 2005 Posts: 64 Location: India
|
|
|
|
Garry,
C-OWS-TRANSACTION has MQ program. |
|
Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006 Posts: 1193 Location: Dublin, Ireland
|
|
|
|
The third parameter to CBLTDLI is an I/O area -as shown in your second code snippet. How does this invoke a program?
Garry. |
|
Back to top |
|
|
ibmmainframe1
New User
Joined: 26 Jul 2005 Posts: 64 Location: India
|
|
|
|
Third parameter holds the value to insert into queue... which is CS0014OW |
|
Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006 Posts: 1193 Location: Dublin, Ireland
|
|
|
|
Is the Xpediter USE command what you require -to establish addressing to the ALT-PCB ?
Garry. |
|
Back to top |
|
|
|