Exits a DO WHILE, FOR, SCAN, or TRYвЂ¦CATCHвЂ¦FINALLY structure.
The EXIT command transfers control from within the structure to the command immediately following the structure.
In the following example, the number of products in stock priced over 20 dollars is totaled in the DO WHILE loop until the end of the file (EOF) is encountered. The DO WHILE loop is exited and the total is displayed.
CLOSE DATABASES OPEN DATABASE (HOME(2) + 'Data\testdata') USE products && Opens Products table SET TALK OFF gnStockTot = 0 DO WHILE .T. && Beginning of loop IF EOF( ) EXIT ENDIF IF unit_price < 20 SKIP LOOP ENDIF gnStockTot = gnStockTot + in_stock SKIP ENDDO && End of loop CLEAR ? 'Total items in stock valued over 20 dollars:' ?? gnStockTot