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
 
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
No new posts Subtract the ZD fields to provide neg... Balaryan DFSORT/ICETOOL 4 Wed Oct 11, 2017 10:51 pm
No new posts Addition of two records on 2 fields amar143 SYNCSORT 8 Tue Oct 03, 2017 11:14 am
No new posts MQ command in option 6 of ISPF! Vignesh Sid All Other Mainframe Topics 3 Tue Sep 26, 2017 6:01 pm
No new posts Conditional highlighting of rows in I... packerm CLIST & REXX 2 Thu Sep 21, 2017 6:50 pm
No new posts Creating ISPF Screens with Scrname vi... Albireo20 TSO/ISPF 9 Tue Sep 05, 2017 4:24 pm

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