*DECK CMSSHA
          IDENT  CMS.SHA
  
 ERRCK    EQU    1
*CALL SHA 
          END 
