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: 2038
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: 1754
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 Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts IDC2902I Error tzeche ABENDS & Debugging 2 Tue Mar 28, 2017 11:39 am
No new posts Count the length of the record & ... sreekusr DFSORT/ICETOOL 4 Thu Mar 23, 2017 7:52 pm
No new posts Need help with below DB2 error ashek15 DB2 3 Sat Mar 18, 2017 5:56 am


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