*DECK CMFGFS
          IDENT  CMF.GFS
  
 ERRCK    EQU    0
*CALL GFS 
          END 
