Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 it is possible output a SET value fro... Martylin JCL & VSAM 5 Fri Sep 22, 2017 7:08 am
No new posts Fetch Previous month & year in MM... girishb2 DFSORT/ICETOOL 3 Thu Sep 21, 2017 9:54 pm
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 Need DB2 query to fetch previous row ! Chandan1993 DB2 10 Sat Jun 03, 2017 10:43 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us