ATTR

Modify the screen I/O field attributes at run time.
Restriction: This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms.

Targets:

  • CICS
  • DLG
  • IMS DC

Syntax:

[TP-]ATTR screenname

... attribute1[+attribute2...]
... fieldname[(subscript)][+fieldname[(subscript)] 
...]

General Rules:

  1. When redefining a screen, use the original name.
  2. Code only as many fieldnames as can fit on a single line. To code more field names, code another ATTR.
  3. For character-based applications, to modify color or highlighting, turn on the Extattr Modifiable parameter in the Screen Painter.
  4. You can code attributes that are not supported, such as when prototyping, without causing an error. They are ignored at generation/execution time.
  5. If fieldname is part of a repeated block, it must be subscripted and the subscript included with the field name as passed to ATTR.

Parameters:

attribute

Specify one or more attributes.

BRT

Bright character images

NORM

Normal character images

DARK

Suppress character display

MDTON

Enable modified data tags (CICS only)

MDTOFF

Disable modified data tags (CICS only)

NUM[LOCK]

Enable numeric locking

NOLOCK| NUMOFF

Disable numeric locking

POS[ITION]

Position the cursor at the first field in the string

PROT

Specify write-protection

ASKIP

Specify write-protection

UNPROT| NOPROT

Cancel write-protection

DET

Enable light pen detection

Specify one of the following colors:

DEFCOL

Default color

BLUE|BL

NEUTRAL|NU

PINK|PK

GREEN|GN

RED|RD

TURQ|TQ

Turquoise

YELLOW|YL

Specify one of the following character highlights:

BLINK

Blinking cursor

NOBLINK

Nonblinking cursor

RVID

Reverse video

NORVID

Normal video

UNDER

Underlining

NOUNDER

No underlining

NODET|DETOFF

Disable light pen detection

fieldname [(subscript)]

Screen field name(s). Code only the field name, not its screen name prefix; code the field subscript if applicable.

screenname

Screen name; value must be literal (maximum 8 characters).

Examples:

Position the cursor to the SS-NUM field.
ATTR SCRA POS SS-NUM
Change the intensity of the EMPL-NAME field.
ATTR SCRA BRT EMPL-NAME
Apply multiple attributes to multiple fields.
ATTR SCRA PROT+BRT SS-NUM+EMPL-NAME
Specify the field SOC-SEC-NUM as part of a repeated block.
ATTR SCRA BRT+POS SOC-SEC-NUM(LINE-CTR)