*DECK CMFFRV
          IDENT  CMF.FRV
  
 ERRCK    EQU    0
*CALL FRV 
          END 
