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