Translate page

GetPreviousPosition_(Method)

Get the starting position of the previous protected or unprotected field.

Function GetPreviousPosition(cursor As CursorPos, [ft As FieldType = UNPROTECTED]) As Long

Parameters

NoNameTypeOptionalDefaultDescription
1cursorCursorPosNo-

Position from where the search starts

2

ft

FieldType

Yes

UNPROTECTED

Field type (PROTECTED or UNPROTECTED) to search and retrieve the position for

Return Code

Description

JGS_OK

The field position was found

JGS_NOTCONNECTED

Your application is not connected to a valid session

JGS_PARAMETERERROR

Missing or invalid parameter

JGS_POSITIONERROR

The specified screen position is invalid

JGS_SYSERROR

The function failed due to a system error

JGS_NOFIELD

Field not found or screen is not formatted

JGS_ZEROLENFIELD

The field length was 0

Sample Code

Dim myPos as CursorPos
Dim result as Long
myPos.row = 18
myPos.column = 45
result = field.GetPreviousPosition(myPos)
If result = JGS_OK then
...   ' myPos contains starting position of previous unprotected field
Else ...



QWS3270 Automation copyright © Jolly Giant Software Inc. All rights reserved.