Есть такая процедурка:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
CREATE PROCEDURE "dts8002_GetObjList" (
"iAction" INTEGER,
"iState" INTEGER)
RETURNS (
"ID" INTEGER,
"Type" INTEGER,
"Owner" INTEGER,
"HasSlave" SMALLINT,
"Attr" INTEGER,
"NA" SMALLINT,
"Name" VARCHAR( 255 ),
"ObjType" VARCHAR( 255 ))
AS
DECLARE VARIABLE "TC" VARCHAR( 80 );
DECLARE VARIABLE "ShwActive" SMALLINT;
DECLARE VARIABLE "ShwDeleted" SMALLINT;
BEGIN
if ( "_and_" (: "iState" , 16 )= 16 ) then "TC" ='8002%'; else "TC" ='8002';
if ( "_and_" (: "iState" , 1 )= 1 ) then "ShwActive" = 0 ; else "ShwActive" =null;
if ( "_and_" (: "iState" , 2 )= 2 ) then "ShwDeleted" = 1 ; else "ShwDeleted" =null;
/*...*/
if ( "iAction" = 1 ) then begin
for select obj. "ID" , obj. "Type" , obj. "Owner" , obj. "HasSlave" , obj. "Attr" , obj. "NA"
from "kdDBType" typ
join "dtObject" obj on obj. "Type" =typ. "ID" and (obj. "NA" =: "ShwActive" or obj. "NA" =: "ShwDeleted" )
-- where typ."TypeCode" like case "_and_"(:"iState",16) when 16 then "8002%" else "8002" end
where typ. "TypeCode" like : "TC"
-- PLAN SORT (JOIN (TYP "kdDBType_t" INDEX ("kdDBType_U02"),
-- OBJ "dtObject_t" INDEX ("dtObject_F02_kdDBType")))
order by obj. "ID"
into : "ID" , : "Type" , : "Owner" , : "HasSlave" , : "Attr" , : "NA" do begin
suspend;
end
exit;
end
/*...*/
END
Теперь вопросы:
1. Планы для запросов с переменными вообще работают? Или я туплю? :)) Ведь если подставить вместо переменной
"TC" строковое значение, то закомментированный план становится валидным, иначе только
NATURAL , что мне не очень нравится... :(((
2. В закомментированном условии
WHERE не выполняется условие по
else :(( Что я неправильно пишу? Или
like с
case 'ом не арбайтен?
P.S. Блин, пришлось строковые переменные в закомментированном куске процедуры взять в двойные кавычки иначе в предварительном просмотре получается:
-- where typ."TypeCode" like case "_and_"(:"iState",16) when 16 then %af_src_str_2 else %af_src_str_3 end
Адинистрация, можно это поправить?
