*DECK CMSGFS
          IDENT  CMS.GFS
  
 ERRCK    EQU    1
*CALL GFS 
          END 
