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
 
How to connect DB2 with CICS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
star_dhruv2000

New User


Joined: 03 Nov 2006
Posts: 87
Location: Plymouth, MN USA

PostPosted: Sat Dec 23, 2006 3:22 pm    Post subject: How to connect DB2 with CICS
Reply with quote

WELL I HAVE A DB2 TABLE AND A CICS PROG AND MADE SOME CICS MAPS NOW I WANT TO DO CONNECTION B/W DB2 AND CICS. FOLLOWING IS THE SPECIFICATION FOR MY CONTENTS.

1. APPLICATION PROGRAM NAME IS 'CICSPRG'
2. PLAN NAME IS 'MTPLD06'
3. TRANS ID IS 'HHHH'

PROCEDURE I M FOLLOWING IS VIZ

Code:

1. CEDA DEF MAPSET(PRJMAP) GROUP(HEMANT) ===>ENTER
          MSG: DEFINE SUCESSFUL                                               
2. CEDA INS MAPSET(PRJMAP) GROUP(HEMANT) ===>ENTER
          MSG: INSTALL SUCESSFUL                                               
3. CEDA DEF PROG(CICSPRG) G(HEMANT)
          MSG: DEFINE SUCESSFUL                                               
4. CEDA INS PROG(CICSPRG) G(HEMANT)
          MSG: INSTALL SUCESSFUL                                               
5. CEDA DEF TRANS(HHHH) PROG(CICSPRG) G(HEMANT)
          MSG: DEFINE SUCESSFUL                                             
6. CEDA INS TRANS(HHHH) G(HEMANT)
          MSG: INSTALL SUCESSFUL                                               
7. CEDA DEF DB2E(AMMA) G(HEMANT)
                                      
 OVERTYPE TO MODIFY               
  CEDA  DEFine DB2Entry( AMMA     )
   DB2Entry       : AMMA           
   Group          : HEMANT       
   DEscription  ==> JJJJJJ         
  THREAD SELECTION ATTRIBUTES     
   TRansid      ==> HHHH           
  THREAD OPERATION ATTRIBUTES     
   PLAN         ==> MTPLD06       
             MSG: DEFINE SUCESSFUL                                               

8. CEDA INS DB2E(AMMA) G(HEMANT)
   OVERTYPE TO MODIFY               
 CEDA  Install                   
  DB2Entry     ==> AMMA             
  Mapset       ==> PRJMAP             
  PROGram      ==> CICSPRG     
  Group        ==> HEMANT     
            MSG: [color=red]================> HERE I GET ERROR
   2 ERROR MESSGES[/color] [color=orange]HOW TO READ THESE MSGS?[/color]
9. CEDA DEF DB2T(AMMS) G(HEMANT)                 
 OVERTYPE TO MODIFY                     
  CEDA  DEFine DB2Tran( AMMS     )       
   DB2Tran        : AMMS                 
   Group          : HEMANT             
   Description  ==> DDDDD               
   Entry        ==> AMMA                 
   Transid      ==> HHHH                 
             MSG: DEFINE SUCESSFUL                                               

10. CEDA INS DB2T(AMMS) G(HEMANT)
   OVERTYPE TO MODIFY               
  CEDA  Install                   
   DB2Entry     ==> AMMA             
   DB2Tran      ==> AMMU             
   LSrpool      ==>               
   Mapset       ==> PRJMAP             
+  PROGram      ==> CICSPRG     
   Group        ==> HEMANT         
            MSG:  [color=red]================> HERE I GET ERROR[/color]   
Back to top
View user's profile Send private message

star_dhruv2000

New User


Joined: 03 Nov 2006
Posts: 87
Location: Plymouth, MN USA

PostPosted: Sat Dec 23, 2006 8:11 pm    Post subject:
Reply with quote

No replies whats happening guys come on help me for this. This is basis of my prog.

I would like to ask one more thing. I got two maps in my mapset viz.

mapset : prjmap
map1 : mainmp
map2 : ntrymap

Transaction Id is 'hhhh' associated with mainmp

