*DECK CMFFGR
          IDENT  CMF.FGR
  
 ERRCK    EQU    0
*CALL FGR 
          END 
