Translate page

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

NoNameType

Optional

Default

Description

1cursorCursorPos

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

FieldType

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.