*DECK CMSGSS
          IDENT  CMS.GSS
  
 ERRCK    EQU    1
*CALL GSS 
          END 
