COBOL2002 メッセージ
KCCC
2007
C
-S
機能名"*** 1 ***"は二重に指定できません。