The CASE ... ENDCASE Construct

The CASE ... ENDCASE functionality is achieved by the following syntax :

     GO TO
        LABEL1
        LABEL2
        LABEL3
        LABEL4
        ...
     DEPENDING ON some-variable

The control will skip to LABEL1 if the value of some-variable is equal to 1; to LABEL2 ,f the value is 2 and so forth.

This is not a very decent way of implementing the CASE concept, but it is bette rthan nothing!,