*DECK CMSGOS
          IDENT  CMS.GOS
  
 ERRCK    EQU    1
*CALL GOS 
          END 
