Instruccion EVALUATE
Uso de la Estructura de CASE como alternativa de selección
Formato:
| EVALUATE {identifier-1 / expression-1}
WHEN condition-1 imperative-statement-1 ... [WHEN OTHER imperative-statement-2] [END-EVALUATE] |
Ejemplo: Supongamos que debemos crear una rutina de búsqueda dentro de un programa en COBOL para determinar el tipo de cuota a pagar por cada estudiante según su año de estudio. Si lo intentamos utilizando IF statements podria ser como sigue:
| IF YEARS-IN-COLLEGE-IN = 1
PERFORM 300-FRESHMAN-RTN. IF YEARS-IN-COLLEGE-IN = 2 PERFORM 400-SOPHOMORE-RTN. IF YEARS-IN-COLLEGE-IN = 3 PERFORM 500-JUNIOR-RTN. IF YEARS-IN-COLLEGE-IN = 4 PERFORM 600-SENIOR-RTN. |
Con la instruccion EVALUATE (COBOL 85) podriamos codificar la rutina de la siguiente manera:
| EVALUATE YEARS-IN-COLLEGE-IN
WHEN 1 PERFORM 300-FRESHMAN-RTN WHEN 2 PERFORM 400-SOPHOMORE-RTN WHEN 3 PERFORM 500-JUNIOR-RTN WHEN 4 PERFORM 600-SENIOR-RTN WHEN OTHER PERFORM 700-ERR-RTN END-EVALUATE. |