COBOL Assignment3