MVSFORUMS.com

[bindugs]

Can u provide me with a sample program for Navigating thru a TSQ ?Pageup ,Pagedown logic

[kolusu]

Bindu_gs,

Check this link which explains in detail about the READQ TS

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DFHJAP4C/1.150?DT=20030108162734

Check the examples below for a reading a TSQ with an item number. The paging logic can be written by saving the last item number.

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[ramu_mohan21]

Hi Kolusu,
I have gone through the link which is provided by you. Really it very much useful. I am new the CICS. Please clarify my doubts regarding writing a new CICS Program containing the PageUp/PageDown Logic.

Please check my below assumptions in writing PageUp & PageDown logic in CICS-DB2. If any errors please correct it. [I am new to this kind of logic].

1) We should fetch all the records into TSQ from the Select Statement
(If SELECT returns more number of rows what will happen. Is that TSQ is self expandable?)

2) Then read TSQ record by record until the ASSUMED-PAGE-RECCOUNT =
TSQ-READCOUNT and send the map to the terminal.

3) Before sending the map to the terminal store the last key read from the TSQ in any hostlanguage variable.
(Where we should store this Last Key Read. Because CICS terminates the transaction as soon as the map shown on the screen. I feel the value present in the hostlanguage variable-last key read also will be lost.)

(OR)
If user presses PageDown-Send the KEY of the Last Row shown on the MAP to the program again to retrieve the next records. And read the TSQ from the last key onwards

5) If user presses PageUp -> How can we handle it?

6) And also if the user is in the middle of pages. There also PageUp And PageDown logic should work. How can we handle these cases.

I totally confused about this logic. Can you help.
_________________
Best Regards,
----------------
Rammohan Pabba
Software Engineer

[kolusu]

ramu_mohan21,

[ramu_mohan21]

Hi Kolusu,
I'm sorry for responding very late. In the middle of the pages means
A) If there are 10 pages of data to be retrieved. Then user is in 5 page. He should be able to go to 4,3,2,1 as well as 6,7,8,9,10.
As you suggested, I think this can be handled by storing the first key and last key of the map and reading the TSQ accordingly. Am I right?

But here I have doubt that- First Key and Last key will be stored in the Host Language Variables before sending the Map (or) After sending the Map. Please can you clarify.

B) If the page consisting of 10 records and the user kept the cursor at the 5th record and pressed PageDown key. Then that record should become as the first record of the page. I mean relocation of the record. How it can be handled. Because the user is pressing the key by keeping the cursor at a perticular record within the page dynamically.

Kolusu,
If I am not clear and you didn't understand what I mean to say, please let me know. I will reply with some examples.
_________________
Best Regards,
----------------
Rammohan Pabba
Software Engineer

[Mike Chantrey]

You don't want to use the data keys to keep track of screen postiions, you need to use the TSQ item numbers instead, since you can't address the TSQ by data key, only by item number. If you have for example 10 items per page, then TSQ items 1-10 would be read to display a full page, items 11-20 for the next full page etc.
You only need to keep track of the current top of page item number. You can pass the current value of this field from transaction to transaction via the COMMAREA in the normal way.

A) You will need something like a page number field on your map for this. Then you can calaculate a TSQ item number, e.g. the user types 7 in the page number field, you have 10 items per page, then the top of page item number is 10*7+1 = 71
So you read and display by item number a page full of TSQ items starting from item 71.

B) You can use the EIBCPOSN field to get the cursor position and from this you can calculate what line number it was on and add this offset to the current top of screen item number to calculate the new top of screen item.

[vak255]

Hi,
There is a sample code available here.just download it and have a look.
http://www.murach.com/books/cdrf/index.htm

[ramu_mohan21]

Hi Mike and Kiran,
Thank you very much for giving me the solutions.
_________________
Best Regards,
----------------
Rammohan Pabba
Software Engineer