*DECK CMSAGR
          IDENT  CMS.AGR
  
 ERRCK    EQU    1
*CALL AGR 
          END 
