Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
DSLIST utility ISRDSLST line command

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
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    Post subject: DSLIST utility ISRDSLST line command
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: 1175
Location: Vilnius, Lithuania

PostPosted: Tue Dec 31, 2019 4:59 pm    Post subject:
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    Post subject:
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

Senior Member


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

PostPosted: Tue Dec 31, 2019 10:54 pm    Post subject: Reply to: DSLIST utility ISRDSLST line command
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    Post subject:
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

Senior Member


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

PostPosted: Wed Jan 01, 2020 8:25 am    Post subject: Reply to: DSLIST utility ISRDSLST line command
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    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Issue in KWIKKEY utility while creat... mpanda JCL & VSAM 2 Wed Jan 08, 2020 6:37 pm
No new posts Trap a CP command message in Rexx zVM jeffery CLIST & REXX 1 Wed Dec 11, 2019 10:52 pm
No new posts File transfer issue with end of line ... VINAY PALLELA TSO/ISPF 4 Thu Nov 14, 2019 12:01 am
No new posts What 'EF' in the CAFC command REGION,... vrkratheesh CICS 2 Wed Sep 18, 2019 4:52 pm
No new posts Move a particular line from a PS file... Jitesh Kumar CLIST & REXX 7 Mon Aug 05, 2019 2:48 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us