Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
How to retain data on ispf panel between different sessions?
Goto page 1, 2  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
Author Message
Ekta Sharma

New User


Joined: 26 Feb 2008
Posts: 32
Location: pune

PostPosted: Tue Jul 22, 2008 3:34 pm    Post subject: How to retain data on ispf panel between different sessions?
Reply with quote

I need to retain data on ISPF panel between different TSO sessions. Currently the data is lost once I logoff from TSO. I am using VPUT & VGET with PROFILE, still the data is not retained.

I have used VPUT in )PROC section of the panel definition and VGET in the program that invokes the panel. Both are used with PROFILE.
Back to top
View user's profile Send private message
References
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 1930
Location: Israel

PostPosted: Tue Jul 22, 2008 4:21 pm    Post subject:
Reply with quote

Do you have VERASE anywhere?

O.
Back to top
View user's profile Send private message
Ekta Sharma

New User


Joined: 26 Feb 2008
Posts: 32
Location: pune

PostPosted: Tue Jul 22, 2008 4:39 pm    Post subject:
Reply with quote

No
Back to top
View user's profile Send private message
premkrishnan

Active User


Joined: 07 Sep 2006
Posts: 63
Location: Mars

PostPosted: Tue Jul 22, 2008 8:33 pm    Post subject:
Reply with quote

Ekta,

Can you please post your panel definition?
So that it can help me and others for a quick correction

Regds,
Prem
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 504
Location: work

PostPosted: Tue Jul 22, 2008 9:30 pm    Post subject: Reply to: How to retain data on ispf panel between different
Reply with quote

Your ISPPROF ddname needs to be allocated to a permanent dataset.
Back to top
View user's profile Send private message
Moved: Tue Jul 22, 2008 9:31 pm by superk From CLIST & REXX to TSO/ISPF
Ekta Sharma

New User


Joined: 26 Feb 2008
Posts: 32
Location: pune

PostPosted: Fri Jul 25, 2008 11:14 am    Post subject: Reply to: How to retain data on ispf panel between different
Reply with quote

Plz check the panel definition in the attachment.

Apart from this, I have even tried using VGET in the REXX pgm for invoking the panel.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 3507
Location: Brussels once more ...

PostPosted: Fri Jul 25, 2008 11:43 am    Post subject:
Reply with quote

Please DO NOT post attachments as not everybody can access them, Me for one.

This severely limits the number of people able to read your problem and help resolve it.
Back to top
View user's profile Send private message
Ekta Sharma

New User


Joined: 26 Feb 2008
Posts: 32
Location: pune

PostPosted: Fri Jul 25, 2008 11:53 am    Post subject:
Reply with quote

Here is the panel definition.

)PANEL KEYLIST(ISRSAB)
)ATTR FORMAT(MIX)
_ TYPE(INPUT) INTENS(HIGH) CAPS(ON)
)BODY
+
+ PDS LIST
+ ********
+
+ 1._DS1 +
+ 2._DS2 +
+ 3._DS3 +
)INIT
.CURSOR = ZCMD
&ZMCD = &Z
)PROC
VGET (DS1 DS2 DS3) PROFILE
VPUT (DS1 DS2 DS3) PROFILE
)END
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 3507
Location: Brussels once more ...

PostPosted: Fri Jul 25, 2008 12:14 pm    Post subject:
Reply with quote

Mmmmmmmmmmm, I usually load values for panels before doing the display, and save them afterwards.

You seem to have your VGET in the )PROC section - should this not be part of the )INIT section ?
Back to top
View user's profile Send private message
Ekta Sharma

New User


Joined: 26 Feb 2008
Posts: 32
Location: pune

PostPosted: Fri Jul 25, 2008 1:12 pm    Post subject:
Reply with quote

I have tried that too. Infact, initially I had not put any VGET statement in the panel code. I had added VGET statement in my REXX code which is used for invoking the panel. It was as:
ISPEXEC "VGET (DS1 DS2 DS3) PROFILE"
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 3507
Location: Brussels once more ...

PostPosted: Fri Jul 25, 2008 1:16 pm    Post subject:
Reply with quote

Was the VGET retrieving the correct values for the variables when executed prior to display ?
Back to top
View user's profile Send private message
Ekta Sharma

New User


Joined: 26 Feb 2008
Posts: 32
Location: pune

PostPosted: Fri Jul 25, 2008 1:33 pm    Post subject:
Reply with quote

VGET is retrieving the correct values till the current TSO session is active. Once I logoff from TSO, the values are lost.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 3507
Location: Brussels once more ...

PostPosted: Fri Jul 25, 2008 1:47 pm    Post subject:
Reply with quote

I have just stored 4 variables in PROFILE, logged off, logged on again and retrieved the variables, and they all have the correct values.

Code:

"ISPEXEC VGET (TVR01 TVR02 TVR03 TVR04) PROFILE"
SAY  TVR01 TVR02 TVR03 TVR04
Back to top
View user's profile Send private message
Ekta Sharma

New User


Joined: 26 Feb 2008
Posts: 32
Location: pune

PostPosted: Fri Jul 25, 2008 2:29 pm    Post subject:
Reply with quote

I have used the command as:
ISPEXEC "VGET (DS1 DS2 DS3) PROFILE"
"ISPEXEC DISPLAY PANEL(PANEL2)"

i.e. VGET just before the panel display statement and VPUT in the panel definition:
)PROC
VPUT (DS1 DS2 DS3) PROFILE

But when I logoff from TSO and login back, the data is not displayed on the panel. Is there any specific command to display the data back on the panel once it is retrieved?
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 648

PostPosted: Fri Jul 25, 2008 2:33 pm    Post subject:
Reply with quote

Hi,

when I use VGET and VPUT in a panel this is what I use and seems to work for me
Code:
)INIT                       
  VGET (MEMBER)             
)PROC                       
  VPUT (MEMBER) PROFILE     



Gerry
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 HoursGoto page 1, 2  Next
Page 1 of 2