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
 

 

ISPF Panel which displays the list of members of given PDS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
heramb

New User


Joined: 19 May 2006
Posts: 1

PostPosted: Fri May 19, 2006 10:23 am    Post subject: ISPF Panel which displays the list of members of given PDS
Reply with quote

I have designed a panel which displays the list of members of given PDS.
It looks like,

)ATTR
% TYPE(TEXT) INTENS(HIGH) COLOR(BLUE) CAPS(OFF) SKIP(ON)
# TYPE(TEXT) INTENS(LOW) COLOR(YELLOW) CAPS(OFF) SKIP(ON)
$ TYPE(OUTPUT) INTENS(HIGH) COLOR(BLUE) SKIP(ON)
+ TYPE(TEXT) INTENS(LOW) SKIP(OFF)
@ TYPE(OUTPUT) INTENS(LOW) COLOR(GREEN) SKIP(ON)
! TYPE(INPUT) INTENS(HIGH) COLOR(GREEN)
)BODY
#??????????????????????????????????????????????????????????????????????
% -------------------- % DATASET VIEW UTILITY ------------------------
#??????????????????????????????????????????????????????????????????????
%TILE +$OPT +$DSET %PAGE +$PG %O
# COMMAND ===> !CMD
+*********************** TOP OF DATA ************************
!LIN1
!LIN2
!LIN3
.................... and so on

)PROC
VPUT (LIN1,LIN2,LIN3,LIN4...........


here i have 2 problems,

1) Can i use array inplace of variables.i.e. instade of using LIN1,LIN2, can i use LIN(100)

2) I have 100 member and the panel can display only 10 members at a time,so i want to eanle PF7/PF8 keys for this panel.
That means when user presses PF8 - next 10 members should be displayed and when user presses PF7 - previous 10 members should be displayed.


Can anybody suggest solutions?
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Fri May 19, 2006 3:38 pm    Post subject: Re: ISPF Panel which displays the list of members of given P
Reply with quote

heramb wrote:

1) Can i use array inplace of variables.i.e. instade of using LIN1,LIN2, can i use LIN(100)

No, each variable must be defined separately.

heramb wrote:

2) I have 100 member and the panel can display only 10 members at a time,so i want to eanle PF7/PF8 keys for this panel.
That means when user presses PF8 - next 10 members should be displayed and when user presses PF7 - previous 10 members should be displayed.

A. Why not use a table for all 100 members and display with a TBDISPL command instead? The variables for each row only need to be defined once.

B. Why not make the one panel scrollable to show all 100 members?

C. It would be much easier to use standard ISPF navigation:

PANEL1 - press Enter (rc=0) to go to PANEL2 or END (rc=8) to exit out.
PANEL2 - press Enter (rc=0) to go to PANEL3 or END (rc=8) to return to PANEL2.
....
PANEL10 - press Enter (rc=0) results in no action. Enter END (rc=8) to return to PANEL9, and so on, back to PANEL1.
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts SQL query to run through list of valu... Ni3-db2 DB2 14 Wed Dec 14, 2016 9:52 am
No new posts Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am
No new posts Cobol list of programs being called biswajit.dattagupta COBOL Programming 5 Tue Nov 01, 2016 2:10 am
No new posts ISPF program to set SCRNAME prino TSO/ISPF 5 Fri Sep 30, 2016 2:18 pm


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