*DECK CMSOWN
          IDENT  CMS.OWN
  
 ERRCK    EQU    1
*CALL OWN 
          END 
