QueryFieldAttribute

Returns the host field attribute value associated with the specified screen position.

Parameters

PositionVal: The zero-based screen position to query.

Returns

The host field attribute value in big-endian format:

Table 1: 3270 Field Attributes
Bit position	Meaning
0-1	Both set to 1 (field attribute byte)
2	Unprotected/protected: 0 = Unprotected data field 1 = Protected data field
3	Alpha/numeric: 0 = Alphanumeric data 1 = Numeric data only
4-5	I/SPD: 00 = Normal intensity, pen not detectable 01 = Normal intensity, pen detectable 10 = High intensity, pen detectable 11 = Non-display, pen not detectable
6	Reserved

Table 2: 5250 Field Attributes
Bit position	Meaning
0	Field attribute flag: 0 = Not a field attribute 1 = Field attribute byte
1	Visibility: 0 = Non-display 1 = Display
2	Unprotected/protected: 0 = Unprotected data field 1 = Protected data field
3	Intensity: 0 = Normal 1 = High
4-6	Field Type: 000 = Alphanumeric: all characters allowed 001 = Alphabetic only 010 = Numeric shift: automatic shift for numerics 011 = Numeric only 100 = Reserved 101 = Digits: 110 = Magnetic stripe reader data only 111 = Signed Numeric
7	MDT: 0 = Field has not been modified 1 = Field has been modified

Remarks

The screen position starts at 0 in the upper-left corner of the window (row 1, column 1), and ends at the bottom-right of the window (max row times max column minus one). For example, for a Model 2 - 24 x 80 screen, the last position is 1919.

Example

Set bzhao = CreateObject("BZWhll.WhllObj")
bzhao.Connect
i = 0
While i < 1920
  x = bzhao.QueryFieldAttribute( i )
  if x <> y then
    y = x
    MsgBox "Attribute " & x & " at position " & i
  end if
  i = i + 1
Wend