This is contrived; but some COBOL programmers may prefer the positive clarity, versus using NOT
in conditional expressions (especially with the logic error prone var NOT = value OR other-value
).
if action-flag = "C" or "R" or "U" or "D"
continue
else
display "invalid action-code" upon syserr
perform report-exception
exit section
end-if