select_statement_ss_select : 
	KW_SELECT op_first op_ad { 
		//start_bind('i',0);
		 set_ignore_indicators();} select_list_slil  { clr_ignore_indicators();}
        opt_into_sel 
	table_expression_2_select sel_p2_select sel_finish_sf {


		$<s_select>$=$<s_select>8;
		if ($<integer_val>2!=-1) {
			$<s_select>$->limit.start=1;
			$<s_select>$->limit.end=$<integer_val>2;
		}
		$<s_select>$->modifier=acl_strdup($<str>3);
		A4GL_set_associated_mem($<s_select>$, $<s_select>$->modifier);
		$<s_select>$->into=$<ptr_list>7;
		$<s_select>$->select_list=$<s_select_list_item_list>5;
		$<s_select>$->next=$<s_select>9;
		$<s_select>$->sf=$<s_select_finish>10;
		A4GL_set_associated_mem($<s_select>$, $<s_select>$->sf);
}
;


union_select_statement2_ss: 
	KW_SELECT op_first op_ad select_list_slil
	table_expression_2_select sel_p2_select  {
	        $<s_select>$=$<s_select>5;
                $<s_select>$->modifier=acl_strdup($<str>3);
		A4GL_set_associated_mem($<s_select>$, $<s_select>$->modifier);
		if ($<integer_val>2!=-1) {
			$<s_select>$->limit.start=1;
			$<s_select>$->limit.end=$<integer_val>2;
		}
                $<s_select>$->into=0;
                $<s_select>$->select_list=$<s_select_list_item_list>4;
		$<s_select>$->next=$<s_select>6;
	}
;


uu_select_statement21_select:
	KW_SELECT op_first op_ad select_list_slil table_expression_2_select sel_p2_select sel_ordby_unload_slil {
		struct s_select_finish *sf;
               struct s_select *s1;
               s1=$<s_select>5;
               s1->modifier=acl_strdup($<str>3);
		A4GL_set_associated_mem(s1, s1->modifier);
               s1->into=0; 
               s1->select_list=$<s_select_list_item_list>4;
               s1->next=$<s_select>6;
		if ($<integer_val>2!=-1) {
			s1->limit.start=1;
			s1->limit.end=$<integer_val>2;
		}
		sf=acl_malloc2(sizeof(struct s_select_finish));
		sf->into_temp=0;
		sf->nolog=0;
		sf->insert_into=0;
		sf->order_by=$<s_select_list_item_list>7;
		s1->sf=sf;
		A4GL_set_associated_mem(s1,s1->sf);
		A4GL_set_sql_lineno(yylineno);
		$<ptr>$=A4GL_new_select_list_item_expr(new_select_list_query(s1));
		map_select_stmt("SELECT",$<s_select>$);
}
;


sel_p2_select : { $<s_select>$=0;}
	| UNION op_u_all union_select_statement2_ss { 
		$<s_select>$=$<s_select>3;
		$<s_select>$->union_op=acl_strdup($<str>2);
		A4GL_set_associated_mem($<s_select>$, $<s_select>$->union_op);
		add_feature("SELECT_UNION"); 
	}
;


sel_ordby_unload_slil: {$<s_select_list_item_list>$=0;}
	| order_by_clause_slil {  $<s_select_list_item_list>$=$<s_select_list_item_list>1;}
;


sel_finish_sf: {
		$<s_select_finish>$=0;
	}
	| order_by_clause_slil  {  
		$<s_select_finish>$=acl_malloc2(sizeof(struct s_select_finish));
		$<s_select_finish>$->order_by=$<s_select_list_item_list>1;
		$<s_select_finish>$->insert_into=0;
		$<s_select_finish>$->into_temp=0;
		$<s_select_finish>$->nolog=0;
	}
	| order_by_clause_slil INTO_TEMP tmp_tabname op_no_log_i { 
		$<s_select_finish>$=acl_malloc2(sizeof(struct s_select_finish));
		add_feature("SELECT_INTO_TEMP_ORDER_BY");
		$<s_select_finish>$->order_by=$<s_select_list_item_list>1;
		$<s_select_finish>$->insert_into=0;
		$<s_select_finish>$->into_temp=strdup($<str>3);
		A4GL_set_associated_mem($<s_select_finish>$, $<s_select_finish>$->into_temp);
		$<s_select_finish>$->nolog=$<integer_val>4;

	}
	| INTO_TEMP tmp_tabname op_no_log_i { 
		$<s_select_finish>$=acl_malloc2(sizeof(struct s_select_finish));
		add_feature("SELECT_INTO_TEMP");
		$<s_select_finish>$->order_by=0;
		$<s_select_finish>$->into_temp=strdup($<str>2);
		A4GL_set_associated_mem($<s_select_finish>$, $<s_select_finish>$->into_temp);
		$<s_select_finish>$->insert_into=0;
		$<s_select_finish>$->nolog=$<integer_val>3;
} 
;


