*DECK CMSCOE
          IDENT  CMS.COE
  
 ERRCK    EQU    1
*CALL COE 
          END 
