*DECK CMSGLF
          IDENT  CMS.GLF
  
 ERRCK    EQU    1
*CALL GLF 
          END 
