BEGIN
 	 SELECT count(*) into temp 
 	  FROM 			SATURN.GZGCDSC 
 	  WHERE 		GZGCDSC_ID = :dual.GZGCDSC_ID;
	  
	  IF SQL%FOUND THEN
	  	go_block('DUMMY');
  	SET_BLOCK_PROPERTY('DUMMY', DEFAULT_WHERE, 'GZGCDSC_ID = ''' || :DUAL.GZGCDSC_ID);
 		EXECUTE_QUERY;
		GO_ITEM('DUMMY.GZGVDSC_DSC_TYPE');
	  END IF;
	  
	  EXCEPTION 
	  	WHEN no_data_found THEN
	  		go_block('DUMMY');
	  		:DUMMY.GZGCDSC_ID := :DUAL.GZGCDSC_ID;
	  		:DUMMY.GZGCDSC_PIDM := :DUAL.GZGCDSC_PIDM;
	  		:DUMMY.GZGCDSC_TERM := :DUAL.GZCDESC_TERM;
	  		go_item('DUMMY.GZGVDSC_DSC_TYPE');
	
	WHEN others THEN
		MESSAGE(SQLERRM, SQLCODE);
	  END;

IF SQL%FOUND THEN

SET_BLOCK_PROPERTY('DUMMY', DEFAULT_WHERE, 'GZGCDSC_ID = ''' || :DUAL.GZGCDSC_ID);

begin
if :dummy.GZGCDSC_DSCS is null or :dummy.GZVDTYP_DSC_CODE is null or :dummy.GZGCDSC_MEETING_NO is null or :dummy.GZGCDSC_TERM is null then
MESSAGE('Fields cannot be left blank',ACKNOWLEDGE);
RAISE FORM_TRIGGER_FAILURE;
end if;
end;