Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

IMS DC & MQ

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Java & MQSeries
View previous topic :: :: View next topic  
Author Message
ibmmainframe1

New User


Joined: 26 Jul 2005
Posts: 64
Location: India

PostPosted: Fri Dec 04, 2009 4:57 pm    Post subject: IMS DC & MQ
Reply with quote

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
View user's profile Send private message

Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 991
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Mon Dec 07, 2009 5:05 pm    Post subject:
Reply with quote

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
View user's profile Send private message
ibmmainframe1

New User


Joined: 26 Jul 2005
Posts: 64
Location: India

PostPosted: Tue Dec 08, 2009 4:35 pm    Post subject:
Reply with quote

Garry,

C-OWS-TRANSACTION has MQ program.
Back to top
View user's profile Send private message
Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 991
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Tue Dec 08, 2009 4:59 pm    Post subject:
Reply with quote

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
View user's profile Send private message
ibmmainframe1

New User


Joined: 26 Jul 2005
Posts: 64
Location: India

PostPosted: Tue Dec 08, 2009 7:28 pm    Post subject:
Reply with quote

Third parameter holds the value to insert into queue... which is CS0014OW
Back to top
View user's profile Send private message
Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 991
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Tue Dec 08, 2009 7:53 pm    Post subject:
Reply with quote

Is the Xpediter USE command what you require -to establish addressing to the ALT-PCB ?

Garry.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Java & MQSeries All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:



Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us