Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
IMS/DC online TO IMS/DB Program Linking

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
siva.parimi

New User


Joined: 13 Nov 2006
Posts: 4

PostPosted: Wed Dec 13, 2006 7:08 pm    Post subject: IMS/DC online TO IMS/DB Program Linking
Reply with quote

I need to know how we can pass IMS/DC online data to IMS/DB program.
I know that we can pass through IO-PCB but exast code I need.
Back to top
View user's profile Send private message

Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Dec 13, 2006 8:25 pm    Post subject:
Reply with quote

There are two types of applications that can process messages. An MPP (normally a conversational application using terminals) and a BMP. You can insert messages from the MPP onto the messagequeue and the BMP may process these messages. Take a look into this item. A standard batch DLI application cannot access the messagequeue; this manual also tells you how to convert one into a BMP. Furthermore I expect you to know how to read and insert messages from an MPP; if not have a look in the manual at this forum first.

By the way: you told to know passing data from an MPP to another destination goes by IO-PCB: wrong, IO-PCB is the address of the originating terminal. You should use an Alternate-IO-PCB.
Back to top
View user's profile Send private message
siva.parimi

New User


Joined: 13 Nov 2006
Posts: 4

PostPosted: Wed Dec 13, 2006 8:37 pm    Post subject: passing a variable value from IMS/DC to IMS/DB program
Reply with quote

I want to pass a variable value from IMS/DC to IMS/DB program.

how to code the variable in IMS/DC screen and how we will receive that variable in IMS/DB program.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Dec 13, 2006 8:58 pm    Post subject:
Reply with quote

Your questions are a bit confusing. First I need to understand what your problem looks like. How does the constellation looks like? What is it exactly you want to do? Remember I can't look into your head from here.

If you want to send complete messages to another application accessing the MQ I gave you the answer before. If you just want to pass a variable as a parameter to another called program (so not scheduled by IMS) you provide the caller and the callee with a pointer containing the address of the data to be passed. Definition depends on the language the programs are written in.

May be your problem is like this one.
Back to top
View user's profile Send private message
siva.parimi

New User


Joined: 13 Nov 2006
Posts: 4

PostPosted: Wed Dec 13, 2006 9:16 pm    Post subject: passsing a variable A (Pic 9(15)) to the varible in IMS/DB
Reply with quote

to pass a variable A 9(15) from IMS/DC online to IMS/DB program
so that I can store this on to IMS database..
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Dec 13, 2006 9:42 pm    Post subject:
Reply with quote

So your problem is almost identical to the one I linked.

The caller sending the variable has to provide the callee with at least two items: the pointer for the variable and the PCB for the database the callee is storing the variable in. You might also send a result-code. There is no IO-PCB in play at all. In PL1 we code the call as follows:

From caller program A:
CALL B (VAR_POINTER, DB_PCB, RESULT);

Callee B:
PROC: (VAR_POINTER, DB_PCB, RESULT) OPTIONS(MAIN);
Back to top
View user's profile Send private message
siva.parimi

New User


Joined: 13 Nov 2006
Posts: 4

PostPosted: Thu Dec 14, 2006 9:14 am    Post subject: But I need in IMS/DC to IMS/DB program.
Reply with quote

Please send me that code if you have
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Thu Dec 14, 2006 3:02 pm    Post subject:
Reply with quote

What I gave you is code. Var_pointer contains the address of the data you want to pass to B, DB_PCB is the address of the database you want B to access. All parameters are addressed in A. Declaring and addressing is normal programming, so is passing parameters.
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 -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm
No new posts pre-compiler for program in an HFS Pedro DB2 0 Fri Jun 23, 2017 11:13 pm
No new posts Compiling program in endeavor for tra... RALAKKAL Compuware & Other Tools 4 Mon Jun 05, 2017 8:27 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us