*DECK CMSSXV
          IDENT  CMS.SXV
  
 ERRCK    EQU    1
*CALL SXV 
          END 
