*DECK CMSLDV
          IDENT  CMS.LDV
  
 ERRCK    EQU    1
*CALL LDV 
          END 
