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: 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: 2081
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: 1775
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 Binary to display characters Roy Ware SYNCSORT 3 Tue Sep 19, 2017 8:46 pm
No new posts FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 0 Mon Sep 18, 2017 4:31 pm
No new posts DB2 NULL Values display V S Amarendra Reddy DB2 3 Thu Sep 07, 2017 6:59 pm
No new posts Reply MQ open error Vignesh Sid COBOL Programming 5 Thu Sep 07, 2017 6:02 pm
No new posts Error in SQL-PLIST3 'Above value tru... rikdeb DB2 4 Wed Sep 06, 2017 1:34 pm

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