*DECK CMSSUA
          IDENT  CMS.SUA
  
 ERRCK    EQU    1
*CALL SUA 
          END 
