1 ALLOCATE
2+ ,
2 based-variable
2.1? %location-reference
3 ;

location-reference:

1? IN(area-variable)
2? SET(locator-variable)