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
 

 

Pf10 and PF11 scrolling logic

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

New User


Joined: 08 Aug 2007
Posts: 9
Location: Chennai

PostPosted: Tue Nov 17, 2009 3:06 pm    Post subject: Pf10 and PF11 scrolling logic
Reply with quote

Hi All,

I have a new requirement to code horizontal scrolling (Forward & backward) using PF10 & PF11. Pls let me know any available logic for the same.

Note:
The same screen has PF7 & PF8 logic, for which i have used a TSQ.

Many thanks for your help
Back to top
View user's profile Send private message

GuyC

Senior Member


Joined: 11 Aug 2009
Posts: 1278
Location: Belgium

PostPosted: Tue Nov 17, 2009 3:16 pm    Post subject:
Reply with quote

Horizontal scrolling is left/right not forward/backward.

Just retrieve more columns, and depending on a variable that increments, decrements with PF10/PF11 move different columns to screen and/or use different map.
Back to top
View user's profile Send private message
Jag

New User


Joined: 07 Dec 2005
Posts: 30
Location: India

PostPosted: Wed Nov 18, 2009 5:03 pm    Post subject:
Reply with quote

In horizontal scrolling we need to know which data is being displayed when PF11 is pressed..

For ex...In vertical scrolloing when PF7/8 is pressed same Fields will be present so we use the same map with different data.

But for horizontal sroclling as the above firend said an example for viewing a all fields in a table in the screen..Then we need to use different maps which contains different and these things should be manupulated in the program...
Back to top
View user's profile Send private message
Binop B

Active User


Joined: 18 Jun 2009
Posts: 407
Location: Nashville, TN

PostPosted: Wed Nov 18, 2009 5:34 pm    Post subject:
Reply with quote

Hi,

Another suggestion from my part would be to consider the the row data as a single field (say 75 bytes) in the screen i.e. the map is not diffrentiated as different columns. If the total row length ( o/p structure size ) is greater than 80 just show the data accordingly.

I will try to explain with example. Say your output row has a structure like this :-
Code:
05 WS-EMPL-ID             PIC X(10)
05 FILLER                 PIC X(01)
05 WS-FIRST-NAME          PIC X(20)
05 FILLER                 PIC X(01)
05 WS-MID-NAME            PIC X(15)
05 FILLER                 PIC X(01)
05 WS-LAST-NAME           PIC X(30)
05 FILLER                 PIC X(01)
05 WS-DESIGNATION         PIC X(20)
05 FILLER                 PIC X(01)
05 WS-ADDRESS-1           PIC X(25)
05 FILLER                 PIC X(01)
05 WS-ADDRESS-2           PIC X(25)
05 FILLER                 PIC X(01)
05 WS-GRADUATION          PIC X(30)
05 FILLER                 PIC X(01)
05 WS-BLOOD-GRP           PIC X(10)


Your map will be defined with fields which are, say, length of 75 bytes in each line. When you issue a SEND MAP the first time show the ID and NAME fields. When PF11 is invoked show the DESIGNATION and ADDRESS fields.... so on...

Do let me know in case of any clarifications... icon_wink.gif
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 Wildcard logic in COBOL dudenithy COBOL Programming 13 Thu Sep 01, 2016 7:36 pm
No new posts Sort Logic to extract data scorp_rahul23 DFSORT/ICETOOL 13 Tue Mar 01, 2016 1:22 am
No new posts Need a logic to validate the data in ... sandeep kumar302 COBOL Programming 17 Mon Feb 01, 2016 3:30 pm
No new posts Tricky sort logic required pgopi92 DFSORT/ICETOOL 3 Mon Jan 25, 2016 3:29 pm
No new posts DB2 - CURRENT DATE + 2 YRS logic balaji81_k DB2 3 Thu Nov 26, 2015 3:07 am


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