tmp_tabname: identifier;




query_specification_select:
	KW_SELECT op_first op_ad select_list_slil table_expression_2_select {
		$<s_select>$=$<s_select>5;
		if ($<integer_val>2!=-1) {
			$<s_select>$->limit.start=1;
			$<s_select>$->limit.end=$<integer_val>2;
		}
		$<s_select>$->modifier=acl_strdup($<str>3);
		A4GL_set_associated_mem($<s_select>$, $<s_select>$->modifier);
		$<s_select>$->select_list=$<s_select_list_item_list>4;
	}
;

subquery_sli:
	OPEN_BRACKET_SELECT op_first op_ad select_list_slil table_expression_2_select CLOSE_BRACKET {
		$<s_select>$=$<s_select>5;
		if ($<integer_val>2!=-1) {
			$<s_select>$->limit.start=1;
			$<s_select>$->limit.end=$<integer_val>2;
		}
		$<s_select>$->modifier=acl_strdup($<str>3);
		A4GL_set_associated_mem($<s_select>$, $<s_select>$->modifier);
		$<s_select>$->select_list=$<s_select_list_item_list>4;
		$<s_select_list_item>$=new_select_list_subquery($<s_select>$);
	}
;


op_first : 
	{$<integer_val>$=-1;}
	|
	 KW_FIRST INT_VALUE {
		$<integer_val>$=atol($<str>2);
	} 
	
;

op_ad: {strcpy($<str>$,"");}
	| ALL {strcpy($<str>$,"ALL"); add_feature("SELECT_ALL");}
	| DISTINCT {strcpy($<str>$,"DISTINCT"); add_feature("SELECT_DISTINCT");}
	| UNIQUE {strcpy($<str>$,"DISTINCT");
		add_feature("SELECT_UNIQUE");
		ansi_violation("Use DISTINCT not UNIQUE",0);
		strcpy($<str>$,"DISTINCT");
	}

;


select_list_slil: 
	unexpanded_select_list_slil {
			$<s_select_list_item_list>$=rationalize_select_list_item_list($<s_select_list_item_list>1);
		}
;


unexpanded_select_list_slil:
	value_expression_pls_sli  { 
		 $<s_select_list_item_list>$=local_new_select_list_item_list($<s_select_list_item>1);
	}
	| select_list_slil KW_COMMA value_expression_pls_sli { 
		$<s_select_list_item_list>$=local_add_select_list_item_list($<s_select_list_item_list>1,$<s_select_list_item>3);
	}	
;

value_expression_pls_sli : 
	value_expression_sli {
		$<s_select_list_item>$=$<s_select_list_item>1;
	}
	| value_expression_sli  identifier {
		$<s_select_list_item>$=$<s_select_list_item>1;
		$<s_select_list_item>$->alias=acl_strdup($<str>2);
		A4GL_set_associated_mem($<s_select_list_item>$, $<s_select_list_item>$->alias);
	}
	| value_expression_sli KW_AS identifier {
		$<s_select_list_item>$=$<s_select_list_item>1;
		$<s_select_list_item>$->alias=acl_strdup($<str>3);
		A4GL_set_associated_mem($<s_select_list_item>$, $<s_select_list_item>$->alias);
	}
;


value_expression_sli:
	value_expression_initial_sli {
		$<s_select_list_item>$=$<s_select_list_item>1; /* A4GLSQLCV_check_expr($<sql_string>1) */
	}
	| KW_MINUS value_expression_initial_sli {
		$<s_select_list_item>$=$<s_select_list_item>2;
		$<s_select_list_item>$->sign='-';
	}
	| KW_PLUS value_expression_initial_sli {
		$<s_select_list_item>$=$<s_select_list_item>2;
	}
