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
 
page up & page down coding

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

New User


Joined: 16 Jun 2004
Posts: 47

PostPosted: Wed Jun 23, 2004 10:47 am    Post subject: page up & page down coding
Reply with quote

hi,

thanks so such for ur reply.

but what i want is actually the page up and page down logics.

in mainframes we use keys f7 & f8 for paging up and down.

we want the codings for this logic.

please do reply for my question

bye,
lakshmi
icon_lol.gif
Back to top
View user's profile Send private message

priya

Moderator


Joined: 24 Jul 2003
Posts: 568
Location: Bangalore

PostPosted: Sun Jun 27, 2004 9:48 pm    Post subject: Re
Reply with quote

You can define your own PF Key for page up and down
Back to top
View user's profile Send private message
meetsrk

New User


Joined: 13 Jun 2004
Posts: 85

PostPosted: Tue Jul 06, 2004 9:17 pm    Post subject: reg. page up and page down
Reply with quote

i will tell u the logic....
conside the file has 20 records...

Code:

E001 ........
E002 ..............
E003 .........
.....
...
E020

in a screen if u displaying 5 records at a time...so for the first time first 5 records will be displayed. so use a select statment without any condition using a cursor. move the first 5 record onto the map field which having occurs clause.
so now the display is
Code:

E001 ........
E002 ..............
E003 .........
.....
E005 ...

set upper-limit = E001, lower-limit = E005
if user opts for page down.. then use a select statement like
Code:

select * from demo_table where ecode > lower-limit;

then display the next five records.
Code:

E006 ........
E007 ........
E008 .........
.....
E010 ...


set upper-limit = E006, lower-limit = E010
if the user opts for page up then use this query
Code:

select * from demo_table where ecode < upper-limit;

so again display the first five records.
so u always need to store two limits.
upper-limit is used for page up.
lower-limit is used for page down.
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Fri Jul 16, 2004 9:21 pm    Post subject:
Reply with quote

Hi Lakshmi,

If you work in DP as a pgmr you can look at source code for CICS pgms. Most CICS systems have a browse function.

The most common CICS application system functions are:

Add
Delete
Change
Browse

They're all over the place. Just list the members in your company's CICS loadlib, then use that list to peruse the source library.

You'll probably see a common approach to the problem that you should adopt for your pgm.

Regards, Jack.
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 ALTER of an IDMS AREA with NEW/OLD pa... Awanti IDMS/ADSO 2 Mon Mar 14, 2016 10:01 pm
No new posts Need help on coding an Assembler Table saranyasakthivel PL/I & Assembler 9 Thu Jan 08, 2015 7:03 pm
No new posts How to do page navigation in REXX? Gopalakrishnan V TSO/ISPF 3 Mon Nov 24, 2014 6:36 pm
No new posts code for page navigation in a panel Gopalakrishnan V TSO/ISPF 5 Thu Nov 13, 2014 7:14 pm
No new posts DISPLAY FROM(.... No page Break knobi DFSORT/ICETOOL 3 Fri Jul 04, 2014 8:13 am

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