When SUBATTR OFF is in effect, the EPI will return 3270 attribute bytes imbedded in the responses returned by the RDSCREEN and RDSCRROW commands. The attribute bytes are always in the range X'20' through X'3F' and have the following bit definitions:
B'001. ....' Set for all attribute bytes B'...1 ....' Protected field B'.... 1...' Numeric field B'...1 1...' Autoskip field B'.... .01.' Low intensity / Non-Sel-pen detectable B'.... .01.' Low intensity / Sel-pen detectable B'.... .10.' High intensity / Sel-pen detectable B'.... .11.' Non-display / Non-Sel-pen detectable B'.... ...1' Modified Data Tag (MDT)
You can use the TRANSLATE function to translate these values. For example, the following text will cause all modified fields to be preceded by an exclamation point:
ATTRBYTES = XRANGE(X'20', X'3F')
NEWVALUES = COPIES("!",16)
NEWSTRING = TRANSLATE(OLDSTRING, NEWVALUES, ATTRBYTES)
|
Copyright © 2014 CA.
All rights reserved.
|
|