UniBasic Commands Reference - Rocket Software

In the next example, the program segment executes the same UniData SQL command
with a TO clause that stores the UniData SQL output in a file that you can access
using the READNEXTTUPLE statement. (This program uses the CLIENTS file in
the demo database.)
OUT.COMMAND = "SELECT NAME, ADDRESS, CITY, STATE"
OUT.COMMAND := " FROM CLIENTS TO SQL_INPUT;"
EXECUTESQL OUT.COMMAND
DONE = 0
FOR X = 1 TO 5
READNEXTTUPLE CLIENT.INFO FROM "SQL_INPUT" ELSE STOP
CONVERT @AM TO " " IN CLIENT.INFO
PRINT CLIENT.INFO
NEXT X
CLEARSELECT
END
This program produces the following results:
Paul Castiglione 45, reu de Rivoli Paris
Fredrick Anderson 854, reu de Rivoli Paris
Beverly Ostrovich 7925 S. Blake St. Sydney NSW
Cal di Grigorio 913 Montreal Ave. Regina Saskatchewan
Franklin Sears 213 Midland St. Perth
In the next example, the UniData SQL statement selects an @ID only. UniData uses
a select list instead of storing the output. In this case, the UniData SQL command
does not require a TO clause, and the UniBasic READNEXT statement processes the
IDs selected.
OPEN 'CLIENTS' TO CLIENT.FILE ELSE PRINT 'Open Error.'
OUT.COMMAND = "SELECT @ID"
OUT.COMMAND := " FROM CLIENTS"
OUT.COMMAND := " WHERE CITY = 'Paris';"
EXECUTESQL OUT.COMMAND
DONE = 0
LOOP
READNEXT @ID ELSE DONE = 1
UNTIL DONE DO
GOSUB PROCESS.RECS
REPEAT
CLEARSELECT
PROCESS.RECS:
*print records for clients in Paris."
READ REC FROM CLIENT.FILE,@ID
THEN PRINT REC
RETURN
END
EXECUTESQL 1-273