
	Home > AS/400 Tips > iSeries programmer tips > To give error messages with COLOR based on severity

iSeries 400 Tips:

EMAIL THIS

TIPS & NEWSLETTERS TOPICS

ISERIES PROGRAMMER TIPS

To give error messages with COLOR based on severity

Sudhakar Kunji
02.01.2001
Rating: -4.00- (out of 5) Hall of fame tip of the month winner

Digg This!

StumbleUpon

Del.icio.us

If you would like to give error messages with COLOR based on severity, use the HexaDecimal color codes to send Colored Error messages. You can change the program to send messages with different colors based on severity.

Code

 
 PGM        PARM(&MSGID)                                   
 DCL        VAR(&MSG) TYPE(*CHAR) LEN(78)                  
 DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)                 
 DCL        VAR(&SEV) TYPE(*DEC) LEN(2)                    
 DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(78)               
 DCL        VAR(&BLUE) TYPE(*CHAR) LEN(1) VALUE(X'3A')     
 DCL        VAR(&WHITE) TYPE(*CHAR) LEN(1) VALUE(X'22')    
 DCL        VAR(&RED) TYPE(*CHAR) LEN(1) VALUE(X'28')      
 DCL        VAR(&GREEN) TYPE(*CHAR) LEN(1) VALUE(X'40')    
 DCL        VAR(&PINK) TYPE(*CHAR) LEN(1) VALUE(X'38')     
 DCL        VAR(&TURQ) TYPE(*CHAR) LEN(1) VALUE(X'30')     
 DCL        VAR(&YELL) TYPE(*CHAR) LEN(1) VALUE(X'32')     
 DCL        VAR(&RIMG) TYPE(*CHAR) LEN(1) VALUE(X'21')     
 DCL        VAR(&UNDER) TYPE(*CHAR) LEN(1) VALUE(X'24')    
 DCL        VAR(&DELIM) TYPE(*CHAR) LEN(1) VALUE(X'20')    
 DCL        VAR(&COLOR) TYPE(*CHAR) LEN(1)                 
                                                           
 RTVMSG     MSGID(&MSGID) MSGF(QCPFMSG) MSG(&MSG) SEV(&SEV)
                                                           
 IF         COND(&SEV = 00) THEN(CHGVAR VAR(&COLOR) +      
              VALUE(&WHITE))                             
                                                         
 IF         COND(&SEV > 00) THEN(CHGVAR VAR(&COLOR) +    
              VALUE(&PINK))                              
                                                         
 IF         COND(&SEV >= 30) THEN(CHGVAR VAR(&COLOR) +   
              VALUE(&YELL))                              
                                                         
 IF         COND(&SEV >= 60) THEN(CHGVAR VAR(&COLOR) +   
              VALUE(&RED))                               
                                                         
 CHGVAR     VAR(&MSGDTA) VALUE(' ' *CAT &COLOR *CAT &MSG)
 CHGVAR     VAR(&MSGDTA) VALUE(&MSGDTA *TCAT &DELIM)     
                                                         
 SNDPGMMSG  MSG(&MSGDTA)                                 
 ENDPGM

Rate this Tip
To rate tips, you must be a member of Search400.com. Register now to start rating these tips. Log in if you are already a member.

Digg This!

StumbleUpon

Del.icio.us

RELATED CONTENT

	RPG iSeries programming
	Enhancing RPG with external SQL stored procedures
	Introduction to SQLRPGLE on IBM i: Making a report
	Making the most of RPG data handling on IBM i
	IBM i shop boosts online sales with RPG-based Web platform
	Migrating from RPG to EGL on IBM i
	Allow access to data from a stored procedure result set using COBOL or RPG
	EGL Rich UI on IBM i: Do you Dojo?
	Programming for the Web on the IBM i, what is possible
	A taste of COMMON: ILE, IBM releases, Web applications and new products
	Documenting nested program structures on the AS/400

iSeries programmer tips

A power-handling CL program for multiple IBM i servers

Enhancing RPG with external SQL stored procedures

Tracking data changes on IBM i with triggers

Introduction to SQLRPGLE on IBM i: Making a report

Implementing a browser interface in COBOL: Displaying database fields

Taking advantage of CL advancements, starting with V5R3

TAATOOL: Useful tools for programmers on IBM i

Implementing a browser interface in COBOL: Creating your graphic Web page

Implementing a browser interface in COBOL: Getting started

Making the most of RPG data handling on IBM i

iSeries ILE programming

Tracking data changes on IBM i with triggers

Introduction to SQLRPGLE on IBM i: Making a report

How to use an embedded SQL statement and display the result in a subfile

Eight steps for creating program documentation using AS/400 utilities

Searching fields for values

Searching part of a name or address in AS/400

Top 10 programmer tips YTD

How to use the binder language to manage service programs -- Part 3: Examples and pitfalls

Top 10 programmer tips of 2005

Understanding the binder language on AS/400

RELATED GLOSSARY TERMS

Terms from Whatis.com − the technology online dictionary

Report Program Generator (Search400.com)

RELATED RESOURCES

2020software.com, trial software downloads for accounting software, ERP software, CRM software and business software systems

Search Bitpipe.com for the latest white papers and business webcasts

Whatis.com, the online computer dictionary

DISCLAIMER: Our Tips Exchange is a forum for you to share technical advice and expertise with your peers and to learn from other enterprise IT professionals. TechTarget provides the infrastructure to facilitate this sharing of information. However, we cannot guarantee the accuracy or validity of the material submitted. You agree that your use of the Ask The Expert services and your reliance on any questions, answers, information or other materials received through this Web site is at your own risk.

iSeries Security - Security Tools, Physical Security and System Security

SEARCH

TechTarget provides technology professionals with the information they need to perform their jobs - from developing strategy, to making cost-effective purchase decisions and managing their organizations' technology projects - with its network of technology-specific websites, events and online magazines.


TechTarget Corporate Web Site \| Media Kits \| Site Map All Rights Reserved, Copyright 1999 - 2010, TechTarget \| Read our Privacy Policy