END CASE

END CASE is used in an INPUT PROGRAM—END INPUT PROGRAM structure to signal that a case is complete.

END CASE

Example

* Restructure a data file to make each data item into a single case.
 
INPUT PROGRAM.
DATA LIST /#X1 TO #X3 (3(F1,1X)).
 
VECTOR V=#X1 TO #X3.
 
LOOP #I=1 TO 3.
- COMPUTE X=V(#I).
- END CASE.
END LOOP.
END INPUT PROGRAM.