EVALUATE MENU-INPUT WHEN "0" PERFORM INIT-PROC WHEN "1" THRU "9" PERFORM PROCESS-PROC WHEN "R" PERFORM READ-PARMS WHEN "X" PERFORM CLEANUP-PROC WHEN OTHER PERFORM ERROR-PROC END-EVALUATE.
EVALUATE A = B ALSO C > D ALSO TRUE WHEN TRUE ALSO TRUE ALSO E = F + 15 imp-stat-1 WHEN TRUE ALSO TRUE ALSO E > 12 imp-stat-2 WHEN TRUE ALSO FALSE ALSO ANY imp-stat-3 WHEN FALSE ALSO TRUE ALSO ANY imp-stat-4 WHEN FALSE ALSO FALSE ALSO ANY imp-stat-5 END-EVALUATE.
Ready to start your tutorial with us? That's great! Send us an email and we will get back to you as soon as possible!