*DECK CMFGSS
          IDENT  CMF.GSS
  
 ERRCK    EQU    0
*CALL GSS 
          END 
