INTEGER*4 ICVSMG_KEYID, ICVSMG_KTBLID, ICVSMG_PASTEID,
     +		ICVSMG_DSPID, ICVSMG_ERRID, ICVSMG_ROWS, ICVSMG_COLS
      LOGICAL*1 LCVSMG_ERRHIDDEN
      COMMON /SMG/ ICVSMG_KEYID, ICVSMG_KTBLID, ICVSMG_PASTEID,
     +		ICVSMG_DSPID, ICVSMG_ERRID, ICVSMG_ROWS, ICVSMG_COLS,
     +		LCVSMG_ERRHIDDEN