lcDate=date()
lcScript=[select * from mytable where pdate=?lcDate]

lcDate0=datetime()
lcDate=DTOT(lcDate0)
lcScript=[select * from mytable where pdate=?lcDate]

SELECT 0
CREATE CURSOR cData (pdate d null, nsum n(15,2))
INSERT INTO cData (pdate, nsum) VALUES (null, 1525)
INSERT INTO cData (pdate, nsum) VALUES ({^2023-04-12}, 5545.55)

SET TERM ^;
CREATE PROCEDURE USERS (
    tcnalogin d_char10,
    tcpassw d_char5,
    tcnalast d_char40
    )
as
begin
    CREATE USER :TCNALOGIN PASSWORD :TCPASSW  LASTNAME :TCNALAST ^
end^
SET TERM ;^

create or alter procedure ADD_USER_TEST (
    TCNALOGIN varchar(10),
    TCPASSW varchar(5),
    TCNALAST varchar(40))
as
declare variable LCQUERYTEXT varchar(300);
begin
  lcquerytext = 'CREATE USER ' || trim(:tcnalogin) || ' PASSWORD ''' || trim(:tcpassw) || ''' LASTNAME ''' || trim(:tcnalast) || '''';

  execute statement :lcquerytext;

--  suspend;
end