DO CASE

Purpose

Multiple choice selection command

Syntax

DO CASE

CASE <condition>

[<commands>]

[CASE <condition>

[<commands>]]

[OTHERWISE

[<commands>]]

ENDCASE

See Also

@...MENU, DO WHILE, ICASE(), IF, IF(), IIF()

Description

The DO CASE command selects one course of action out of many alternatives. The Recital/4GL evaluates each CASE <condition> in turn. As soon as one of the conditions evaluates to true (.T.) the <commands> for that CASE are executed and any further case statements are ignored. Following execution of the <commands>, the program continues after the ENDCASE statement.

OTHERWISE

If an OTHERWISE statement is present and no CASE <condition> evaluates to .T., the OTHERWISE <commands> are executed.

ENDCASE

If no CASE <condition> is .T., and there is no OTHERWISE statement specified, then control skips to the next command following the ENDCASE.

CASE statements, as with all of the other Recital/4GL statements can be nested. In other words, a CASE statement can contain further DO CASE commands.

Example

accept "Enter a command: " to command
do case
    case command = "BROWSE"
        browse
    case command = "DIR"
        dir
    otherwise
        set message to "Unknown command."
endcase

Products

Recital Server, Recital