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
 
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: 55
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: 2110
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: 55
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: 55
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: 1786
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: 55
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 BAMAD file IO Error m1985nehal CICS 1 Fri May 25, 2018 11:51 am
No new posts DB2 Sql Error code -204 rohit_naidu DB2 5 Fri May 18, 2018 4:40 pm
No new posts Trap the jcl error message or maxcc i... ankita agarwal CLIST & REXX 5 Fri May 18, 2018 2:08 pm
No new posts Getting an error from EZASOKET while ... vaibhav gs COBOL Programming 5 Thu May 17, 2018 9:21 pm
No new posts Error executing Java program in OSGI ... danik56 CICS 0 Thu Apr 26, 2018 12:16 am

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