*DECK MAPKEY
      PROC MAPKEY;
*CALL COMAPKEY
