MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Profile variables not being stored

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
sabarish
Beginner


Joined: 13 Sep 2006
Posts: 7
Topics: 1

PostPosted: Thu Sep 14, 2006 1:43 am    Post subject: Profile variables not being stored Reply with quote

Hi

I am trying to put some Z variables using the VPUT service , but the values are not being stored .I am able to see the variables but not their values.

Like the panel used in ISPF is as follows:


!Employee Name .... _Z +
!Employee Dept ...... _Z +
!Employee Salary ...._Z +


)INIT
.ZVARS = '(MNAME,MDEP,MSAL)'

)PROC
VPUT ( MNAME MDEP MSAL) PROFILE
)END


In the ispf profile dataset ,there are entries for MNAME,MDEP and MSAL , but values are not stored for these entries which i enter through the above panel.Can anybody help?

Thanks
Sabarish
Back to top
View user's profile Send private message
ofer71
Intermediate


Joined: 12 Feb 2003
Posts: 358
Topics: 4
Location: Israel

PostPosted: Thu Sep 14, 2006 2:16 am    Post subject: Reply with quote

Can you show us the )ATTR section?

O.
________
Toyota T engine specifications


Last edited by ofer71 on Sat Feb 05, 2011 11:48 am; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail
sabarish
Beginner


Joined: 13 Sep 2006
Posts: 7
Topics: 1

PostPosted: Thu Sep 14, 2006 3:54 am    Post subject: Reply with quote

Hi
The )ATTR section is as follows:
Code:

! TYPE(TEXT)  INTENS(HIGH) COLOR(GREEN)
#TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW)
`TYPE(OUTPUT) INTENS(HIGH) COLOR(GREEN) CAPS(OFF)
@TYPE(OUTPUT) INTENS(HIGH) COLOR(RED) CAPS(OFF)
~TYPE(OUTPUT) INTENS(HIGH) COLOR(YELLOW)
$TYPE(TEXT) INTENS(HIGH)

THANKS
SABARISH
Back to top
View user's profile Send private message
ofer71
Intermediate


Joined: 12 Feb 2003
Posts: 358
Topics: 4
Location: Israel

PostPosted: Thu Sep 14, 2006 5:16 am    Post subject: Reply with quote

Where is the inderscore that used in your )BODY ? I can't see any INPUT attribute in your )ATTR...

O.
________
Mercedes-Benz OM617 engine


Last edited by ofer71 on Sat Feb 05, 2011 11:48 am; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail
sabarish
Beginner


Joined: 13 Sep 2006
Posts: 7
Topics: 1

PostPosted: Thu Sep 14, 2006 5:43 am    Post subject: Reply with quote

I am trying the ISPF program first time.so i was working based on another code.In that there is no INPUT attribute used and that is working fine.

Thanks
Sabarish
Back to top
View user's profile Send private message
ofer71
Intermediate


Joined: 12 Feb 2003
Posts: 358
Topics: 4
Location: Israel

PostPosted: Thu Sep 14, 2006 5:57 am    Post subject: Reply with quote

If you want your data to be kept, you probably need to define it first as input. For this you must use the INPUT attribute.
To read more about panel attributes, please refer to the fine manual.

O.
________
buy roor bongs


Last edited by ofer71 on Sat Feb 05, 2011 11:49 am; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail
Mervyn
Moderator


Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England

PostPosted: Thu Sep 14, 2006 8:51 am    Post subject: Reply with quote

Please note this quotation from the fine manual:

Quote:

If not specified explicitly with the DEFAULT keyword, the default attribute characters are:



% (percent sign) -- text (protected) field, high intensity
+ (plus sign) -- text (protected) field, low intensity
_ (underscore) -- input (unprotected) field, high intensity



If the )ATTR statement doesn't specify a new default, then underscore is a valid input attribute, and values entered should be stored in the profile pool.

Can you show the whole panel?
_________________
The day you stop learning the dinosaur becomes extinct
Back to top
View user's profile Send private message
sabarish
Beginner


Joined: 13 Sep 2006
Posts: 7
Topics: 1

PostPosted: Fri Sep 15, 2006 3:43 am    Post subject: Reply with quote

Hi Mervyn

Thanks for the details.I am pasting the entire panel for you below:
Code:

)PANEL KEYLIST(ISRSAB,ISR)
)ATTR
! TYPE(TEXT)  INTENS(HIGH) COLOR(GREEN)
#TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW)
`TYPE(OUTPUT) INTENS(HIGH) COLOR(GREEN) CAPS(OFF)
@TYPE(OUTPUT) INTENS(HIGH) COLOR(RED) CAPS(OFF)
~TYPE(OUTPUT) INTENS(HIGH) COLOR(YELLOW)
$TYPE(TEXT) INTENS(HIGH)
)BODY
                                    $****#Employee Entry Screen***$
+
+
+
!Employee Name . . . . _Z                        +
!Employee Dept  . . . . _Z                       +




  To exit the application press F3
)INIT
.ZVARS = '(MNAME MDEP)'
)PROC
VER(&MNAME,nb)
VER(&MDEP,nb)
vput( MNAME MDEP) profile
 .CURSOR = MNAME
)END


Thanks
Sabarish
Back to top
View user's profile Send private message
semigeezer
Supermod


Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis

PostPosted: Fri Sep 15, 2006 10:46 am    Post subject: Reply with quote

Something else is going on here. How do you know that the variables are not being saved? Did you check option 7.3 to see if they are there? Are you starting the program from the same appliation id each time? Make sure that you are not displaying the panel with CONTROL ERRORS RETURN so that you will see errors. Also be sure that your program is not initializing them before the panel is displayed. I think you can do an explicit VGET in the INIT section but tha may not be true.
Back to top
View user's profile Send private message Visit poster's website
sabarish
Beginner


Joined: 13 Sep 2006
Posts: 7
Topics: 1

PostPosted: Mon Sep 18, 2006 4:16 am    Post subject: Reply with quote

Thanks semigeezer. I checked in 7.3 option also. The variables are not being saved.Not using CONTROL ERRORS RETURN also.Not intializing before the panel.I had also tried using VGET in INIT section but that also not working.

Can you help me?
Back to top
View user's profile Send private message
Mervyn
Moderator


Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England

PostPosted: Mon Sep 18, 2006 10:20 am    Post subject: Reply with quote

Sabarish,

How are you invoking the panel and reading the variables? Are you using NEWAPPL? If so, try without it.
_________________
The day you stop learning the dinosaur becomes extinct
Back to top
View user's profile Send private message
sabarish
Beginner


Joined: 13 Sep 2006
Posts: 7
Topics: 1

PostPosted: Tue Sep 19, 2006 1:19 am    Post subject: Reply with quote

Hi Mervyn
Thanks for the suggestion. I am not using NEWAPPL. I am invoking the panel as follows:

'ISPEXEC LIBDEF SYSEXEC DATASET ID('''MYEXEC''')'
'ISPEXEC LIBDEF ISPPLIB DATASET ID('''MYEXEC''')'
'ISPEXEC DISPLAY PANEL(TEST)'

Thanks
Sabarish
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group