*DECK CMSGXV
          IDENT  CMS.GXV
  
 ERRCK    EQU    1
*CALL GXV 
          END 
