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
 

 

Panel is not being updated properly

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
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    Post subject: Panel is not being updated properly
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    Post subject:
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: 2360
Location: Israel

PostPosted: Mon Aug 27, 2007 2:21 pm    Post subject:
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: 1288
Location: Chennai, India

PostPosted: Mon Aug 27, 2007 4:02 pm    Post subject: Reply to: Panel is not being updated properly
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: 2360
Location: Israel

PostPosted: Mon Aug 27, 2007 11:36 pm    Post subject:
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: 6968
Location: porcelain throne

PostPosted: Tue Aug 28, 2007 12:06 am    Post subject:
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    Post subject:
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: 2360
Location: Israel

PostPosted: Tue Aug 28, 2007 3:40 pm    Post subject:
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    Post subject:
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    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 Trace in CLIST PANEL cvnlynn CLIST & REXX 1 Thu Jun 22, 2017 11:06 pm
No new posts SCLM -- not installed -- panel ISRNOSLM dmitchell1105 IBM Tools 3 Fri Jun 09, 2017 10:41 pm
No new posts ISPF - How to come out of ISPF Panel parasmalik20 TSO/ISPF 5 Tue Feb 21, 2017 7:44 pm
No new posts the use of 'B3'x character in a panel Pedro TSO/ISPF 1 Thu Feb 16, 2017 3:09 am
No new posts Design of ISPF panel prino TSO/ISPF 2 Wed Jan 25, 2017 10:31 pm


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