COBOL2002 メッセージ
KCCC
2051
C
-S
BLOCK CONTAINS句は二重に指定できません。