COBCH1146 procedure-name lies in more than one PERFORM THRU range