IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to connect DB2 with CICS


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
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
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
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: 3156
Location: Tucson AZ

PostPosted: Sat Dec 23, 2006 8:48 pm
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: 3156
Location: Tucson AZ

PostPosted: Sat Dec 23, 2006 9:11 pm
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
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: 3156
Location: Tucson AZ

PostPosted: Sun Dec 24, 2006 7:34 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts Connect Direct 6.3 for Z/OS All Other Mainframe Topics 20
No new posts Calling an Open C library function in... CICS 1
No new posts How to 'Ping' a CICS region in JCL CICS 2
No new posts Parallelization in CICS to reduce res... CICS 4
Search our Forums:

Back to Top