Now m recieving values from my ntrymap and do some operations on it in my application program. After this I want to send back and empty ntrymap which contains a text msg and empty fields. For this I do following

Code:
exec cics send
  mapset('prjmap')
  map('ntrymap')
end-exec. 
exec cics send text
  from(ws-var)
end-exec.


But when I do this and again enter values it gives me error in transaction Id. To over come this I m sending trans Id with above code viz

Code:
exec cics send
  mapset('prjmap')
  map('ntrymap')
end-exec. 
exec cics send text
  from(ws-var)
end-exec.
exec cics return
  transid('hhhh')
end-exec


But with this as soon as i press enter or any PF/PA key my mainmp overlaps my ntrymap which is due to the fact that my Trans Id is associated with mainmp.

Now please tell me an efficient way to overcome this problem.

Thanks and regards
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Sat Dec 23, 2006 8:48 pm    Post subject:
Reply with quote

Quote:
2 ERROR MESSGESHOW TO READ THESE MSGS?
First off, PF9? (no cics connection in my living room) Look at the bottom of the screen....

Quote:
MSG: ================> HERE I GET ERROR
Whar error?

Looking at the second problem now....
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Sat Dec 23, 2006 9:11 pm    Post subject:
Reply with quote

Why send map and then send text, doesn't the text overlay the map?
After the send send, do you return?
Are you psuedo-conversational?
What transaction ID did it say was the error?
Quote:
But with this as soon as i press enter or any PF/PA key my mainmp overlaps my ntrymap which is due to the fact that my Trans Id is associated with mainmp.
But when you press enter you do want program hemant to execute, right?
Awaiting answers..... icon_wink.gif
Back to top
View user's profile Send private message
star_dhruv2000

New User


Joined: 03 Nov 2006
Posts: 87
Location: Plymouth, MN USA

PostPosted: Sun Dec 24, 2006 2:28 pm    Post subject: Re: How to connect DB2 with CICS
Reply with quote

well brother send map and then sending text doesnot make any problem. My problem is to simply enter values in a map then recieve them and manipulate them and after all this done on successful execution reset all the fields of the map can u give some suggestions on this how to tackle this situation.
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Sun Dec 24, 2006 7:34 pm    Post subject:
Reply with quote

Hi star_dhruv2000, hang on and follow this to the end..... icon_wink.gif
star_dhruv2000 wrote:
well brother send map and then sending text doesnot make any problem. My problem is to simply enter values in a map then recieve them and manipulate them and after all this done on successful execution reset all the fields of the map can u give some suggestions on this how to tackle this situation.
First suggestion is that because of the (probably) native language differences, use short sentences, break apart what you are trying to say. Some times the long running verbiage makes it difficult to understand where one thought stops and the next begins.
Quote:
well brother

Quote:
send map and then sending text doesnot make any problem.

Quote:
My problem is to simply enter values in a map then recieve them and manipulate them

Quote:
and after all this done on successful execution reset all the fields of the map

Quote:
can u give some suggestions on this how to tackle this situation.
I can't really help on the DB2 connect but this should help with the rest.
Design your program from the middle out.
The primary purpose you want is to receive a screen, process the data and send the result. If you design your code to do this successfully, you are (almost) done.
The only thing left to do is handle the "boundary conditions".
The easiest boundary is the error conditions, like mapfail (clear key, pa key) and such.
Then comes the end, how to let the user let the program that they are finished with the function your program is providing.
The most difficult is the initial or starting boundary, how to get the user into the middle part of your program.
Assuming your program is pseudo-conversational, each time the program gets executed, it has to decided if this it a first time for the user or a return.
The program needs to figure out if a screen with data needs to be processed or an initial screen needs to be sent.
One method is checking to see if you left info in the commarea, another is an initial receive to check for the presence of a valid map.

I hope this helps,

Bill
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 -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Identifying Interfaces in CICS/mainframe Ashishpanpaliya CICS 5 Fri Oct 13, 2017 3:21 pm
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm
No new posts FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm
No new posts Julian Date to CICS ABSTTIME blayek CICS 3 Wed Aug 30, 2017 11:15 pm

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