Get the number of fields on the screen. This action is only valid when using IBM 5250 or 5555 emulation.
Example
Script(Get_Field_Row_Column_Length)
String(strMessage)
Number(numFields)
Number(nLoops)
Number(nFieldRow)
Number(nFieldColumn)
Number(nFieldLength)
Activate(From_Menu)
numFields = Get_Num_Fields
Message(String_Combine("Number of fields:", Number_To_String_Decimal(numFields)), 60)
nLoops = 0
While(Number_Less_Than(nLoops, numFields))
nFieldRow = Get_Field_Row(nLoops)
nFieldColumn = Get_Field_Column(nLoops)
nFieldLength = Get_Field_Length(nLoops)
strMessage = String_Combine("Field:", Number_To_String_Decimal(nLoops))
strMessage = String_Combine(strMessage, ":row")
strMessage = String_Combine(strMessage, Number_To_String_Decimal(nFieldRow))
strMessage = String_Combine(strMessage, ", column")
strMessage = String_Combine(strMessage, Number_To_String_Decimal(nFieldColumn))
strMessage = String_Combine(strMessage, ", length")
strMessage = String_Combine(strMessage, Number_To_String_Decimal(nFieldLength))
Ask_OK(strMessage, "Field Info")
nLoops = Number_Plus(nLoops, 1)
End_While
Comment: The following should return zero because the field index is invalid.
nFieldRow = Get_Field_Row(nLoops)
nFieldColumn = Get_Field_Column(nLoops)
nFieldLength = Get_Field_Length(nLoops)
Return
See Also
Get_Field_Index_Row_Text, Get_Field_Index_Column_Text, Get_Field_Row, Get_Field_Length, Get_Field_Symbology_Operator, Set_Field_Append_Scan_Data, Set_Field_Com_Data_Field, Set_Field_Prefix_Scan_Data, Get_Field_Append_Scan_Data, Get_Field_Column, Get_Num_Field_Data_IDs, Get_Num_Field_Symbology_IDs, Get_Field_Com_Data_Field, Set_Field_Data_ID, Set_Field_Symbology_ID, Get_Field_Symbology_ID
Was this article useful?
The topic was:
Inaccurate
Incomplete
Not what I expected
Other