*DECK MAPCOM
  PROC MAPCOM;
     BEGIN
       CONTROL PRESET;
*CALL COM99A
     END
   TERM 
