*DECK CMSALV
          IDENT  CMS.ALV
  
 ERRCK    EQU    1
*CALL ALV 
          END 
