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

Cannot change values of variables in ISPF Panels in COBOL


IBM Mainframe Forums -> TSO/ISPF
Post new topic   This topic is locked: you cannot edit posts or make replies.
View previous topic :: View next topic  
Author Message
warren

New User


Joined: 30 Aug 2006
Posts: 14
Location: Tampa, Florida

PostPosted: Thu Nov 23, 2006 2:03 am
Reply with quote

I am displaying panels from within a COBOL program. I VDEFINE all the variables before displaying the panel. No problem there.

But when I change the variable values in the program and re-display the screen the new values are not displayed- the old stay there.

My VDEFINES look like: CALL ISPLINK USING VDEF PVar XVar CHAR L5.,
where VDEF is defined in working-storage as "VEDFINE" etc.

My display looks like: CALL ISPLINK USING DISPL
PANEL-NAME
MESSAGE-FIELD
CURSOR-FIELD.,
where DISPL & PANEL-NAME are defined in working-storage.

I have tried VPUT & VREPLACE into the variable names but it doesn't help.
I also tried: CALL ISPLINK USING CONTR
DISPL
REFRESH
PANEL
MESSAGE-FIELD
CURSOR-FIELD.

Finally I went into the Panel definition itself in ISPPLIB and put a REFRESH of all the variables in )REINIT.

Nothing has worked. Does anyone know how to change the value of ISPF panel variables, defined in the working-storage of a COBOL program and displayed by that program?

Thanx!
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2358
Location: Israel

PostPosted: Thu Nov 23, 2006 12:09 pm
Reply with quote

I found Dialog Test (option 7 in your main menu) to be a powerfull tool in these cases. You can read more about it in the fine manual.

Also, invoking TSO ISPVCALL before and after the dialog might give you some hints.

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

New User


Joined: 30 Aug 2006
Posts: 14
Location: Tampa, Florida

PostPosted: Mon Nov 27, 2006 6:15 pm
Reply with quote

Yes, I was in Dialog Test for hours & hours, before posting the board. And I read thru several online manuals. I used 'executil ts' to do tracing, since I executed the COBOL program from within a small REXX EXEC. Your 'TSO ISPVCALL' provides an interesting audit trail.

But in Dialog Test or in using either trace, I still find no clue as to why I cannot change the Working-Storage variables that are displayed on the screen. Perhaps the fact that I execute the program from within REXX has something to do with it, I don't know.

The strange part of it is that the variables will display at their initial value in Working-Storage - the screen will not be blank when displayed. But then when I change the values of those variables, the old beginning values stay on the screen.
Back to top
View user's profile Send private message
warren

New User


Joined: 30 Aug 2006
Posts: 14
Location: Tampa, Florida

PostPosted: Wed Nov 29, 2006 8:36 pm
Reply with quote

I finally figured it out. How do I close this thread?
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Wed Nov 29, 2006 9:01 pm
Reply with quote

The best way is to press the Blue Button and notify the Forum Moderator. I'll take care of that for you.

Would you mind sharing, for everyone's benefit, what your solution was?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies. View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts INCLUDE OMIT COND for Multiple values... DFSORT/ICETOOL 5
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
No new posts Looking for a little history of ISPF ... TSO/ISPF 5
Search our Forums:

Back to Top