*DECK CMSGBI
          IDENT  CMS.GBI
  
 ERRCK    EQU    1
*CALL GBI 
          END 
