|
View previous topic :: View next topic
|
| Author |
Message |
V S Amarendra Reddy
Active User
Joined: 13 Sep 2006
Posts: 216
Location: USA
|
|
|
|
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 |
|
 |
prino
Senior Member
Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania
|
|
|
|
| Maybe you can start by telling us WHY you are writing this "simple REXX tool". |
|
| Back to top |
|
|
V S Amarendra Reddy
Active User
Joined: 13 Sep 2006
Posts: 216
Location: USA
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
The easiest thing to do:
- ISPEXEC DSINFO DATASET('my.dsn')
- ISPEXEC DISPLAY PANEL(ISRUAIES)
See the ISPF Services Reference for more info. |
|
| Back to top |
|
|
V S Amarendra Reddy
Active User
Joined: 13 Sep 2006
Posts: 216
Location: USA
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
| 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 |
|
|
|
|
