COBOL2002 メッセージ
KCCC
4799
C
-S
内部ブール型である"*** 1 ***"関数は指定できません。