Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

ISPF Variable Pools

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Steve Coalbran

New User


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

PostPosted: Wed May 29, 2013 12:37 pm    Post subject: ISPF Variable Pools
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: 2422
Location: Netherlands, Amstelveen

PostPosted: Wed May 29, 2013 12:42 pm    Post subject:
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: 258

PostPosted: Wed May 29, 2013 5:01 pm    Post subject:
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: 641
Location: Whitby, ON, Canada

PostPosted: Wed May 29, 2013 5:33 pm    Post subject:
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: 85
Location: Stockholm, Sweden

PostPosted: Wed May 29, 2013 5:51 pm    Post subject:
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: 641
Location: Whitby, ON, Canada

PostPosted: Wed May 29, 2013 6:34 pm    Post subject:
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: 85
Location: Stockholm, Sweden

PostPosted: Wed May 29, 2013 7:01 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Wed May 29, 2013 7:22 pm    Post subject: Reply to: ISPF Variable Pools
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 ...

http://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: 1219
Location: Israel

PostPosted: Thu May 30, 2013 4:40 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Thu May 30, 2013 5:25 pm    Post subject: Reply to: ISPF Variable Pools
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    Post subject:
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: 85
Location: Stockholm, Sweden

PostPosted: Wed Jun 05, 2013 2:58 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts ISPF program to set SCRNAME prino TSO/ISPF 5 Fri Sep 30, 2016 2:18 pm
No new posts Format to pipe delimited with variabl... pshongal SYNCSORT 6 Wed Sep 14, 2016 2:48 pm
No new posts I am unable to use SWAPBAR ON command... mrsidhu12 TSO/ISPF 3 Thu Sep 01, 2016 1:10 pm
No new posts Variable for cursor names ravikumar15 DB2 5 Sun Jul 17, 2016 7:08 am
No new posts ISPF Tables Creation newsysprg TSO/ISPF 6 Wed Jul 13, 2016 2:21 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us