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
 

 

Displaying all PDS members in a panel with PAGEUP/PAGEDOWN

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
suryamtechcse
Warnings : 1

New User


Joined: 28 Apr 2006
Posts: 9
Location: Chennai

PostPosted: Tue Apr 28, 2009 12:38 pm    Post subject: Displaying all PDS members in a panel with PAGEUP/PAGEDOWN
Reply with quote

Please assume that there are 50 members in my PDS and I wanted to display all these members in my panel that should work with PAGEUP/PAGEDOWN logic. In case I delete one of my members in PDS the 49 copybooks should be shown on the panel (i.e. to have a dynamic panel).



Could you please help me in getting the panel as well as source code for it.

Ans:
As per my assumption, I am using tables with scrollable areas (SAREA). Is it correct?? below is my piece of code

ADDRESS ISPEXEC
"TBCREATE LISTTAB1 KEYS(MEMBERS) NAMES(SELECT) WRITE REPLACE"

CALL LIST_PARA
ADDRESS ISPEXEC
"TBDISPL LISTTAB1 PANEL(SCRLIST)"

LIST_PARA:
X = OUTTRAP('VAR.')
ADDRESS TSO
Rptdsn = PGM_DSN
Mydsn = "'"Rptdsn"'"
"LISTDS" Mydsn "MEMBERS"

X = OUTTRAP('OFF')
DO I = 1 TO VAR.0
IF VAR.I = '--MEMBERS--' THEN
LEAVE
END
K = 1
DO J = I+1 TO VAR.0
SAY 'J OUTPUT MEMBERS:' VAR.J
MEMM.K = VAR.J
SAY 'K =' K
SAY 'VALUE FOR K:' MEMM.K
K = K+1
MEMM.K = VAR.J
ADDRESS ISPEXEC
"TBADD LISTTAB1"
SAY 'TABLE IS ADDED SUCCESSFULLY:' VAR.J
END

Pls help me.
Back to top
View user's profile Send private message

suryamtechcse
Warnings : 1

New User


Joined: 28 Apr 2006
Posts: 9
Location: Chennai

PostPosted: Tue Apr 28, 2009 12:41 pm    Post subject: How to display members from REXX table to Panel having SAREA
Reply with quote

I want to display the members in REXX panel which is having Scrollable area(SAREA) using REXX tables. Pls help in this regard
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Tue Apr 28, 2009 12:53 pm    Post subject:
Reply with quote

You will need to look at chapter 6 of the ISPF manual linked to HERE

Please note that the panels and tables are ISPF elements and not REXX. So please use the correct terminolgy in future.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10210
Location: italy

PostPosted: Tue Apr 28, 2009 1:01 pm    Post subject: Reply to: Displaying all PDS members in a panel with PAGEUP/
Reply with quote

Why do You want to reinvent the wheel?? you will get very little help on it

I just checked Your rexx and there is nothing that cannot be done
using the the appropriate/existing/well tested ISPF LM... services
- it would be more productive and of more value for Your skills

for the ISPF DOCS start from

http://www-03.ibm.com/systems/z/os/zos/bkserv/index.html#other_pubs

proceeding to your z/OS version/release 1.9 for example
http://www-03.ibm.com/systems/z/os/zos/bkserv/v1r9books.html

listing all the bookshelves
http://www-03.ibm.com/systems/z/os/zos/bkserv/zshelves9.html

reaching at the end the proper ISPF bookshelf
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/Shelves/ISPZPM61
Back to top
View user's profile Send private message
suryamtechcse
Warnings : 1

New User


Joined: 28 Apr 2006
Posts: 9
Location: Chennai

PostPosted: Tue Apr 28, 2009 3:13 pm    Post subject:
Reply with quote

Could pls help me in getting exact logic for this. I mean the steps that need to follow for this scenario
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10210
Location: italy

PostPosted: Tue Apr 28, 2009 3:21 pm    Post subject: Reply to: Displaying all PDS members in a panel with PAGEUP/
Reply with quote

search the ISPF manuals for the LMMDISP service description
the link to the manual is in my previous post

for sample on LMMLIST use see

http://www.sillysot.com/ftp/scanpds.txt

the script is doing something else,
but the DO for the LMMDISP is quite clear
Back to top
View user's profile Send private message
suryamtechcse
Warnings : 1

New User


Joined: 28 Apr 2006
Posts: 9
Location: Chennai

PostPosted: Tue Apr 28, 2009 3:58 pm    Post subject:
Reply with quote

Thanks. I will try with LMMDISP. I just want to confirm two questions

1. What is DataID in this command? Is it user defined one?
2. This command LMMDISP is valid for Scrollable area defined in Panel?.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10210
Location: italy

PostPosted: Tue Apr 28, 2009 4:24 pm    Post subject: Reply to: Displaying all PDS members in a panel with PAGEUP/
Reply with quote

Quote:
1. What is DataID in this command? Is it user defined one?
2. This command LMMDISP is valid for Scrollable area defined in Panel?.


1) look at the manual ( I gave You the link )

2) look at the manual again
LMMDISP does not use scrollable areas, the panel You will get is exacly the same You would get in a member list for browse/view/edit/ISPF member list
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10210
Location: italy

PostPosted: Tue Apr 28, 2009 4:42 pm    Post subject: Reply to: Displaying all PDS members in a panel with PAGEUP/
Reply with quote

Quote:
Please assume that there are 50 members in my PDS and I wanted to display all these members in my panel that should work with PAGEUP/PAGEDOWN logic. In case I delete one of my members in PDS the 49 copybooks should be shown on the panel (i.e. to have a dynamic panel).


what You are trying to achieve is exactly what You would get from
option 3.1
Back to top
View user's profile Send private message
suryamtechcse
Warnings : 1

New User


Joined: 28 Apr 2006
Posts: 9
Location: Chennai

PostPosted: Wed Apr 29, 2009 8:42 pm    Post subject: Still I am unable to display the members in my panel
Reply with quote

As per your suggestion, I tried with LMMDISP command but I am not getting members in my panel

my panel looks like

-------------------------------------------------------
-------------------------------------------------------


list of members

Members








-------------------------------------------------------------
-------------------------------------------------------------

My Code is

/* Rexx */
trace i
oudsn='TS.PAF2.PASSER.SIT'
address ISPEXEC
"LMINIT DATAID(ouid) DATASET('"oudsn"') ENQ(SHRW)"
"LMOPEN DATAID("ouid") OPTION(OUTPUT)"
"LMMDISP DATAID("ouid") OPTION(DISPLAY) STATS(YES) MEMBER(A*)"
do until rc>0
say '.'
"LMMDISP DATAID("ouid") OPTION(GET) STATS(YES)"
end
"LMCLOSE DATAID("ouid")";"LMFREE DATAID("ouid")"
exit

Pls help me
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 -> TSO/ISPF 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 Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am
No new posts Rexx Panel Validation ajithajt CLIST & REXX 6 Sun Jul 17, 2016 10:50 pm
No new posts Single step utility for compare and u... ramprakashn JCL & VSAM 5 Fri Apr 29, 2016 3:43 pm
This topic is locked: you cannot edit posts or make replies. Providing inputs to a panel of anothe... Raghur CLIST & REXX 2 Tue Apr 05, 2016 12:01 pm


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