A clause of the current DO SELECT-TYPE block refers to a type that has already been encountered.
#2192 Compile-time error
A clause of the current DO SELECT-TYPE block refers to a type that has already been encountered.
Additional Information
The type is '%.*s'.
An ELSE clause cannot appear because the head type %.*s was handled in the CASE on line %ld of file '%.*s'.
Explanation
All case clauses of do select-type must refer to a
different subtype of the static type of expression following
do select-type, i.e., the head type. One of the
case subtypes is repeated.