Sheltran - SELECT construct

Form:

      SELECT <arithmetic expression>
      CASE n1 [,n2...]
    [    <statement>...         ] 
    [ CASE m1 [,m2...]
         <statement>...         ] 
      OTHER 
    [    <statement>...         ] 
      CSELECT

Notes:

• n1 [,n2...] represents a series of unsigned integer values, separated by commas. At least one integer must be present for each CASE statement.

• the integer values may appear in any order in the CASE clause.

• the CASE clauses need not contain all values in the range 1 to N, where N is the largest integer value used. However, a specific value may only appear once.

• the largest value used in a SELECT construct must not exceed 198.

• the OTHER clause is mandatory.

Actions:

The expression after the SELECT is evaluated and truncated to an integer value. Control is transferred to the statements following the CASE statement which contains the value of the SELECT expression. If no such value can be found, the OTHER clause is selected. Finally control is transferred to the statement after CSELECT.

Example:

      SELECT COLOR+1.0
      CASE 1
         COLTXT='BLACK'
      CASE 2
         COLTXT='RED'
      CASE 3
         COLTXT='GREEN'
      CASE 5
         COLTXT='BLUE' 
      CASE 8
         COLTXT='WHITE'
      OTHER 
         COLTXT='MIXTURE'
      CSELECT