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
 

 

Cannot change values of variables in ISPF Panels in COBOL

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
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    Post subject: Cannot change values of variables in ISPF Panels in COBOL
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: 2360
Location: Israel

PostPosted: Thu Nov 23, 2006 12:09 pm    Post subject:
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    Post subject: Re: Cannot change values of variables in ISPF Panels in COBO
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    Post subject:
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

Moderator Team Head


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

PostPosted: Wed Nov 29, 2006 9:01 pm    Post subject: Re: Cannot change values of variables in ISPF Panels in COBO
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.    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 Executing OO COBOL program invoking J... Virendra Shambharkar COBOL Programming 2 Tue Jan 10, 2017 6:37 pm
No new posts OO COBOL compile error Virendra Shambharkar COBOL Programming 3 Tue Jan 10, 2017 6:05 pm
No new posts Need Suggestion on COBOL program vickey_dw COBOL Programming 5 Thu Jan 05, 2017 10:55 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts SQL query to run through list of valu... Ni3-db2 DB2 14 Wed Dec 14, 2016 9:52 am


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