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

Panel is not being updated properly


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
kbmkris

Active User


Joined: 24 Jun 2006
Posts: 101

PostPosted: Mon Aug 27, 2007 11:49 am
Reply with quote

hi,

I created a panel and using REXX I executed the panel. after some time, i made changes to the panel, but while i am executing, the same is not updated in the panel displayed by REXX routine.


Code:

[u]Panel:[/u]

)ATTR                                                                   
_ TYPE(INPUT) INTENS(HIGH) JUST(LEFT) CAPS(ON)                         
% SKIP(ON) TYPE(TEXT) INTENS(HIGH)                                     
+ SKIP(ON) TYPE(TEXT) INTENS(LOW)                                       
)BODY                                                                   
+PANEL1-----------------------------------------------------------------
+                              %PERSONAL DETAILS                       
+                                                                       
+            ENTER THE NAME: %_Z%                                       
+            ENTER THE CITY: %_Z%                                       
+                                                                       
+            ENTER FEATURE1: %_Z%                                       
+            ENTER FEATURE2: %_Z%                                       
+                                                                       
+            DISPLAY : %&HI                                             
+                                                                       
)INIT                                                                   
  .ZVARS=(NAME,CITY,FEA1,FEA2)                                         
  &CITY='   '                                                           
)PROC                                                                   
   VER (&NAME,NONBLANK)                                                 
   VER (&CITY,NONBLANK)                                                 
   IF (&CITY = 'CAN')                                                   
      &HI = 'BALA'                                                     
)END                                                                   

[u]REXX:[/u]

/*REXX*/                                           
ADDRESS ISPEXEC                                   
"LIBDEF ISPPLIB DATASET ID('XYZ.MY.PANELS') STACK"
"DISPLAY PANEL(PANEL1)"                           


And please let me know how to set the length of the dialog variables. I can enter only 4 character to the maximum.

Thanks,
Bala
Back to top
View user's profile Send private message
saiprasadh

Active User


Joined: 20 Sep 2006
Posts: 154
Location: US

PostPosted: Mon Aug 27, 2007 12:35 pm
Reply with quote

Hi Bala,
I made some slight modification in your Panel definition and REXX code.I got the output

Code:
)ATTR                                                                   
_ TYPE(INPUT) INTENS(HIGH) JUST(LEFT) CAPS(ON) PAD(_)                   
% SKIP(ON) TYPE(TEXT) INTENS(HIGH)                                     
+ SKIP(ON) TYPE(TEXT) INTENS(LOW)                                       
@ TYPE(OUTPUT) COLOR(RED)    INTENS(HIGH) JUST(ASIS) CAPS(OFF)         
)BODY                                                                   
+PANEL1-----------------------------------------------------------------
+                              %PERSONAL DETAILS                       
+                                                                       
+            ENTER THE NAME: %_Z%                                       
+            ENTER THE CITY: %_Z%                                       
+                                                                       
+            ENTER FEATURE1: %_Z%                                       
+            ENTER FEATURE2: %_Z%                                       
+                                                                       
+            DISPLAY : %@HI                                             
+                                                                       
 )INIT                                 
   .ZVARS=(NAME,CITY,FEA1,FEA2)       
   &CITY='   '                         
 )PROC                                 
    VER (&NAME,NB)                     
    VER (&CITY,NB)                     
    IF (&CITY = 'CAN')                 
       &HI = 'BALA'                   
 )END                                 

 /*REXX*/                                                   
 ADDRESS ISPEXEC                                             
 "LIBDEF ISPPLIB DATASET ID(''XYZ.MY.PANELS') STACK"
 "DISPLAY PANEL(PANEL1)"                                         
 SAY 'HI' HI                                                 
 "DISPLAY PANEL(PANEL1)"               


Input

Code:
PANEL1-----------------------------------------------------------------
                                PERSONAL DETAILS                         
                                                                         
             ENTER THE NAME:   sai_                                     
             ENTER THE CITY:   can_                                     
                                                                         
             ENTER FEATURE1:   fea1                                     
             ENTER FEATURE2:   fea2                                     
                                                                         
             DISPLAY :                         



Output

Code:
PANEL1-----------------------------------------------------------------       
                                PERSONAL DETAILS                               
                                                                               
             ENTER THE NAME:   SAI_                                             
             ENTER THE CITY:   ____                                             
                                                                               
             ENTER FEATURE1:   FEA1                                             
             ENTER FEATURE2:   FEA2                                             
                                                                               
             DISPLAY :   BALA                                                   
                                                     

Correct Me if i am wrong

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

Global Moderator


Joined: 27 Dec 2005
Posts: 2358
Location: Israel

PostPosted: Mon Aug 27, 2007 2:21 pm
Reply with quote

This is a quote from the fine manual:
Quote:
Panel and message definitions are fetched again from the panel and message files when a panel name or message ID is specified in an ISPF service. In normal mode, the most recently accessed panel definitions are retained in virtual storage. If you have modified the panel or message file, use of TEST mode ensures that the latest version of each panel or message is accessed during a test run.


So, in order to see the newer version of your panel, you must first invoke it in TEST mode (option 7.2 from my main menu).

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

Senior Member


Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India

PostPosted: Mon Aug 27, 2007 4:02 pm
Reply with quote

I had faced the same problem once while updating the panel.

I used to logoff from the session and execute the REXX exec again after logging in. It used to work. Also the expl given by offer makes sense.
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2358
Location: Israel

PostPosted: Mon Aug 27, 2007 11:36 pm
Reply with quote

Aaru -

This is not a "problem". This is the exact way that ISPF designers wanted it to work.

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

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Aug 28, 2007 12:06 am
Reply with quote

It is only a 'problem' for those who do not read the documentation.
Back to top
View user's profile Send private message
jz1b0c

Active User


Joined: 25 Jan 2004
Posts: 160
Location: Toronto, Canada

PostPosted: Tue Aug 28, 2007 2:02 am
Reply with quote

kbmkris,

One solution is exit from all the panels and delete " Log Data Set"

you get something like this when you exit from all the panels
type 2 here and then under ready type ispf... this will perform refresh

Process Option . . . . 1. Print data set and delete
2. Delete data set without printing
3. Keep data set - Same
(allocate same data set in next session)
4. Keep data set - New
(allocate new data set in next session)
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2358
Location: Israel

PostPosted: Tue Aug 28, 2007 3:40 pm
Reply with quote

jz1b0c -
Quote:
you get something like this when you exit from all the panels
type 2 here and then under ready type ispf... this will perform refresh

This not a refresh. This is simply logging off ISPF and logging on back to ISPF.

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

Active User


Joined: 25 Jan 2004
Posts: 160
Location: Toronto, Canada

PostPosted: Tue Aug 28, 2007 7:35 pm
Reply with quote

yeah that's right..
but you dont need to enter the userid and password for TSO
its not a recommended one but for a newbee, it would help
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
No new posts Call program, directly from panel CLIST & REXX 9
No new posts panel creation question TSO/ISPF 12
No new posts Panel variable model line TSO/ISPF 3
No new posts REXX table content on panel will be r... CLIST & REXX 6
Search our Forums:

Back to Top