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
 

 

ISPF Panels how to reset the fields

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

Senior Member


Joined: 29 Jul 2008
Posts: 1013
Location: India

PostPosted: Sat Jun 12, 2010 3:11 am    Post subject: ISPF Panels how to reset the fields
Reply with quote

Hi,

I am trying to learn ISPF panels, i created a panel and fields in the panel are getting values from somewhere i don't know where. Now i need to clear those values when the panel is opened.

Panel code
Code:
)ATTR DEFAULT(%+_)                                   
  $ TYPE(INPUT) INTENS(LOW) PAD(_) CAPS(OFF)         
  ! TYPE(INPUT) INTENS(LOW) PAD(' ') CAPS(OFF)       
  ` TYPE(OUTPUT) INTENS(HIGH)                       
)BODY EXPAND(//) WIDTH(80)                           
%/-/ DB2 DATABASE STATUS CHECKS TEST 1 /-/+         
%COMMAND ===>_ZCMD                                   
+                                                   
+SSID    %=>_SSID  +DATABASE    %=>_DB             +
+                                                   
+ENTER%CLR+TO CLEAR ALL FIELDS OR%END+TO EXIT.       
)MODEL CLEAR(SSID,DB)                               
)INIT                                               
)PROC                                               
  VER (&SSID,NB,PICT,'AANA')                         
)END                               


rexx code
Code:
/* REXX */                                                     
"ISPEXEC LIBDEF ISPPLIB DATASET ID('HXSULL.PANEL')"           
"ISPEXEC DISPLAY PANEL(TEST1)"


Output:
Code:
---------------------- DB2 DATABASE STATUS CHECKS TEST 1 ---------------------
COMMAND ===>                                                                 
                                                                             
SSID     => HELLO  DATABASE     =>                                           
                                                                             
ENTER CLR TO CLEAR ALL FIELDS OR END TO EXIT.                                 


"HELLO" is the value, i am talking about.

Can you tell me how to reset those fields.

Thank You,
Sushanth
Back to top
View user's profile Send private message

sushanth bobby

Senior Member


Joined: 29 Jul 2008
Posts: 1013
Location: India

PostPosted: Sat Jun 12, 2010 3:32 am    Post subject:
Reply with quote

Hi,

i tried to initialize values like below,

Code:
SSID = '    '         
DB ='        '     

before calling the panel.

it worked!

Thanks,
Sushanth
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
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 Syncsort Help to group fields sudhakarraju SYNCSORT 6 Thu Dec 29, 2016 1:38 am
No new posts Access SQLCA fields inside a stored p... gangapd DB2 4 Thu Oct 27, 2016 10:20 am
No new posts ISPF program to set SCRNAME prino TSO/ISPF 5 Fri Sep 30, 2016 2:18 pm
No new posts I am unable to use SWAPBAR ON command... mrsidhu12 TSO/ISPF 3 Thu Sep 01, 2016 1:10 pm


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