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