Copyright © TIBCO Software Inc. All Rights Reserved
Copyright © TIBCO Software Inc. All Rights Reserved


Chapter 3 Tools : $SETATTRIBUTE

$SETATTRIBUTE
Sets attributes for the field of the screen table, in the specified screen. (C)
Invocation
CALL $SETATTRIBUTE(screen, table, field, attribute, flag)
 
A character string specifying the screen. Its syntax is C (fixed-length character string) with length 16.
A character string specifying the screen table. Its syntax is C with length 16. To set attributes for the message area of the specified screen (where the SCREENMSG tool writes), leave table blank.
A character string specifying the screen field. Its syntax is C with length 16. To set attributes for the message area of the specified screen (where the SCREENMSG tool writes), set field to @MESSAGE.
D – Makes the field light pen detectable. Makes the data mapped graphical object detectable by cursor (allow focus).
Usage Notes
Not all display devices can support the extended attributes. The extended attributes are supported only on some 3270 terminals on a z/OS system.
Valid values must be supplied for all the arguments or an error occurs.
$SETATTRIBUTE operates only on a screen table that has real occurrences, and has the current position set by a table access. If the current position is not set in the screen table, a call to $SETATTRIBUTE is ignored.
Example
The following rule sets the reverse video attribute on the FCNKEYS field of the example screen and displays the screen:

 
SETATTRIBUTE_1;
_
_ ------------------------------------------------------------------------
_ ------------------------------------------------------------+-----------
_ FCNKEY_SPECS.FCNKEYS = FCNKEY_MSG('NEW_EMPLOYEE'); | 1
_ INSERT FCNKEY_SPECS('NEW_EMPLOYEE'); | 2
_ CALL $SETATTRIBUTE('NEW_EMPLOYEE', 'FCNKEY_SPECS', | 3
_ 'FCNKEYS', 'R', 'Y'); |
_ UNTIL EXIT_DISPLAY DISPLAY NEW_EMPLOYEE: | 4
_ CALL PROCESS_FCNKEY('NEW_EMPLOYEE'); |
_ END; |
_ ------------------------------------------------------------------------

 

Copyright © TIBCO Software Inc. All Rights Reserved
Copyright © TIBCO Software Inc. All Rights Reserved