IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

DSLIST utility ISRDSLST line command


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
V S Amarendra Reddy

Active User


Joined: 13 Sep 2006
Posts: 216
Location: USA

PostPosted: Tue Dec 31, 2019 3:54 am
Reply with quote

Hi,

I googled A LOT to get an answer to my question before posting it here.

I am writing a simple REXX tool to invoke the dataset information panel(START 3.4 followed by the line command V) by invoking the ISRDSLST using the below command.

I have already assigned proper value to DNM variable here. So, this is working fine and I am landing in ISPF 3.4 panel.

"ISPEXEC SELECT PGM(ISRDSLST) PARM(DSL "DNM") SCRNAME("MCDR")"

Is there a way to pass 'S' line command to invoke the dataset information panel?

Thanks in advance for your time and help.
Back to top
View user's profile Send private message
prino
Warnings : 1

Senior Member


Joined: 07 Feb 2009
Posts: 1244
Location: Vilnius, Lithuania

PostPosted: Tue Dec 31, 2019 4:59 pm
Reply with quote

Maybe you can start by telling us WHY you are writing this "simple REXX tool".
Back to top
View user's profile Send private message
V S Amarendra Reddy

Active User


Joined: 13 Sep 2006
Posts: 216
Location: USA

PostPosted: Tue Dec 31, 2019 9:49 pm
Reply with quote

Trying to add a new feature to an existing rexx tool so users can see the dataset information of the dataset at the cursor, like within a JCL etc. That tool does lots of other stuff such as browse/view/delete open vsam files it in fileaid, just want to add this new feature so people can see the DCB information.

For VSAM files, I am able to navigate the user to fileaid 3.5 option. But for the flat files I am trying to do the same to take the user to 3.4 and line command 'S'. I mean the main goal is to take the user to the panel ISRUAIES. Currently I achieved the 3.4 but I am stuck at the line command 'S'.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2216
Location: Silicon Valley

PostPosted: Tue Dec 31, 2019 10:54 pm
Reply with quote

The easiest thing to do:

  1. ISPEXEC DSINFO DATASET('my.dsn')
  2. ISPEXEC DISPLAY PANEL(ISRUAIES)


See the ISPF Services Reference for more info.
Back to top
View user's profile Send private message
V S Amarendra Reddy

Active User


Joined: 13 Sep 2006
Posts: 216
Location: USA

PostPosted: Wed Jan 01, 2020 12:52 am
Reply with quote

Thank you Pedro for the response. My current code is like the below.

Code:

"ISPEXEC DSINFO DATASET("DNM")"
DSNS = SYSDSNAME
                       
IF WORDPOS(ZDSDSNT,'LIBRARY HFS') THEN
  "ISPEXEC DISPLAY PANEL(ISRUAISE)"   
ELSE                                   
  "ISPEXEC DISPLAY PANEL(ISRUAIES)"   
                                       
EXIT                                   


I think I missed something there, I am researching currently on it. Thing is it is only working once. I mean if I try to invoke it again for the same another dataset. I see a blank panel, looks like the session or profile variables are getting reset.

Here is the second attempt result.
Code:

                              Data Set Information                             
  Command ===>                                                                   
                                                                    More:     +
  Data Set Name . . . . : SYSDSNAME                                             
                                                                               
 General Data                           Current Allocation                     
  Management class . . :                 Allocated  . ::::::::                 
  Storage class  . . . :                 Allocated extents . :               
  Volume serial . . . :                                                     
  Device type . . . . :                                                       
  Data class . . . . . :                                                       
  Organization  . . . :                Current Utilization                     
  Record format . . . :                 Used   . . . ::::::::                 
  Record length . . . :                 Used extents  . . . :                 
  Block size  . . . . :                                                       
  1st extent   ::::::::                                                       
  Secondary  . ::::::::                Dates                                   
  Data set name type  :                 Creation date . . . :                 
                                        Referenced date . . :                 
                                        Expiration date . . :                 
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2216
Location: Silicon Valley

PostPosted: Wed Jan 01, 2020 8:25 am
Reply with quote

Quote:
Thing is it is only working once.

That is somewhat strange.

I was relying on the Services manual to be accurate:
Quote:
The information returned is the same as that displayed when you use ISPF Option 3.2 or Option 3.4 commands

and
Quote:
The DSINFO service saves these dialog variables in the function pool:

My suggestion is to use VGET for each variable name used in those panels. For example:
Code:
Address ISPEXEC
"DSINFO DATASET("DNM")"
DSNS = SYSDSNAME
"VGET (ZDSORG ZDSRF ...)"
                       
IF WORDPOS(ZDSDSNT,'LIBRARY HFS') THEN
  "DISPLAY PANEL(ISRUAISE)"   
ELSE                                   
  "DISPLAY PANEL(ISRUAIES)"   
                                       
EXIT                           


Table 5 in the DSINFO description lists the names of the variables also.

Please note the use of Address ISPEXEC in the example.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Command line placement in DB2I panels TSO/ISPF 2
No new posts Which SORT utility can improve the Pe... DFSORT/ICETOOL 16
No new posts File-aid batch how to repeat a line... Compuware & Other Tools 2
No new posts A command to change LRECL of an exist... JCL & VSAM 7
No new posts Next line in SQL DB2 6
Search our Forums:

Back to Top