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
 
dispaly db2 table on map ?

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

New User


Joined: 09 Sep 2008
Posts: 4
Location: chennai

PostPosted: Thu Sep 11, 2008 8:43 am    Post subject: dispaly db2 table on map ?
Reply with quote

Hi friends , i'm meyyappan .I'm a begineer in cics and need your help.
i want to display the db2 table on my map.
i know how to display one record from db2 table on a map.for this how many symbolic parameters i need to have on map ?
i need to scroll down and up the table in map.
is this like having around 20 symbolic parameters and getting 20 records from db2 table and then while scrolling display next 20 ?
will this idea work or else is there any simple way to do this task .
help is appreciated.
thanks in advance friends.
Back to top
View user's profile Send private message

Krishna Velamur

New User


Joined: 22 Aug 2008
Posts: 22
Location: Hyderabad

PostPosted: Thu Sep 11, 2008 11:05 am    Post subject:
Reply with quote

Hi Meyappan,
You need to define repeated lines in the map (an array of line fields).

In the below example the detail line repeats 5 times. So you need to define the detail line as an array which occurs 5 times in the map.

Filed-1 Field-2 Field-3
------- -------- --------
------- -------- --------
------- -------- --------
------- -------- --------
------- -------- --------

You need to use cursors to fetch data from tables and populate in the screen variables. Please check below the three cases.

->Initially when you have given some input on the screen, you fetch the first 5 rows. Here W-KEY value will hold the value based on your input.

Declare cursor C1 for
Select Row-1, Row-2, Row-3
from TABLE1
where INPVALUE = W-KEY

-> When we navigate to the next page. Here W-KEY will be the key value of the last row of the current page.

Declare cursor C1 for
Select Row-1, Row-2, Row-3
from TABLE1
where INPVALUE > W-KEY

-> When we navigate to the previous page. Here W-KEY will be the key value of the first row of the current page.

Declare cursor C1 for
Select Row-1, Row-2, Row-3
from TABLE1
where INPVALUE < W-KEY

Note that the query needs to be modified based on your requirement. Hope this helps.
Back to top
View user's profile Send private message
meyyappan

New User


Joined: 09 Sep 2008
Posts: 4
Location: chennai

PostPosted: Thu Sep 11, 2008 10:21 pm    Post subject: Reply to: dispaly db2 table on map ?
Reply with quote

thanks a lot Krishna Velamur.but w-key here you are using is a key word or user defines name ?i'm hearing about w-key fro 1st time .
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Sep 11, 2008 11:23 pm    Post subject:
Reply with quote

Hello,

W-KEY is user-defined. It is not a reserved/key word.
Back to top
View user's profile Send private message
meyyappan

New User


Joined: 09 Sep 2008
Posts: 4
Location: chennai

PostPosted: Mon Sep 15, 2008 6:56 am    Post subject: Reply to: dispaly db2 table on map ?
Reply with quote

thanks to all guys who replied to my query.
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 Update table without cursor Ron Klop DB2 3 Wed Oct 11, 2017 1:06 pm
No new posts Table(Unicode(Graphic) table) loading... muralikrishnan_new DB2 0 Thu Oct 05, 2017 5:10 pm
No new posts Insert a Row_number into table useit DB2 2 Tue Sep 19, 2017 1:07 pm
No new posts how to see when the last read access ... Mike 1304 DB2 1 Tue Sep 12, 2017 7:52 pm
No new posts PC (UTF-8) -> z/OS (EBCDIC) -> ... prino All Other Mainframe Topics 4 Fri Sep 01, 2017 1:47 am

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