RE: Color in messages

[dbryant@xxxxxxxxxxxx]

Would this quick CL example help you??  It loops approximately for 30
 seconds so you can see the attributes at work.... (probably not).  I don't know
if this would work the same for message files.  Though I would love to know.

             PGM

/* ******************************************************************* */
/* **  x'25' = Reverse Image & Underline on Green Screens.          ** */
/* **  x'25' = Reverse Image & GREEN on Color Display Screens.      ** */
/* **                                                               ** */
/* **  x'26' = Underline & WHITE on Color Display Screens.          ** */
/* **  x'27' = No Display on Color Display Screens.                 ** */
/* **  x'28' = RED only on Color Display Screens.                   ** */
/* **                                                               ** */
/* **  x'29' = Reverse Image & Blink on Green Screens.              ** */
/* **  x'29' = Reverse Image & RED on Color Display Screens.        ** */
/* **                                                               ** */
/* **  x'30' = BLUE & Column Seperators on Color Screens.           ** */
/* **                                                               ** */
/* **  x'31' = Reverse Image & Column Seperators on Green Screens   ** */
/* **  x'31' = Reverse Image & BLUE on Color Display Screens.       ** */
/* **                                                               ** */
/* **  x'32' = YELLOW & Column Seperators on Color Screens.         ** */
/* **  x'33' = YELLOW & Reverse Image on Color Screens.             ** */
/* **  x'34' = BLUE & Underline on Color Screens.                   ** */
/* **  x'35' = BLUE & Underline & Reverse Image on Color Screens.   ** */
/* **  x'36' = YELLOW & Underline on Color Screens.                 ** */
/* **  x'37' = No Display on Color Display Screens.                 ** */
/* **  x'38' = Pink Only on Color Display Screens.                  ** */
/* **                                                               ** */
/* **  x'39' = Reverse Image & Column Sep. & Blink on Green Screens ** */
/* **  x'39' = Reverse Image & PINK on Color Display Screens.       ** */
/* **                                                               ** */
/* **  x'40' = WHITE Only on Color Display Screens.                 ** */
/* **                                                               ** */
/* **                                                               ** */
/* ******************************************************************* */
             DCL        VAR(&REVERSE) TYPE(*CHAR) LEN(1) VALUE(X'38')
             DCL        VAR(&NORMAL)  TYPE(*CHAR) LEN(1) VALUE(X'20')
             DCL        VAR(&COUNT)  TYPE(*DEC) LEN(2 0) VALUE(0)
             DCL        VAR(&MSG)     TYPE(*CHAR) LEN(80) VALUE('THIS IS A TEST
MESSAGE')
LOOP:

             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +
                          MSGDTA(&Reverse *CAT &Msg *CAT &Normal) +
                          TOPGMQ(*EXT) MSGTYPE(*STATUS)

             IF         COND(&COUNT < 30) THEN(DO)
             CHGVAR     VAR(&COUNT) VALUE(&COUNT + 1)
             GOTO       CMDLBL(LOOP)
             ENDDO

             ENDPGM
****************** End of data **************************************


+---
| 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
+---