COBOL2002 メッセージ
KCCC
2371
C
-S
ブール定数は,VALUE THROUGH指定の後には指定できません。