*DECK MAPRD 
      PROC MAPRD; 
*CALL COMMAPRD
