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