;


value_expression_complex_sli :
	value_expression_initial_sli KW_DIVIDE value_expression_sli {
			$<s_select_list_item>$=new_select_list_item_op_expr ($<s_select_list_item>1, $<s_select_list_item>3, "/");
	}
	| value_expression_initial_sli units_qual_i {
			$<s_select_list_item>$=new_select_list_item_simple_expr((enum e_sli)$<integer_val>2, $<s_select_list_item>1);
	}
	| value_expression_initial_sli KW_MULTIPLY value_expression_sli {
			$<s_select_list_item>$=new_select_list_item_op_expr ($<s_select_list_item>1, $<s_select_list_item>3, "*");
	}
	| value_expression_initial_sli KW_PLUS value_expression_sli {
			$<s_select_list_item>$=new_select_list_item_op_expr ($<s_select_list_item>1, $<s_select_list_item>3, "+");
	}
	| value_expression_initial_sli KW_MINUS value_expression_sli {
			$<s_select_list_item>$=new_select_list_item_op_expr ($<s_select_list_item>1, $<s_select_list_item>3, "-");
	}
	| value_expression_initial_sli CONCAT_PIPES value_expression_sli {
			$<s_select_list_item>$=new_select_list_item_op_expr ($<s_select_list_item>1, $<s_select_list_item>3, "||");
	}
	| literal 		{ $<s_select_list_item>$=new_select_list_item_literal($<str>1); }
	| KW_TRUE 		{ $<s_select_list_item>$=new_select_list_item_builtin_const(E_SLI_BUILTIN_CONST_TRUE); }
	| KW_FALSE 		{ $<s_select_list_item>$=new_select_list_item_builtin_const(E_SLI_BUILTIN_CONST_FALSE); }
	| USER 			{ $<s_select_list_item>$=new_select_list_item_builtin_const(E_SLI_BUILTIN_CONST_USER); }
	| KW_TODAY 		{ $<s_select_list_item>$=new_select_list_item_builtin_const(E_SLI_BUILTIN_CONST_TODAY); }
 	| KW_ROWID              { $<s_select_list_item>$=new_select_list_item_builtin_const(E_SLI_BUILTIN_CONST_ROWID); }
	| TIME 			{ $<s_select_list_item>$=new_select_list_item_builtin_const(E_SLI_BUILTIN_CONST_TIME); }
	| KW_MULTIPLY 		{ $<s_select_list_item>$=new_select_list_item_builtin_const(E_SLI_BUILTIN_CONST_STAR); }
	| COUNT_MULTIPLY 	{ $<s_select_list_item>$=new_select_list_item_builtin_const(E_SLI_BUILTIN_CONST_COUNT_STAR); }

 	| AVG OPEN_BRACKET op_all value_expression_sli CLOSE_BRACKET {
		$<s_select_list_item>$=new_select_list_item_agg1(E_SLI_BUILTIN_AGG_AVG,$<str>3,$<s_select_list_item>4);
		add_feature("SELECT_AVG");
	}
	| XMAX OPEN_BRACKET op_all value_expression_sli CLOSE_BRACKET {
		$<s_select_list_item>$=new_select_list_item_agg1(E_SLI_BUILTIN_AGG_MAX,$<str>3,$<s_select_list_item>4);
		add_feature("SELECT_MAX");
	}
	| XMIN OPEN_BRACKET op_all value_expression_sli CLOSE_BRACKET {
		$<s_select_list_item>$=new_select_list_item_agg1(E_SLI_BUILTIN_AGG_MIN,$<str>3,$<s_select_list_item>4);
		add_feature("SELECT_MIN");
	}
	| KW_SUM OPEN_BRACKET op_all value_expression_sli CLOSE_BRACKET {
		$<s_select_list_item>$=new_select_list_item_agg1(E_SLI_BUILTIN_AGG_SUM,$<str>3,$<s_select_list_item>4);
		add_feature("SELECT_SUM");
	}
	| COUNT OPEN_BRACKET op_all value_expression_sli CLOSE_BRACKET {
		$<s_select_list_item>$=new_select_list_item_agg1(E_SLI_BUILTIN_AGG_COUNT,$<str>3,$<s_select_list_item>4);
		add_feature("SELECT_COUNT");
	}
	| NAMED OPEN_BRACKET CLOSE_BRACKET {
		add_sql_function($<str>1);
		$<s_select_list_item>$=new_select_list_item_fcall($<str>1,0);
	}
	| NAMED OPEN_BRACKET value_expr_list_slil CLOSE_BRACKET {
		add_sql_function($<str>1);
		$<s_select_list_item>$=new_select_list_item_fcall($<str>1,$<s_select_list_item_list>3);
	}
	| YEAR OPEN_BRACKET value_expr_list_slil CLOSE_BRACKET {
		$<s_select_list_item>$=new_select_list_item_builtin_fcall(E_SLI_BUILTIN_FUNC_YEAR,$<s_select_list_item_list>3);
	}
	| MONTH OPEN_BRACKET value_expr_list_slil CLOSE_BRACKET {
		$<s_select_list_item>$=new_select_list_item_builtin_fcall(E_SLI_BUILTIN_FUNC_MONTH,$<s_select_list_item_list>3);
	}
	| DAY OPEN_BRACKET value_expr_list_slil CLOSE_BRACKET {
		$<s_select_list_item>$=new_select_list_item_builtin_fcall(E_SLI_BUILTIN_FUNC_DAY,$<s_select_list_item_list>3);
	}
	| MDY OPEN_BRACKET value_expr_list_slil CLOSE_BRACKET {
		$<s_select_list_item>$=new_select_list_item_builtin_fcall(E_SLI_BUILTIN_FUNC_MDY,$<s_select_list_item_list>3);
	}
	| WEEKDAY OPEN_BRACKET value_expr_list_slil CLOSE_BRACKET {
		$<s_select_list_item>$=new_select_list_item_builtin_fcall(E_SLI_BUILTIN_FUNC_WEEKDAY,$<s_select_list_item_list>3);
	}
	| KW_DOW OPEN_BRACKET value_expr_list_slil CLOSE_BRACKET {
		$<s_select_list_item>$=new_select_list_item_builtin_fcall(E_SLI_BUILTIN_FUNC_DOW,$<s_select_list_item_list>3);
	}
	| KW_DATE OPEN_BRACKET value_expr_list_slil CLOSE_BRACKET {
		$<s_select_list_item>$=new_select_list_item_builtin_fcall(E_SLI_BUILTIN_FUNC_DATE,$<s_select_list_item_list>3);
	}
	| OPEN_BRACKET value_expression_sli CLOSE_BRACKET {
		  $<s_select_list_item>$=new_select_list_item_simple_expr(E_SLI_BRACKET_EXPR,$<s_select_list_item>2);
	}
	| EXTEND OPEN_BRACKET extend_qual_sli CLOSE_BRACKET { 
		add_feature("EXTEND"); 
		$<s_select_list_item>$=$<s_select_list_item>3;
	}
	| datetime_value_qualified { 
		$<s_select_list_item>$=new_select_list_item_datetime($<str>1);
		add_feature("FUNC_DATETIME");
	}
	| interval_value_qualified {
		$<s_select_list_item>$=new_select_list_item_interval($<str>1);
		add_feature("FUNC_INTERVAL");
	}
	| CASE sql_case_stmt END {
		$<s_select_list_item>$=$<s_select_list_item>2;
	}
	| CASE search_condition_sli sql_case_stmt END {
		$<s_select_list_item>3->data.s_select_list_item_data_u.sqlcase.master_condition=$<s_select_list_item>2;
		$<s_select_list_item>$=$<s_select_list_item>3;
	}
