Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Need logic to display records from 1 screen to another scren

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

New User


Joined: 16 Feb 2006
Posts: 14

PostPosted: Mon Jun 26, 2006 1:05 pm    Post subject: Need logic to display records from 1 screen to another scren
Reply with quote

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
Back to top
View user's profile Send private message

anamikak

New User


Joined: 10 May 2006
Posts: 64
Location: Singapore

PostPosted: Mon Jun 26, 2006 1:18 pm    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
gsnvsr

New User


Joined: 06 Jul 2005
Posts: 40

PostPosted: Mon Jun 26, 2006 2:49 pm    Post subject: Re: Need logic to display records from 1 screen to another s
Reply with quote

maheshurstd wrote:
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


Search the forrum before posting. Its a duplicate request in this forum!
Back to top
View user's profile Send private message
joshua1983

New User


Joined: 25 May 2006
Posts: 7
Location: Mumbai, India

PostPosted: Mon Jun 26, 2006 5:12 pm    Post subject: Re: Need logic to display records from 1 screen to another s
Reply with quote

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.
Back to top
View user's profile Send private message
rajandhla

Active User


Joined: 18 Oct 2005
Posts: 182
Location: Luton UK

PostPosted: Tue Jun 27, 2006 8:40 pm    Post subject:
Reply with quote

joshua,

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

Regards
jai
Back to top
View user's profile Send private message
joshua1983

New User


Joined: 25 May 2006
Posts: 7
Location: Mumbai, India

PostPosted: Wed Jun 28, 2006 9:40 am    Post subject: Re: Need logic to display records from 1 screen to another s
Reply with quote

hi jai icon_smile.gif

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...
Back to top
View user's profile Send private message
joshua1983

New User


Joined: 25 May 2006
Posts: 7
Location: Mumbai, India

PostPosted: Wed Jun 28, 2006 11:10 am    Post subject: Re: Need logic to display records from 1 screen to another s
Reply with quote

hi rajandhla icon_smile.gif

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...
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 Count the length of the record & ... sreekusr DFSORT/ICETOOL 4 Thu Mar 23, 2017 7:52 pm
No new posts Display FTP Session Count within TSO Yolanda Harvey TSO/ISPF 3 Fri Mar 10, 2017 10:31 pm
No new posts To display values of multiple rows in... vinu78 DB2 2 Thu Mar 09, 2017 1:20 pm
No new posts Join giving more records than expected Danielle.Filteau SYNCSORT 2 Thu Mar 09, 2017 3:28 am
No new posts TSO or command line utility to genera... kishpra JCL & VSAM 3 Thu Mar 09, 2017 1:11 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us