Re: Subfile record coloring

certainly, make your field with hexa code :

eval SFLtext = x'22' + %trim(mytexte) + x'20' ....
or better use a /copy for named constant :
wht     c        x'22'

here is a copy of what i use
 *
 * Couleurs & attributs ....................
d nd              c                   x'27'
d Grn             c                   x'20'
d Grn_Ri          c                   x'21'
d Grn_Ul          c                   x'24'
d Grn_Ul_Ri       c                   x'25'
d Wht             c                   x'22'
d Wht_Ri          c                   x'23'
d Wht_Ul          c                   x'26'
d Red             c                   x'28'
d Red_Ri          c                   x'29'
d Red_Ul          c                   x'2C'
d Red_Ri_Ul       c                   x'2D'
d Trq             c                   x'30'
d Trq_Ri          c                   x'31'
d Trq_Ul          c                   x'34'
d Trq_Ul_Ri       c                   x'35'
d Ylw             c                   x'32'
d Ylw_Ri          c                   x'33'
d Ylw_Ul          c                   x'36'
d Pnk             c                   x'38'
d Pnk_Ri          c                   x'39'
d Pnk_Ul          c                   x'3C'
d Pnk_Ul_Ri       c                   x'3D'
d Blu             c                   x'3A'
d Blu_Ri          c                   x'3B'
d Blu_Ul          c                   x'3E'

----- Original Message ----- 
From: "Tony Carolla" <carolla@xxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, May 13, 2005 5:09 PM
Subject: Subfile record coloring


I have a subfile with a single, screen-wide record. This record will show
three different structures of data, based on DSs One of the structures has a
date as the first ten characters, and I would like to color that date
yellow, to visually offset it.

Is there any way to color a section of text within a single display file
field? I am thinking back to when I used to build ANSI display screens, and
you could send special characters to the screen that would change the
attributes of the following text.

-- 
"Enter any 11-digit prime number to continue..."
"In Hebrew SQL, how do you use right() and left()?..." - Random Thought
-- 
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.