*DECK CMFFRF
          IDENT  CMF.FRF
  
 ERRCK    EQU    0
*CALL FRF 
          END 
