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
 

 

Refreshing/Clearing the previous panel

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Sathish Gurumoorthy

New User


Joined: 12 Feb 2009
Posts: 33
Location: Chennai, India

PostPosted: Tue Mar 24, 2009 12:13 pm    Post subject: Refreshing/Clearing the previous panel
Reply with quote

I display some series of panels based on the input from the user. If i am in panel 2 and when i give F3 to display panel 1, it displays the input given by user earlier in panel 1. Also, the cursor goes to ZCMD position.
Here is my rexx and panel code

REXX code:
Code:
/* REXX */                                                 
"ISPEXEC LIBDEF ISPPLIB DATASET ID('TMS047.JCPDIMS.REXX')"
"ISPEXEC LIBDEF ISPMLIB DATASET ID('TMS047.JCPDIMS.REXX')"
/*"ISPEXEC ADDPOP" */                                     
/*"ISPEXEC SETMSG MSG(PLMSG002)"*/                         
                                                           
CALL DISPLAY_PRIMARY_PANEL                                 
                                                           
/************ CALLING TO DISPLAY PRIMARY PANEL ***********/
                                                           
DISPLAY_PRIMARY_PANEL:                                     
"ISPEXEC DISPLAY PANEL(MAINPAN)"                           
                                                           
/*"ISPEXEC REMPOP"*/                                       
/*"ISPEXEC LIBDEF ISPPLIB"*/                               
IF PKEY = 'PF03' THEN                                     
   EXIT                                                   
IF CHOICE1 = 1 THEN                                       
DO                                                             
   CALL DISPLAY_TSO_PANEL                                       
END                                                             
                                                               
/************ CALLING TO DISPLAY TSO UTILITIES PANEL **********/
DISPLAY_TSO_PANEL:                                             
"ISPEXEC DISPLAY PANEL(TSOPAN)"                                 
                                                               
IF PKEY = 'PF03' THEN                                           
DO                                                             
   CALL DISPLAY_PRIMARY_PANEL                                   
END                                                             
IF CHOTSO = 1 THEN                                             
DO                                                             
   CALL DISPLAY_CREATE_PDS_PANEL                               
END                                                             
IF CHOTSO = 2 THEN                                             
DO                                                             
   CALL DISPLAY_COPY_PS_PANEL                                   
END



MAINPAN:

Code:
)PANEL KEYLIST(ISRSPEC)                                       
)ATTR                                                         
 ! TYPE(TEXT) INTENS(HIGH)                                   
 # TYPE(TEXT) COLOR(red)                                     
 @ TYPE(TEXT) INTENS(LOW)                                     
 $ TYPE(INPUT) COLOR(TURQ) CAPS(ON) PAD('_')                 
 % TYPE(INPUT) COLOR(TURQ) CAPS(ON) HILITE(USCORE)           
 ¬ TYPE(OUTPUT) COLOR(PINK) SKIP(ON)                         
)BODY                                                         
                                                             
!  COMMAND ==>%ZCMD                                           
                                                             
#                        all in one utility                   
!                        ------------------                   
                                                             
@  please select your choice :$z+                             
@                                                             
@           1.  TSO UTILITIES          3.  IMS DATABASE       
@                                               
@           2.  JCL                    4.  DB2   
                                                 
@  Message       :¬MSG                           
                                                 
@  PF1=Help       PF3=Exit       ENTER=PROCESS   
                                                 
)INIT                                           
.ZVARS='(CHOICE1)'                               
.HELP=HELPJOB                                   
)REINIT                                         
&CHOICE1=' '                                     
.CURSOR=&CHOICE1                                 
REFRESH (CHOICE1)                               
)PROC                                           
&PKEY = .PFKEY                                   
VER(&CHOICE1,NB,RANGE,1,4)                       
)END                                             


i tried assigning a blank to that variable and placed cursor to variable CHOICE1. but while redisplaying the panel, the cursor is positioning at ZCMD.
I want the panel to be cleared/refreshed while redisplaying again, and also to place the cursor at CHOICE1.
Please help.
Back to top
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Tue Mar 24, 2009 12:32 pm    Post subject:
Reply with quote

Read the chapter about )REINIT in the fine manual. Pay attention to REFRESH.

Regarding cursor placement - You can use the control variable .CURSOR.
Also, you can rename ZCMD, as ISPF looks for this field name.

O.
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 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
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 Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am


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