*DECK MAPRD                                                             000380
      PROC MAPRD;                                                       000390
*CALL COMMAPRD                                                          000400
