COBOL2002 メッセージ
KCCC
2835
C
-S
呼び名"*** 1 ***"は指定できません。