*DECK CMSFGR
          IDENT  CMS.FGR
  
 ERRCK    EQU    1
*CALL FGR 
          END 
