UniBasic Commands Reference - Rocket Software

Examples
In the following example, the program segment retrieves the previously saved list
CS_STAFF and assigns it to active list 2. If the list is not found, the program aborts
and displays an error message.
GETLIST "CS_STAFF" TO 2 ELSE
ABORT "NO CS_STAFF saved list found."
In the next example, the program segment creates a select list and saves it. GETLIST
then retrieves the saved list to active list 0 (the default). The program then uses the
IDs in list 0 to retrieve the first 22 Canadian clients.
EXECUTE 'SELECT CLIENTS WITH COUNTRY = "Canada"'
EXECUTE "SAVE.LIST 'canadians'"
OPEN 'CLIENTS' TO CLIENT.FILE ELSE ABORT
GETLIST 'canadians'
ELSE PRINT "SELECT LIST CANNOT BE FOUND";STOP
PRINT @(-1)
FOR I = 1 TO 22
READNEXT ID ELSE EXIT
READ REC FROM CLIENT.FILE, ID THEN
PRINT @(5,I):REC:@(20,I):REC
END ELSE
PRINT "CANNOT FIND RECORD":ID
END
NEXT I
CLEARSELECT
END
Related Commands
UniBasic
DELETELIST, FORMLIST, READLIST, READNEXT, SELECT, SELECT-
INDEX, SELECTINFO, WRITELIST
UniQuery
DELETE.LIST, GET.LIST, SELECT, SSELECT, SAVE.LIST – For information, see
the UniQuery Commands Reference.
1-297