RE: Color in messages

Howard, you can still do this to messages in message files.  I just tested
it on my system.

First of all, the normal caveats apply when modifying system objects.  In
your case, a system message file.

I was able to change the first-level message text to include display
attributes.  When displayed as part of the message subfile at the bottom of
the display, this works as desired.  However, if you press Help on the
message and bring up the "Additional Message Information" display, as I
mentioned before, then the display attributes change into blobs.  Can't
change it; it's an IBM "feature" from the beginning of the AS/400.

How to insert display attributes into a message text?

1. The easiest way is to use the keypad that I use in Client Access; it
pastes display attributes on your 5250 emulation screen.  This just came up
in the RPG400-l list yesterday.  If you're using CA and would like the files
that allow you to do this, let me know and I'll email them privately.

2. You could write a one-timer CL program that just does a CHGMSGD on the
message, i.e.:

             DCL        VAR(&XRED  ) TYPE(*CHAR) LEN(1) VALUE(X'28')
             DCL        VAR(&XBLUE ) TYPE(*CHAR) LEN(1) VALUE(X'3A')
             CHGMSGD    MSGID(TST0002) MSGF(DJBLIB/FSMMSGF) +         
                          MSG('FROM CHGMSGD:' *CAT &XRED *CAT 'RED ' +
                               *CAT &XBLUE *CAT 'BLUE')               

HTH
Dan Bale

-----Original Message-----
From: Weatherly, Howard [mailto:hweatherly@dlsc.dla.mil]
Sent: Tuesday, March 07, 2000 9:43 AM
To: 'MIDRANGE-L@midrange.com'
Subject: RE: Color in messages


Ya that would work if we were writing programs or screens but what we need
to do since our operator suffers from selective vision is highlight some of
the messages that occur when a comm line goes down or the like, so what we
were thinking was just go into the message file and add the highlight
attribute and terminator to the message. This is where the system or rather
the console ignores the characters and produces a blob.
(Al did you mean to send something in that message? it did not come through
:) ) 
---------- 
From:   Bale, Dan[SMTP:DBale@TFSA.Textron.com] 
Sent:   Monday, March 06, 2000 1:47 PM 
To:     'MIDRANGE-L@midrange.com' 
Subject:        RE: Color in messages 
Ah, yes, I remember that problem well! 
The way to get around this problem is to define a message field for each 
color change you want to display in the message.  In other words, if you 
want to display a message:  "Customer ID 155675 not found on file" and you 
want "155675" to be highlighted/colorized, then your message description 
would look like: "Customer ID &1 not found on file".  Field &1 in your 
message description would be defined as (at least) 8-character.  Your 
program would fill this field by pasting the display attribute characters at

the beginning and the end of the 8-character field, and put the customer ID 
in starting at position 2; probably best set up in a data structure, i.e.: 
     d msgdata         ds                            
     d  hilite                 1      1a   Inz(x'22') 
     d  CustomerID             2      7a             
     d  normal                 8      8a   Inz(x'20') 
I seem to recall that the display attribute only shows up in the message 
that appears in the message subfile window; if you hit help on a message 
like that, the "blob" character will appear with the message on the 
"Additional Message Information" display. 
HTH, 
Dan Bale 
-----Original Message----- 
From: Weatherly, Howard [mailto:hweatherly@dlsc.dla.mil] 
Sent: Monday, March 06, 2000 10:55 AM 
To: 'MIDRANGE-L@midrange.com' 
Subject: RE: Color in messages 


Thanks for the info on the codes for color to all, now I have a more 
perplexing problem! when I concatenate the code to the message all I get is 
a blob character then the message, the system consoles are color. Does 
anyone have any idea about this? Ultimately we want to add the codes to the 
message files so certain messages stand out! 
TIA 
Howard 
---------- 
From:   Boris Goldenberg[SMTP:bpcsguru@yahoo.com] 
Sent:   Friday, March 03, 2000 8:14 AM 
To:     MIDRANGE-L@midrange.com 
Subject:        Re: Color in messages 
I believe hex 20 returns to normal.  After that 21, 22 23, etc give you 
different attributes like red, blue, yellow, blinking, underline etc.. 
--- "Weatherly, Howard" <hweatherly@dlsc.dla.mil> wrote: 
> I know this has been covered before, unfortunately I have lost my email so

> many times and can't find it. 
> 
> We would like to add color to messages coming out of programs etc.. Our 
> thought was to add the hex characters in the message file also we wanted 
to 
> be able to send message from programs in color using any f the snd???msg 
> command in TAA or the QSNDMSG from a program. What I am lacking is the hex

> color equivalents. 
> 
> Anyone? 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---