Need logic to display records from 1 screen to another scren

maheshurstd · New User Joined: 16 Feb 2006 Posts: 14

Hi,

My requirement is that i have displayed some set of records on the cics screen & i want to display the next set of records e.g I have read 15 records & displayed on the screen & i want to display another 15- 30 records on the screen i.e i want to jump from one screen to another screen. If any one has the code please send it or tell me a way to do it.

Thanks in advance

Regards

Mahesh

anamikak · New User Joined: 10 May 2006 Posts: 64 Location: Singapore

TSQ are used in CICS for scrolling from one screen to another.
Store the last item number displayed in the screen in the DFHCOMMAREA and when PF8 is pressed, you can start populating the screen from the last item number read that was stored in DFHCOMMAREA till a count of 15 and so on.

Anamika

gsnvsr · New User Joined: 06 Jul 2005 Posts: 40

joshua1983 · Posted: Mon Jun 26, 2006 5:12 pm

Hi mahesh,

Initially i assume the all the records(e.g: 32 records) are written to the queue.

now for displaying it on the screen....u should have an array of 15 map variables(e.g: map_output(15))....

now read the queue one by one and put it the map variable
initially TSQ-ITEM=1
e.g: perform 15 times
readq
move 1st record to map_ouput(J)
increment TSQ item
add 1 to J
end perform
send map

now u have 15 records on the screen....

when u press any key like PF5 then perform
TSQ-ITEM = (CURRENTPAGE - 2) * NO OF RECORDS + 1

now TSQ-ITEM will pointing to 16th record again perform the loop given above and records will be displayed on the 2nd screen.

rajandhla · Posted: Tue Jun 27, 2006 8:40 pm

joshua,

can you please let know the generic pageup and page down logic..

Regards
jai

joshua1983 · Posted: Wed Jun 28, 2006 9:40 am

hi jai

assuming u have all the records in the queue.....

for pageup

TSQ-ITEM = (Current Page num * no. of records to be
displayed on screen) + 1

and for pagedown

TSQ-ITEM = [(Current Page - 2) * No. of records to be
displayed on the screen] + 1

please feel free to reply for any other queries...

joshua1983 · Posted: Wed Jun 28, 2006 11:10 am

hi rajandhla

assuming u have all the records in the queue.....

for pageup

TSQ-ITEM = (Current Page num * no. of records to be
displayed on screen) + 1

and for pagedown

TSQ-ITEM = [(Current Page - 2) * No. of records to be
displayed on the screen] + 1

please feel free to reply for any other queries...