Executes the first set of commands whose conditional expression evaluates to true (.T.).

DO CASE
   CASE lExpression1 
   [Commands]
   [CASE lExpression2 
   [Commands]]
   ...
   [CASE lExpressionN 
   [Commands]]
   [OTHERWISE 
   [Commands]]
ENDCASE

Parameters

CASE lExpression1 Commands...

When the first true (.T.) CASE expression is encountered, the set of commands following it is executed. Execution of the set of commands continues until the next CASE or ENDCASE is reached. Execution then resumes with the first command following ENDCASE.

If a CASE expression is false (.F.), the set of commands following it up to the next CASE clause is ignored.

Only one set of commands is executed. These are the first commands whose CASE expression evaluates to true (.T.). Any succeeding true (.T.) CASE expressions are ignored.

OTHERWISE Commands

If all of the CASE expressions evaluate to false (.F.), OTHERWISE determines if an additional set of commands is executed.

• If you include OTHERWISE, the commands following OTHERWISE are executed and execution skips to the first command following ENDCASE.

• If you omit OTHERWISE, execution skips to the first command following ENDCASE.

Remarks

Example

In this example, Visual FoxPro evaluates each CASE clause until the MONTH variable is found in one of the lists. The appropriate string is stored to the variable rpt_title and the DO CASE structure is exited.

Copy Code

STORE CMONTH(DATE( )) TO month && The month today DO CASE && Begins loop CASE INLIST(month,'January','February','March') STORE 'First Quarter Earnings' TO rpt_title CASE INLIST(month,'April','May','June') STORE 'Second Quarter Earnings' TO rpt_title CASE INLIST(month,'July','August','September') STORE 'Third Quarter Earnings' TO rpt_title OTHERWISE STORE 'Fourth Quarter Earnings' TO rpt_title ENDCASE && Ends loop WAIT WINDOW rpt_title NOWAIT

See Also