*DECK CMSFRV
          IDENT  CMS.FRV
  
 ERRCK    EQU    1
*CALL FRV 
          END 
