Activate_Save_Select subroutine
Description
The Activate_Save_Select subroutine loads a saved list of keys into cursor 0.
Syntax
Activate_Save_Select(targetName, cursorNum)
Parameters
The Activate_Save_Select subroutine has the following parameters:
| Parameter | Description | |
|---|---|---|
| Targetname | The name which the select list was saved as using Save_Select. The targetName may be in the following formats: 1. <targetName> 2. <tableName><space><targetName> If targetName contains a space then the assumption is that the first word is <tablename> and a check is performed to determine if the <tablename> is valid. If the <tablename> is valid then any wording after the initial space is the targetName .If the tablename is not valid then the whole string is used as the targetName and the list of keys is saved to SYSLISTS. |
|
| cursorNum | a number from 0 to 8 to indicate which cursor to use. See Readnext By. Optional, defaults to 0 | |
See Also
Example
/* activates the list saved as SYSREPOS_LIST, traverse the list, branching to ProcessEntity for each key */
declare subroutine Activate_Save_Select
$insert Logical
Activate_Save_Select("SYSREPOS_LIST")
if Get_Status() else
EOF = FALSE$
loop
readnext Key else EOF = TRUE$
until EOF
gosub ProcessEntity
repeat
end
/* Activate the list on a non-zero cursor */
declare subroutine Activate_Save_Select
$insert Logical
cursorNum=2
Activate_Save_Select("SYSREPOS_LIST",cursorNum)
EOF = FALSE$
loop
readnext Key using cursorNum else EOF = TRUE$
until EOF
gosub ProcessEntity
repeat