SELECT & VARIABLE

With Informix 4GL, you have to dynamically build a cursor and then execute it using a FOREACH loop or an OPEN cursor/FETCH:


For production code, you probably want to check that the PREPARE and DECLARE actually worked.

Thanks, but "t" is VARIABLE, no table name...

Yes, I know it is; variable "t" equals "qwerty". After this string manipulation:


tmp_str now equals this string:


Now, in order to execute that string, you need to set up a cursor as I outlined.

Thanks, but I do not understant...:

"t" is VARIABLE name, no TABLE name...

This is sample in Oracle:

declare
actual_date date;
t char(10) := 'qwerty';
begin
select sysdate, t
into actual_date, t
from dual;

dbms_output.put_line(actual_date||' '||t);
end;

/* result: 10.03.08 qwerty */

OK, but I'm not able create it in Informix 4GL...???

In Oracle (OK, code is ready):

declare
actual_date date;
t char(10) := 'qwerty';
x char(10);
begin
select sysdate, t
into actual_date, x
from dual;

dbms_output.put_line(actual_date||' '||x);
end;

---------------------------------

In Informix 4GL (error: 201):

DATABASE xyz;

DEFINE
actual_date DATE,
t CHAR(10),
x CHAR(10);

MAIN
LET t = 'qwerty';

SELECT CURRENT, t
INTO actual_date, x
FROM dual;

DISPLAY actual_date, ' ', x;
END MAIN

HELP ME, PLEASE...

HELP ME, PLEASE...
1) Try to make sense with olded's post (6 Mar 08 11:22).
2) There is no dual pseudo table in Informix.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

Thanks, but DUAL is ready in Informix...

This Informix code (without "t") is ready:

DATABASE xyz;

DEFINE
actual_date DATE,
t CHAR(10),
x CHAR(10),
text CHAR(1000);

MAIN
LET t = 'qwerty';

LET text =
'SELECT CURRENT'||
' FROM dual' CLIPPED;
PREPARE prp01 FROM text;
DECLARE cur01 CURSOR FOR prp01;

FOREACH cur01 INTO actual_date
DISPLAY actual_date;
END FOREACH;
END MAIN

----------------------------------------------

This Informix code (with "t") is bad (error -217):

DATABASE vlakovka;

DEFINE
actual_date DATE,
t CHAR(10),
x CHAR(10),
text CHAR(1000);

MAIN
LET t = 'qwerty';

LET text =
'SELECT CURRENT, t'||
' FROM dual' CLIPPED;
PREPARE prp01 FROM text;
DECLARE cur01 CURSOR FOR prp01;

FOREACH cur01 INTO actual_date, x
DISPLAY actual_date, ' ', x;
END FOREACH;
END MAIN

Sorry, database name is mystake. Database name is "xyz" for together samplas...

What about this ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

Thanks !!!! Code is READY...