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

Display long message without pressing HELP key on panels


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

New User


Joined: 22 Mar 2007
Posts: 57
Location: India

PostPosted: Mon Jan 05, 2009 8:55 pm
Reply with quote

Hi,

In a PANEL i have coded PROC as -
Code:
)PROC                                                           
  .ZVARS = '(PTKT POCC PSYS PRDT PSTS PREV PASS PETC PPRT PDES)'
  &TPFKEY = .PFKEY                                             
  IF  (VER(&PSYS,LIST,CS,RS,*))                                 
  ELSE                                                                                 
      .MSG = MSG001                                             
  EXIT                                                         
)END                                                           


to verify the value of variable "PSYS" to be CS/RS/*

Message library has member MSG00 coded as -
Code:
MSG001  'INVALID VALUE' .ALARM=YES                                     
'ENTER VALUE AS CS/RS/*'                                               


The short message is displayed for any invalid value in field "PSYS" and long message is displayed on pressing the F1 function key.

I want the long message to be displayed on screen when an invalid value is entered without pressing any funtion key as the short message is displayed.
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Mon Jan 05, 2009 10:06 pm
Reply with quote

1. Use the GETMSG service to get the message text into a variable.

2. Add the variable name to your panel.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Mon Jan 05, 2009 10:24 pm
Reply with quote

Leave the short message empty. The long message will be immediatly displayed.
Back to top
View user's profile Send private message
Deepakgoyal2005

New User


Joined: 22 Mar 2007
Posts: 57
Location: India

PostPosted: Tue Jan 06, 2009 9:29 am
Reply with quote

Thanks Marso and Pedro for your inputs.
Deleting short description solved my problem.
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
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 Ca7 long running jobs report All Other Mainframe Topics 1
No new posts dsnrexx fails without error message CLIST & REXX 9
No new posts How to display the leading zeros of a... DB2 7
Search our Forums:

Back to Top