RECEIVE MAP MAPPINGDEV

1 RECEIVE MAP(name)  MAPPINGDEV(data-value)  FROM(data-area)
2? LENGTH(data-value)
3? MAPSET(name)
4? 
4 INTO(data-area)
4 SET(ptr-ref)