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
 

 

Display user defined Error message in Panel

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

New User


Joined: 13 May 2008
Posts: 43
Location: Chennai

PostPosted: Tue May 01, 2012 9:50 pm    Post subject: Display user defined Error message in Panel
Reply with quote

Hi,

My requirement is to get a 4 digit fund number as input in a ISPF screen. I am validating and throwing error message on the screen. Please find below the screen.

Code:

)ATTR                                                               
 ~ TYPE(TEXT)   INTENS(HIGH) COLOR(BLUE)                             
 _ TYPE(INPUT)  INTENS(LOW)  COLOR(RED)    CAPS(ON)                 
 % TYPE(TEXT)   INTENS(HIGH) COLOR(WHITE)  SKIP(ON)                 
 ` TYPE(OUTPUT) INTENS(HIGH) COLOR(YELLOW) CAPS(ON)                 
)BODY                                                               
~                                                                   
~                                                                   
~                         FUND NUMBER LOOK UP                       
~                                                                   
%                                                                   
%   ENTER THE FUND NUMBER: _R1  +                                   
%                                                                   
% MSG: `MSG1                                                      + 
%                                                                   
)INIT                                                               
 &MSG1 = 'PLEASE ENTER A FUND NUMBER'                               
)PROC                                                               
 VER(&R1,NB,MSG=MSG001)                                                 
 VER(&R1,PICT,NNNN,MSG=MSG002)                                         
)END                                                                   



Is it possible to display the user defined message MSG001 / MSG002 in MSG field of the ISPF screen?
Back to top
View user's profile Send private message

Pedro

Senior Member


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

PostPosted: Tue May 01, 2012 9:55 pm    Post subject: Reply to: Display user defined Error message in Panel
Reply with quote

Read about the )BODY statement.
Back to top
View user's profile Send private message
srajendran2

New User


Joined: 13 May 2008
Posts: 43
Location: Chennai

PostPosted: Tue May 01, 2012 10:24 pm    Post subject:
Reply with quote

Hi,

I updated the BODY as below.

Code:

)BODY LMSG(MSG) SMSG(MSG)                                           
~                                                                   
~                                                                   
~                         FUND NUMBER LOOK UP                       
~                                                                   
%                                                                   
%   ENTER THE FUND NUMBER: _R1  +                                   
%                                                                   
% MSG:`                                                        +
%                                                                   


But still the messages are not getting displayed in MSG field. Am i doing something wrong?
Back to top
View user's profile Send private message
srajendran2

New User


Joined: 13 May 2008
Posts: 43
Location: Chennai

PostPosted: Tue May 01, 2012 10:31 pm    Post subject:
Reply with quote

i am sorry. the code looks like this. please ignore the previous one

Code:

)BODY LMSG(MSG1) SMSG(MSG1)                                         
~                                                                   
~                                                                   
~                         FUND NUMBER LOOK UP                       
~                                                                   
%                                                                   
%   ENTER THE FUND NUMBER: _R1  +                                   
%                                                                   
% MSG:`MSG1                                                        +
%                                                                   
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1746
Location: Bloomington, IL

PostPosted: Tue May 01, 2012 10:36 pm    Post subject:
Reply with quote

Is the message library LIBDEFed to ISPMLIB? Does it in fact contain a member for MSG001 and MSG002?
Back to top
View user's profile Send private message
srajendran2

New User


Joined: 13 May 2008
Posts: 43
Location: Chennai

PostPosted: Tue May 01, 2012 10:39 pm    Post subject:
Reply with quote

Hi,

It worked. Its just that the ISPPLIB and ISPMLIB concatenation was wrong and it was picking up the old version from the concatenation
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 OO COBOL compile error Virendra Shambharkar COBOL Programming 3 Tue Jan 10, 2017 6:05 pm
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 Display ZEDLMSG without Pressing F1 &... anandgbe CLIST & REXX 8 Thu Dec 15, 2016 4:20 pm
No new posts Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am
No new posts S922 Error yuvan ABENDS & Debugging 3 Fri Dec 02, 2016 6:58 pm


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