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