UniBasic Commands Reference - Rocket Software

In the following example, the program statement searches the entire array, FILMS,
element by element, for the literal string “BATMAN.” If the search is successful,
UniData assigns the location of the element to the variable NDX. If UniData does not
find the string, it sets NDX to the location of the last value plus 1, and it executes the
STOP command. The LOCATE command performs the search on the attribute level.
LOCATE "BATMAN" IN FILMS SETTING NDX ELSE STOP
Because the LOCATE statement compares the entire element (including associated
lower-level elements), a match will not be successful on either of the following
arrays:
or
"CARMEN":@AM:"BATMANII":@AM:"JAWS"
"CARMEN":@AM:"BATMAN":@VM:"KEATON":@VM:"DEVITO"@VM:"CARREY
":@AM:"JAWS"
In the next example, the program segment prints “BATMAN IS IN POSITION 2 IN
THE ARRAY”:
FILMS = "CARMEN":@AM:"BATMAN":@AM:"JAWS"
LOCATE "BATMAN" IN FILMS SETTING NDX ELSE
PRINT "NOT FOUND"
STOP
END
PRINT "BATMAN IS IN POSITION ":NDX:" IN THE ARRAY"
In the next example, the program segment searches the array FILMS, starting at
attribute 2, value 2, for the contents of the variable DEVITO. UniData assumes the
array elements are in ascending order and left-justified.
LOCATE DEVITO IN FILMS BY "AL" SETTING NDX THEN
PRINT "THIS TITLE IS IN THE LIBRARY"
END ELSE
PRINT "TITLE NOT FOUND, TRY AGAIN."
END
When executed on the following array, DEVITO is located in position 3 in the array
at the value level, and UniData executes the first PRINT statement:
"CARMEN":@AM:"BATMAN":@VM:"KEATON":@VM:"DEVITO"@VM:"CARREY
":@AM:"JAWS"
LOCATE 1-423