Occurs Indexed By In Cobol Example