IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Display Message in the same Panel


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
HameedAli

Active User


Joined: 16 Apr 2009
Posts: 151
Location: India

PostPosted: Mon Jun 21, 2010 7:32 pm
Reply with quote

Hi,
This is a panel of mine.
Code:
)ATTR                                                     
 _ TYPE(NEF) CAPS(ON)                                     
 £ TYPE(TEXT)   COLOR(BLUE)   INTENS(HIGH)               
 ¢ TYPE(TEXT)   COLOR(YELLOW) INTENS(HIGH)               
 + TYPE(TEXT)   COLOR(GREEN)  INTENS(HIGH)               
 # TYPE(TEXT)   COLOR(YELLOW) INTENS(HIGH) HILITE(REVERSE)
 @ TYPE(OUTPUT) COLOR(YELLOW) INTENS(HIGH) HILITE(USCORE)
)body window(47,22)                                       
£                                                               
+                                            +           
+  Programmer Name: _Pnam    +                           
+  EMP     Number : _Snam +                               
+                                             
¢               Press Enter to Proceed       
£                                            £
)init                                         
)proc                                                                           
)end 

I want to validate the input fields from the Panel.
If the field is empty, I want throw a message in the Panel.
I don't want to throw the message as another panel using ZEDlMSG.

Somethin like this
Code:
if(&Pnam EQ '') | (&Snam EQ '')

Then what I have to use to display the message
Back to top
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Mon Jun 21, 2010 7:58 pm
Reply with quote

Whatever program (COBOL, REXX, etc.) is doing the panel DISPLAY will need to validate fields on the return and fill another field with a message and re-DISPLAY the panel.

This would be instead of using the VER function within the panel.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Mon Jun 21, 2010 8:22 pm
Reply with quote

The VER statement will automatically return a meaningful error message if the verified field is blank and the VER statement says that it should not be.
Back to top
View user's profile Send private message
HameedAli

Active User


Joined: 16 Apr 2009
Posts: 151
Location: India

PostPosted: Thu Jun 24, 2010 1:09 pm
Reply with quote

Thanks for the information. What if I have to throw custom messages on the panel?
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Thu Jun 24, 2010 1:14 pm
Reply with quote

There is a sticky topic in the CLIST / REXX forum for reference materials.

Click on the ISPF link and all of the manuals you need will be displayed.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley

PostPosted: Thu Jun 24, 2010 7:27 pm
Reply with quote

Quote:
What if I have to throw custom messages on the panel?

Please read the ISPF Dialog Developer's Guide and Reference. Read the section for the VER statement.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Thu Jun 24, 2010 9:09 pm
Reply with quote

Just as you have an ISPPLIB for panels and an ISPSLIB for skeletons, you have an ISPMLIB for messages.

There is a chapter dedicated to "Defining messages" in the ISPF Dialog Developer's Guide and Reference.
Back to top
View user's profile Send private message
HameedAli

Active User


Joined: 16 Apr 2009
Posts: 151
Location: India

PostPosted: Tue Jun 29, 2010 11:17 am
Reply with quote

Thanks Marso for mentioning the heading, which will be of ease to me.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
This topic is locked: you cannot edit posts or make replies. how can I proof that message was post... Java & MQSeries 1
No new posts IMS Message : DFS3577A IMS DB/DC 4
No new posts Call program, directly from panel CLIST & REXX 9
No new posts dsnrexx fails without error message CLIST & REXX 9
Search our Forums:

Back to Top