;



sql_case_stmt :
	sql_case_stmt_element {
		$<s_select_list_item>$=new_select_list_item_case($<s_select_list_item>1);
	}
	| sql_case_stmt sql_case_stmt_element {
		$<s_select_list_item>$=append_select_list_item_case(
							$<s_select_list_item>1,
							$<s_select_list_item>2);
	}
;


sql_case_stmt_element: 
	WHEN search_condition_sli KW_THEN value_expression_sli {
		$<s_select_list_item>$=new_select_list_item_case_element(
				$<s_select_list_item>2,
				$<s_select_list_item>4);

	}
	| ELSE value_expression_sli {
		$<s_select_list_item>$=new_select_list_item_case_element( 0, $<s_select_list_item>2);
	}
;


value_expr_list_slil : 
	value_expression_sli {
		$<s_select_list_item_list>$=local_new_select_list_item_list($<s_select_list_item>1);
	}
	| value_expr_list_slil KW_COMMA value_expression_sli {
			$<s_select_list_item_list>$=local_add_select_list_item_list($<s_select_list_item_list>1,$<s_select_list_item>3);
	}
	
;


















op_extend_from_to: 
 	{$<str_list>$=NULL;}
	| KW_COMMA s_curr KW_TO e_curr  { $<str_list>$=new_str_list($<str>2);  add_str_list($<str_list>$,$<str>4);}
	| s_curr KW_TO e_curr  { $<str_list>$=new_str_list($<str>1);  add_str_list($<str_list>$,$<str>3);} 
