RECEIVE MAP

1 RECEIVE MAP(name)
2? MAPSET(name)
3? 
3 INTO(data-area)
3 SET(ptr-ref)
4! TERMINAL
4?
4 FROM(data-area)
4.1? LENGTH(data-value)
4 TERMINAL
4.1? ASIS
4.2? INPARTN(name)