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

ISPF Variable Pools


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Steve Coalbran

New User


Joined: 01 Feb 2007
Posts: 89
Location: Stockholm, Sweden

PostPosted: Wed May 29, 2013 12:37 pm
Reply with quote

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! icon_lol.gif

Thanks in advance
/Steve
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2476
Location: Netherlands, Amstelveen

PostPosted: Wed May 29, 2013 12:42 pm
Reply with quote

You being IT Specialist at IBM Global Services should have all the resources at hand to find out.
Back to top
View user's profile Send private message
nevilh

Active User


Joined: 01 Sep 2006
Posts: 262

PostPosted: Wed May 29, 2013 5:01 pm
Reply with quote

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
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 704
Location: Whitby, ON, Canada

PostPosted: Wed May 29, 2013 5:33 pm
Reply with quote

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
View user's profile Send private message
Steve Coalbran

New User


Joined: 01 Feb 2007
Posts: 89
Location: Stockholm, Sweden

PostPosted: Wed May 29, 2013 5:51 pm
Reply with quote

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.

icon_lol.gif
Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 704
Location: Whitby, ON, Canada

PostPosted: Wed May 29, 2013 6:34 pm
Reply with quote

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
View user's profile Send private message
Steve Coalbran

New User


Joined: 01 Feb 2007
Posts: 89
Location: Stockholm, Sweden

PostPosted: Wed May 29, 2013 7:01 pm
Reply with quote

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!!! icon_rolleyes.gif
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! icon_sad.gif

/S
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10766
Location: italy

PostPosted: Wed May 29, 2013 7:22 pm
Reply with quote

Quote:
Then there's the REXX variables too!? I'd forgotten about those!


noo way to get them thru pure REXX

see here for my RXVARS external function ...

ibmmainframes.com/viewtopic.php?t=59657&highlight=rxvars
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1348
Location: Israel

PostPosted: Thu May 30, 2013 4:40 pm
Reply with quote

Steve Coalbran wrote:
Then there's the REXX variables too!? I'd forgotten about those! icon_sad.gif

It is always possible to run the REXX compiler and analyze the "Cross Reference Listing" in the SYSPRINT output.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10766
Location: italy

PostPosted: Thu May 30, 2013 5:25 pm
Reply with quote

Quote:
It is always possible to run the REXX compiler and analyze the "Cross Reference Listing" in the SYSPRINT output.


nope icon_cool.gif

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
View user's profile Send private message
Stefan

Active User


Joined: 12 Jan 2006
Posts: 110
Location: Germany

PostPosted: Fri May 31, 2013 2:21 pm
Reply with quote

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
View user's profile Send private message
Steve Coalbran

New User


Joined: 01 Feb 2007
Posts: 89
Location: Stockholm, Sweden

PostPosted: Wed Jun 05, 2013 2:58 pm
Reply with quote

Thanks Stefan.
Useful techniques
/S
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 -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts FILE STATUS - 39 ON VARIABLE LENGTH V... COBOL Programming 2
No new posts Unable to display comp variable COBOL Programming 4
No new posts IWS/TWS build dinamic or variable APp... IBM Tools 0
No new posts ISPF Panel commands DDLIST /LISTBOX TSO/ISPF 11
No new posts Am Getting a vertical line in ISPF SC... TSO/ISPF 3
Search our Forums:

Back to Top