Value = 0

num  = SetNum(newrangemap[*]);
for i = 1 to num begin
if (newrangemap[i].ELEMENTCOD=="AMAJA04010") Value = 1;
en