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-38
Field-Characteristic Clauses
Table 5-4. Effect of CONTROLLED Clause on Screen Field Display Attribute
As the control structure is a Working-Storage data item, there is no restriction on sharing
the control structure of one screen field with that of a different screen field
Effect of OCCURS Clause
If the screen field defined with the CONTROLLED clause has an OCCURS clause, the
data-name-1 structure must have the same maximum number of occurences as that
defined in the Working-Storage Section.
The following control structure provides the minimum information set required for a
Working-StorageWorking-Storage group data item (data-name-1 ).
01 DATA-NAME-1.
05 TOKEN-COUNT PIC S99 COMP.
05 attrib-TOKEN.
10 attrib-ID PIC S99 COMP.
10 attrib-VALUE PIC S99 COMP.
77 BRIGHT-ID PIC S99, VALUE 1.
77 HIDDEN-ID PIC S99, VALUE 2.
77 MDTON-ID PIC S99, VALUE 3.
77 NUMERIC-SHIFT-ID PIC S99, VALUE 4.
77 PROTECTED-ID PIC S99, VALUE 5.
TURN, DISPLAY BASE, and
DISPLAY OVERLAY Operations
Change Screen Field Display Attributes at...
Screen Field Control Without DYNAMIC With DYNAMIC
Field not controlled Compile time Compile time
Field controlled:
inactive, value = -1
Compile time Compile time
Field controlled:
active, value = 0 (OFF)
Compile time Run time
Field controlled:
active, value = 1 (ON)
Compile time Run time
Note. The error 3072 (RUN-TIME DYNAMIC ATTRIBUTE SETTING INVALID) is returned if an
incorrect structure for data-name-1 is encountered at run-time. The compiler only detects
syntax errors, undeclared identifiers, and whether data-name-1 is in Working-Storage. This
error occurs only for IBM 3270 terminals when a field is defined as a combination of two or
more of the BLINK, REVERSE, and UNDERLINE attributes.
Note. For 65XX terminals, a field which is defined as BRIGHT and BLINK will only blink, and
the field which is defined as REVERSE and BRIGHT will only be reversed. Further, a field
which is defined as HIDDEN and BRIGHT will be hidden, and the field defined as HIDDEN
and BLINK will also be hidden.