13 lines
318 B
COBOL
13 lines
318 B
COBOL
EVALUATE Thing-To-Do
|
|
WHEN 1
|
|
* *> Do first thing...
|
|
|
|
WHEN 2
|
|
* *> Do second thing...
|
|
|
|
WHEN 3
|
|
* *> Do third thing...
|
|
|
|
WHEN OTHER
|
|
* *> Handle invalid thing...
|
|
END-EVALUATE
|