|
View previous topic :: View next topic
|
| Author |
Message |
Steve Coalbran
New User
Joined: 01 Feb 2007
Posts: 89
Location: Stockholm, Sweden
|
|
|
|
I want to dump ALL three variable pools into a file.
Is there an ISPF utility I can call which will do this.
I believe I heard of a way to do this some time ago?
I only have Rexx at my disposal to do this so if anyone has a nice neat solution I can steal the source for, that would be wonderful! 
Thanks in advance
/Steve |
|
| Back to top |
|
 |
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
|
|
| You being IT Specialist at IBM Global Services should have all the resources at hand to find out. |
|
| Back to top |
|
|
nevilh
Active User
Joined: 01 Sep 2006
Posts: 262
|
|
|
|
Hi, if you invoke a command from option 7.1 and then issue the command
"DTEST 3" (without the quotes ) a complete list of the variables should be displayed. If they are displayed there must be a way of copying them into a file. If only by using the print command.
| Quote: |
| You being IT Specialist at IBM Global Services should have all the resources at hand to find out |
Not a particularly helpful reply in fact almost boorish. A sensible question was asked it deserves a sensible reply. |
|
| Back to top |
|
|
don.leahy
Active Member
Joined: 06 Jul 2010
Posts: 765
Location: Whitby, ON, Canada
|
|
|
|
For the Profile pool the task is easy if you remember that the profile is stored as a single row ISPF tables with all of the variables defined as extension variables.
Doug Nadel has a utility called PROFDUMP which can do the trick.
As for the Shared and Function pools, I don't know of any tool other than 7.3 as mentioned by nevilh. |
|
| Back to top |
|
|
Steve Coalbran
New User
Joined: 01 Feb 2007
Posts: 89
Location: Stockholm, Sweden
|
|
|
|
| nevilh wrote: |
Hi, if you invoke a command from option 7.1 and then issue the command
"DTEST 3" (without the quotes ) a complete list of the variables should be displayed. If they are displayed there must be a way of copying them into a file. If only by using the print command.
| Quote: |
| You being IT Specialist at IBM Global Services should have all the resources at hand to find out |
Not a particularly helpful reply in fact almost boorish. A sensible question was asked it deserves a sensible reply. |
Absolutely, I agree with the 'boorish'.
I have actually already tried ISPF Product developmers today on a related issue as well as the IPT team in New Jersey.
Actually DTEST is some of what I want but it only has the SHARED and PROFILE variables. DTEST 3 is ISPF 7.3 or similar.
I'll try some other versions. It executes as SELECT PGM(ISPYDTST) PARM(3) NOFUNC SCRNAME(DTEST).
I wanted to also trap the FUNCTION pool.
Plus I want to be able to execute out of TEST mode and push the output to SYSOUT so I can trap it.
|
|
| Back to top |
|
|
don.leahy
Active Member
Joined: 06 Jul 2010
Posts: 765
Location: Whitby, ON, Canada
|
|
|
|
I also tried ISPVCALL. It tells you just about everything to do with your ISPF session, but alas does not show you the variable pools.
DTEST 3 (aka 7.3) shows you the function pool variables too. They are identified with a V if they are VDEFINE'd variables, and I if they are implicit. Both V and I are from the Function pool. |
|
| Back to top |
|
|
Steve Coalbran
New User
Joined: 01 Feb 2007
Posts: 89
Location: Stockholm, Sweden
|
|
|
|
| don.leahy wrote: |
I also tried ISPVCALL. It tells you just about everything to do with your ISPF session, but alas does not show you the variable pools.
DTEST 3 (aka 7.3) shows you the function pool variables too. They are identified with a V if they are VDEFINE'd variables, and I if they are implicit. Both V and I are from the Function pool. |
Thanks Don - I'd forgotten about ISPVCALL!!! 
It would be good to be able to invoke DTEST outside of TEST mode from ones own application.
Then there's the REXX variables too!? I'd forgotten about those! 
/S |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
| Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006
Posts: 1353
Location: Israel
|
|
|
|
| Steve Coalbran wrote: |
| Then there's the REXX variables too!? I'd forgotten about those! |
It is always possible to run the REXX compiler and analyze the "Cross Reference Listing" in the SYSPRINT output. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| Quote: |
| It is always possible to run the REXX compiler and analyze the "Cross Reference Listing" in the SYSPRINT output. |
nope 
IMO it does not convey enough info,
for a complex applications there might be zillions of variables created by calls to external functions.
( they might not be referenced by the script, but would be still in the variable pool)
that' how I debugged the poorly documented SDSF REXX interface
( misleading variable names )
| Code: |
Address SDSF .... <whatever>
vlist = rxvars()
do v = 1 to words(vlist)
vname = word(vlist, v)
say left(vname,16) value(vname)
end
|
|
|
| Back to top |
|
|
Stefan
Active User
Joined: 12 Jan 2006
Posts: 110
Location: Germany
|
|
|
|
Here is how I call DTEST from within my application:
| Code: |
/* rexx */
parse ARG zapplid
"ISPEXEC CONTROL ERRORS RETURN"
if zapplid = '' then "ISPEXEC VGET (ZAPPLID)"
"ISPEXEC SELECT PGM(ISPYXDR) PARM("zapplid") NOCHECK"
exit |
Here is how I use the ISPF table utility to look at the ISPF table with variables created by DTEST:
| Code: |
/* rexx */
'ISPEXEC CONTROL ERRORS RETURN'
ztbpnm='ISPYVTL1'
'ISPEXEC VPUT ZTBPNM'
'ISPEXEC SELECT PGM(ISRUTABL)'
exit |
You might use primary command EXPORT or FEXPORT to dump this table to a data set.
You'll find a modification of Robin Ryerse' assembler routine for retrieving all currently used REXX variables at my web site. |
|
| Back to top |
|
|
Steve Coalbran
New User
Joined: 01 Feb 2007
Posts: 89
Location: Stockholm, Sweden
|
|
|
|
Thanks Stefan.
Useful techniques
/S |
|
| Back to top |
|
|
|
|
