*DECK CMSFRF
          IDENT  CMS.FRF
  
 ERRCK    EQU    1
*CALL FRF 
          END 
