Sigh. You have the same 01 level names -- how can you uniquely identify anything in either 01 level? And if you change one of the names to make them unique, how do you identify which of the 10 occurrences of the 01 level variable you are referring to?
Are you even bothering to test this code before you post? Enterprise COBOL does not support OCCURS on the 01 level, nor does it allow use of DATE as a variable name.