Get_Num_Fields

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

Privacy and Legal