MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

ISPF Tables - Page Up/Page Down Logic using ISPF Tables/REXX

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
cool.manoj
Beginner


Joined: 26 May 2010
Posts: 13
Topics: 5

PostPosted: Wed Jul 28, 2010 7:06 am    Post subject: ISPF Tables - Page Up/Page Down Logic using ISPF Tables/REXX Reply with quote

Hi,

I have coded a REXX program which reads a file and adds records to ISPF Table. At the end of processing, i'm displaying the values using TBDISPL. I have more than 20 rows in the table and would like to add page up/page down logic. Could please help me how to code this logic in REXX?

1. If you have manuals on ISPF Panels and REXX, please update/provide the link
2. How can we find which key is pressed after the panel is displayed?

Thank you so much!

Regards,
Manoj.
Back to top
View user's profile Send private message
dbzTHEdinosauer
Supermod


Joined: 20 Oct 2006
Posts: 1411
Topics: 26
Location: germany

PostPosted: Wed Jul 28, 2010 7:16 am    Post subject: Reply with quote

ISPF for z/OS Library
_________________
Dick Brenholtz
American living in Varel, Germany
Back to top
View user's profile Send private message
superk
Advanced


Joined: 19 Dec 2002
Posts: 684
Topics: 5

PostPosted: Wed Jul 28, 2010 7:25 am    Post subject: Reply with quote

ISPF handles scrolling logic internally. There's nothing you need to write code for.
Back to top
View user's profile Send private message
cool.manoj
Beginner


Joined: 26 May 2010
Posts: 13
Topics: 5

PostPosted: Wed Jul 28, 2010 7:48 am    Post subject: Reply with quote

Hi Superk,

Thank you so much for your time.
I'm getting message 'Command is not active' when PF8/PF7 is pressed. Please advice

Regards,
Manoj
Back to top
View user's profile Send private message
superk
Advanced


Joined: 19 Dec 2002
Posts: 684
Topics: 5

PostPosted: Wed Jul 28, 2010 9:59 am    Post subject: Reply with quote

Are you saying that the UP and DOWN commands are not working (I don't care about PF keys since no one here knows how you have them mapped).
Back to top
View user's profile Send private message
cool.manoj
Beginner


Joined: 26 May 2010
Posts: 13
Topics: 5

PostPosted: Wed Jul 28, 2010 11:18 pm    Post subject: Reply with quote

Hi,

I'm following the steps below in the same REXX program:

#1. Create a ispf table using tbcreate
#2. REXX program reads a file and adds records to ISPF Table.
#3. At the end of file, i'm displaying the values using TBDISPL.
#4. No TBCLOSE is used. No function keys mapping is done here.

Problem i'm facing here is page up/page down isn't working. Could you please guide me?

a. Could please help me how to correct this? (page up/page down)
b. If you have manuals on ISPF Panels and REXX, please update/provide the link
c. How can we find which key is pressed after the panel is displayed?

Thank you so much!
Back to top
View user's profile Send private message
superk
Advanced


Joined: 19 Dec 2002
Posts: 684
Topics: 5

PostPosted: Wed Jul 28, 2010 11:59 pm    Post subject: Reply with quote

How about posting your panel definition? Did you use the ISPF Edit Model for the table display as your template?
Back to top
View user's profile Send private message
Nic Clouston
Advanced


Joined: 01 Feb 2007
Posts: 1075
Topics: 7
Location: At Home

PostPosted: Thu Jul 29, 2010 12:08 am    Post subject: Reply with quote

If the manuals are not accessible via the links above then either google or visit IBM's site - you could use a manual link above as the base point. I believe DBZ posted a couple of links a few months back showing how to find manuals.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.
Back to top
View user's profile Send private message
cool.manoj
Beginner


Joined: 26 May 2010
Posts: 13
Topics: 5

PostPosted: Thu Jul 29, 2010 12:09 am    Post subject: Reply with quote

here it is....
Code:

)PANEL 
  /* PANEL CREATED            */         
)ATTR                                                                   
    @ Type(output) Intens(low) Just(asis) Caps(off) Skip(on)           
)BODY                                                                   
+        *********      Inquiry Screen        *********+   
+                                                             %Scroll ==>_samt+
%      Ser.   Area       Area                  ST             
%      No.    Code        ID     Population    CD    Percentage      Category
%      ----   ----       ----    ----------    ---   -----------     --------
)Model                                                                 
%      @slno @harcd     @harid  @hpopul      @hstcd    @hprcnt       @hctgry+
)INIT                                                                   
 &samt = page                                                           
)PROC                                                                   
)END
Back to top
View user's profile Send private message
CZerfas
Intermediate


Joined: 31 Jan 2003
Posts: 211
Topics: 8

PostPosted: Thu Jul 29, 2010 3:29 am    Post subject: Reply with quote

In some ISPF-applications the PF key setting is incomplete. To fix that (i.e. directly after receiving the message "Command is not active") type in the command "keys". In the panel displayed after that, go to the lines for F7 and F8 and type in the "Definition" column "up" and "down".

That should help.

regards
Christian
Back to top
View user's profile Send private message
cool.manoj
Beginner


Joined: 26 May 2010
Posts: 13
Topics: 5

PostPosted: Thu Jul 29, 2010 3:34 am    Post subject: Reply with quote

It's working fine after this setup.
Thanks very much!
Back to top
View user's profile Send private message
superk
Advanced


Joined: 19 Dec 2002
Posts: 684
Topics: 5

PostPosted: Thu Jul 29, 2010 6:07 am    Post subject: Reply with quote

I give up. Confused

Why did you omit a command line with the ZCMD field as a typical panel should contain?
Back to top
View user's profile Send private message
rlilley
Beginner


Joined: 05 Apr 2010
Posts: 19
Topics: 3

PostPosted: Thu Jul 29, 2010 6:42 am    Post subject: Reply with quote

I would start with the ISPF MODEL command. The model is designed to give complete examples of many ISPF related items. For example if you open a new member in a panel library and enter MODEL on the command line you will be presented with a selection of multiple panel types. Selecting the type of panel you would like to work with gives you a great starting point.

if you are in a member of an ISPSLIB (File Tailoring Skeletons) and enter the MODEL command you will have an opportunity to select a model from all the available skeleton parts.

The MODEL is a great place to start. Have a look at it.
Back to top
View user's profile Send private message
cool.manoj
Beginner


Joined: 26 May 2010
Posts: 13
Topics: 5

PostPosted: Fri Jul 30, 2010 4:16 am    Post subject: Reply with quote

This is a very useful option. Thank you so much!
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group