END CASE

END CASE は、ケースが完了したことを通知するために INPUT PROGRAM—END INPUT PROGRAM 構造体で使用されます。

END CASE

例

* 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.