iTS 1.0+)

Procedure Division

Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001

6-92

SET MINIMUM-COLOR Statement

The SET MINIMUM-COLOR statement establishes the minimum level of support for

color display attributes.

data-name

specifies the Working-Storage group item template for color display attributes,

which must be defined as follows:

01 WS-MINIMUM-COLOR.

02 FILLER PIC 9(04) COMP.

02 IBM-PARTIAL-COLOR PIC 9(04) COMP.

02 IBM-FULL-COLOR PIC 9(04) COMP.

•

IBM-PARTIAL-COLOR specifies terminals in the IBM 3270 family that can

support three colors.

•

IBM-FULL-COLOR specifies terminals in the IBM 3270 family that can support

six colors.

A value of 1 is placed in the corresponding elementary item if that attribute is required.

For example, if you want the program unit to work only on terminals with full color

capability, you move the value 1 into IBM-FULL-COLOR. All other Working-Storage

fields are set to 0.

The mimimum level of support for color display attributes does not change until a

subsequent SET MINIMUM-COLOR statement is executed, even if you use a CALL

statement to move between program units.

If you do not specify a SET MINIMUM-COLOR statement, the default setting for color

display attributes is no color. All elementary fields in the Working-Storage group

DEVICE-VIDEO-COLOR are set to 0.

STOP RUN Statement

The STOP RUN statement causes the executing program to stop immediately after this

statement executes.

If the executing program is a called program unit and a STOP RUN statement is

executed, control does not return to the calling program.

SET MINIMUM-COLOR USING data-name.

STOP RUN