*DECK CMFSHA
          IDENT  CMF.SHA
  
 ERRCK    EQU    0
*CALL SHA 
          END 
