Deklaratívny prístup
CREATE TABLE  T1(
ID SMALLINT,
DAT_NAR DATE,
DAT_NASTUPU,
…
PRIMARY KEY (ID),
CHECK DAT_NAR < DAT_NASTUPU
CHECK DAT_NASTUPU< TODAY
CHECK DAT_NASTUPU< DAT_NAR+15 YEAR


CREATE TABLE T1(
e INTEGER,
f INTEGER
);
DELETE FROM T1;
INSERT INTO T1 VALUES(1, 3);
INSERT INTO T1 VALUES(2, 4);
DECLARE
    a NUMBER;
    b NUMBER;
BEGIN
SELECT e,f INTO a,b FROM T1 WHERE e>1;
    INSERT INTO T1 VALUES(b,a);
END;	
.
run;



CREATE TABLE T1(
e INTEGER,
f INTEGER
);
DELETE FROM T1;
INSERT INTO T1 VALUES(1, 3);
INSERT INTO T1 VALUES(2, 4);
DECLARE
    a NUMBER;
    b NUMBER;
BEGIN
SELECT e,f INTO a,b FROM T1 WHERE e>1;
    INSERT INTO T1 VALUES(b,a);
END;	
.
run;

DECLARE
    a NUMBER;
    b NUMBER;
BEGIN
SELECT e,f INTO a,b FROM T1
 WHERE e>2;
    IF b=1 THEN
    INSERT INTO T1 VALUES(b,a);
    ELSE
   INSERT INTO T1 VALUES(b+10,a+10);
    END IF;
END;
.
run;


DECLARE
    x NUMBER := 5;
BEGIN
    LOOP
   INSERT INTO T1 VALUES(x,x*x);
    x := x+1;
EXIT WHEN x>20;
END LOOP;
END;
.
run;



declare 
	i number:=&i; 
                  kk number:=&kk; 
	j number;
     
 begin
  LOOP 

    j :=i*i;
     insert into t2 (b,k,l) values (2*i, i, j); 
    i:=i+1;
    exit when i>kk;
END LOOP;
end;.
run

select k"x1",l"f(x1)"
from t2
where k>0;



declare 
	i number:=1; 
	j number;
 begin
  for i in 1..10  LOOP 
    
    j :=i*i;
     insert into t2 (b, k,l) values (2*i, i, j); 
    
END LOOP;
end;

select k"x1",l"f(x1)"
from t2
where k>0;


declare 
	i number:=1; 
	j number;
 begin
  LOOP 

    j :=i*i;
     insert into t2 (b,k,l) values (2*i, i, j); 
    i:=i+1;
    exit when i>10;
END LOOP;
end;