COBOL2002 メッセージ
KCCC
4911
C
-S
ENTRY文の入口名"*** 1 ***"がプログラム名と同じです。