*DECK CMFOWN
          IDENT  CMF.OWN
  
 ERRCK    EQU    0
*CALL OWN 
          END 
