GetNextPosition_(Method)
Get the starting position of the next protected or unprotected field.
Function GetNextPosition(cursor As CursorPos, [ft As FieldType = UNPROTECTED]) As Long
Parameters
No | Name | Type | Optional | Default | Description |
---|---|---|---|---|---|
1 | cursor | CursorPos | No | - | Position on the screen from where the search starts. On output it will contain the starting position of the specified field if the function was successful else the contents will be unchanged |
2 | ft | Yes | UNPROTECTED | Specify whether to get the position of the next PROTECTED or UNPROTECTED field. Â The default is UNPROTECTED | |
Return Code | Description | ||||
JGS_OK | The field position was found | ||||
JGS_NOTCONNECTED | Your application is not connected to a valid host session | ||||
JGS_PARAMETERERROR | Missing or invalid parameter | ||||
JGS_POSITIONERROR | The position specified is not valid | ||||
JGS_SYSERROR | The function failed due to a system error | ||||
JGS_NOFIELD | The specified field was not found or the screen is unformatted | ||||
JGS_ZEROLENFIELD | The length of the specified field is 0 |
Sample Code
Dim myPos as CursorPos
Dim result as Long
myPos.row = 18
myPos.column = 45
result = field.GetNextPosition(myPos)
If result = JGS_OK then
... Â Â ' myPos contains starting position of next unprotected field
Else ...
QWS3270 Automation copyright © Jolly Giant Software Inc. All rights reserved.