Pathway/iTS SCREEN COBOL Reference Manual (G06.24+, H06.03+, Pathway/iTS 1.0+)

Data Division
Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001
5-39
Field-Characteristic Clauses
77 BLINK-ID PIC S99, VALUE 6.
77 REVERSE-ID PIC S99, VALUE 7.
77 UNDERLINE-ID PIC S99, VALUE 8.
77 BELL-ID PIC S99, VALUE 9.
77 TOPLINE-ID PIC S99, VALUE 10.
77 LEFTLINE-ID PIC S99, VALUE 11.
77 RIGHTLINE-ID PIC S99, VALUE 12.
77 BOTTOMLINE-ID PIC S99, VALUE 13.
77 BOXFIELD-ID PIC S99, VALUE 14.
77 COLOR-ID PIC S99, VALUE 15.
77 MAX-TOKEN-PAIRS PIC S99, VALUE 15.
77 ATTRIB-IGNORE PIC S99, VALUE -1.
77 ATTRIB-OFF PIC S99, VALUE 0.
77 ATTRIB-ON PIC S99, VALUE 1.
77 COLOR-DEFAULT PIC S99, VALUE 0.
77 COLOR-BLUE PIC S99, VALUE 1.
77 COLOR-RED PIC S99, VALUE 2.
77 COLOR-PINK PIC S99, VALUE 3.
77 COLOR-GREEN PIC S99, VALUE 4.
77 COLOR-TURQUOISE PIC S99, VALUE 5.
77 COLOR-YELLOW PIC S99, VALUE 6.
77 COLOR-NEUTRAL PIC S99, VALUE 7.
The following example structure supports control for a screen field’s BLINK and
REVERSE attribute settings. This structure causes an associated screen field to blink in
reverse video.
01 CONTROL-ITEM-1.
05 TOKEN-COUNT PIC S99 COMP, VALUE 2.
05 ATTRIB-TOKEN-BLINK.
10 ATTRIB-ID PIC S99 COMP, VALUE 6.
10 ATTRIB-VALUE PIC S99 COMP, VALUE 1.
05 ATTRIB-TOKEN-REVERSE.
10 ATTRIB-ID PIC S99 COMP, VALUE 7.
10 ATTRIB-VALUE PIC S99 COMP, VALUE 1.
The following example structure supports control for a screen field’s COLOR and
REVERSE attribute settings. This structure causes an associated screen field to change
to red in reverse video.
01 CONTROL-ITEM-2.
05 TOKEN-COUNT PIC S99 COMP, VALUE 2.
05 ATTRIB-TOKEN-COLOR.
10 ATTRIB-ID PIC S99 COMP, VALUE 15.
10 ATTRIB-VALUE PIC S99 COMP, VALUE 2.
05 ATTRIB-TOKEN-REVERSE.
10 ATTRIB-ID PIC S99 COMP, VALUE 7.
10 ATTRIB-VALUE PIC S99 COMP, VALUE 1.