;

extend_qual_sli:
        | var_ident_ibind_sli op_extend_from_to {
			$<s_select_list_item>$=new_select_list_item_extend($<s_select_list_item>1,$<str_list>2);
	}
	| value_expression_sli op_extend_from_to {
			$<s_select_list_item>$=new_select_list_item_extend($<s_select_list_item>1,$<str_list>2);
	}
;

units_qual_i :
        UNITS_YEAR 	{$<integer_val>$=E_SLI_UNITS_YEAR;}
        | UNITS_MONTH 	{$<integer_val>$=E_SLI_UNITS_MONTH;}
        | UNITS_DAY 	{$<integer_val>$=E_SLI_UNITS_DAY;}
        | UNITS_HOUR 	{$<integer_val>$=E_SLI_UNITS_HOUR;}
        | UNITS_MINUTE 	{$<integer_val>$=E_SLI_UNITS_MINUTE;}
        | UNITS_SECOND 	{$<integer_val>$=E_SLI_UNITS_SECOND;}
;


in_predicate_sli:
        value_expression_sli KW_IN OPEN_BRACKET in_value_list_slil CLOSE_BRACKET {
		$<s_select_list_item>$=new_select_list_item_op_slil($<s_select_list_item>1,$<s_select_list_item_list>4,E_SLI_IN_VALUES);
                add_feature("WHERE_IN");
        }
        | value_expression_sli KW_IN subquery_sli {
		$<s_select_list_item>$=new_select_list_item_op_sli($<s_select_list_item>1,$<s_select_list_item>3,E_SLI_IN_SELECT);
                add_feature("WHERE_IN_SELECT");
        }
        | value_expression_sli NOT_IN OPEN_BRACKET in_value_list_slil CLOSE_BRACKET {
		$<s_select_list_item>$=new_select_list_item_op_slil($<s_select_list_item>1,$<s_select_list_item_list>4,E_SLI_NOT_IN_VALUES);
                add_feature("WHERE_IN");
        }
        | value_expression_sli NOT_IN subquery_sli {
		$<s_select_list_item>$=new_select_list_item_op_sli($<s_select_list_item>1,$<s_select_list_item>3,E_SLI_NOT_IN_SELECT);
                add_feature("WHERE_IN_SELECT");
        }
;

in_value_list_slil:
	in_value_specification_sli {
		$<s_select_list_item_list>$=local_new_select_list_item_list($<s_select_list_item>1);
	}
        | in_value_list_slil KW_COMMA in_value_specification_sli {
                $<s_select_list_item_list>$=local_add_select_list_item_list($<s_select_list_item_list>1,$<s_select_list_item>3);
	}
;

in_value_specification_sli : var_ident_ibind_sli { $<s_select_list_item>$=$<s_select_list_item>1;}
         | literal { $<s_select_list_item>$=new_select_list_item_literal($<str>1); }
	 | KW_MINUS INT_VALUE { 
		char buff[256]; SPRINTF1(buff," -%s",$<str>2); $<s_select_list_item>$=new_select_list_item_literal(buff); }
	 | KW_MINUS  real_number { char buff[256]; SPRINTF1(buff," -%s",$<str>2); $<s_select_list_item>$=new_select_list_item_literal(buff); }
;



/* ========================= select.rule ================================ */