IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

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

Senior Member


Joined: 07 Feb 2009
Posts: 1224
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: 2206
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: 2206
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 All times are GMT + 6 Hours
Forum Index -> CLIST & REXX
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts COBOL VS SORT Utility for file format... COBOL Programming 6
No new posts How to pass arguments in a ISPSTART c... CLIST & REXX 6
No new posts Need to split single line into two li... DFSORT/ICETOOL 7
No new posts VSAM Alter Command - Cylinder Extent ... JCL & VSAM 3
No new posts Am I missing something on "FREE ... CLIST & REXX 10

Back to Top