case statement

Syntax

choose case <expression>

case <value1>,<value2>:

<statements>;

case <value3>:

<statements>;

.....

case <valuex>:

<statements>;

default:

<statements>;

end;

For Example

lsErrorType : string := "Processor Failure";

lsPriority : string;

choose case lsErrorType

case "Processor Failure",

"Hard Disk Failure",

"Motherboard Failure",

"Display Failure":

lsPriority := "HIGH";

case "CD Drive Failure",

"Application Issue",

"Performance Issue":

lsPriority := "MEDIUM";

default:

lsPriority := "LOW";

end;

print(lsErrorType + " is a " + lsPriority + " priority problem.");