PROCEDURE DIVISION RETURNINGのデータ名"*** 1 ***"がUSINGのデータ名と重複しています。又は，再定義された同じ領域を指しています。