IBM Mainframe Forum

Trying to get the message to highlight in RED.

BATCH#: 23 STORE: 7001 INVOICE: 003990 04/02/11 DRIVER CREDIT MEMO: 400001
*CREDIT ALLOWANCE STORE* <===== need to be in RED
TO BE CREDITED: TO BE CHARGED OR RETURNED:
ITEM REAS QTY WEIGHT TYPE ITEM/UPC REAS QTY WEIGHT MESSAGE



01 APS-SCREEN-ATTRIBUTES.
05 TP-ATTR-RED PIC X(01) VALUE '2'.

MOVE TP-ATTR-RED TO ARM0700-CREDIT-ALWNCO
MOVE '*CREDIT ALLOWANCE STORE*' TO
ARM0700-CREDIT-ALWNCO

Hello,

Do other colors work for you in CICS?

Suggest you talk with the 3270-emulator support people and make sure your colors are defined as needed.

No. The other colors do not work either.

Thanks.

fbryant2010 wrote:Trying to get the message to highlight in RED.

[...]
01 APS-SCREEN-ATTRIBUTES.
05 TP-ATTR-RED PIC X(01) VALUE '2'.

MOVE TP-ATTR-RED TO ARM0700-CREDIT-ALWNCO
MOVE '*CREDIT ALLOWANCE STORE*' TO
ARM0700-CREDIT-ALWNCO

Looks like you move the attribute to the data field, then overwrite it with the data.