loopif credit_rating < 3 then..exit;end if;
end loop;

select to_char(sysdate, 'YYYY-MM-DD HH24:MI:SS') from dual;
select cast(sysdate as timestamp) from dual;

declaretypeemp_record_typeis record(r_name emp.ename%type,r_job emp.job%type);emp_record emp_record_type;
beginselect t.ename, t.job into emp_record from emp t where t.empno = '7369';dbms_output.put_line('ename = ' || emp_record.r_name || ', r_job = ' || emp_record.r_job);
end;
/ 

declaretypeemp_table_typeis table ofemp.ename%typeindex by binary_integer;emp_table emp_table_type;
beginselect ename into emp_table(0) from emp where empno = '7369';dbms_output.put_line('ename = ' || emp_table(0));
end;
/

create or replace type item_type as object
(t_username varchar2(20),t_password varchar2(20),t_age smallint
);
declaretype itemtable is table of item_type;v_table itemtable := itemtable();
beginv_table.extend;v_table(v_table.last) := item_type('dys', 'dys123', 10);
end;

create or replace type itemtable is table of Item_Type;
create table TestTable
(address varchar2(100),phoneNumber varchar2(11),itemList itemtable
)
nested table itemList store as itemList;

create or replace type idArray_Type as varray(100) of number;create or replace type item_type as object
(v_itemCode char(10),v_name varchar2(20)
);create or replace type itemArray as varray(10) of item_type;create table TestT
(v_id number(8),items itemArray
)

declarev_id number(8) := 10;v_username varchar2(20);
begindelete from A;insert into A values(v_id, 'ding', 'ding123');select username into v_username from A where id = v_id;dbms_output.put_line('v_username = ' || v_username);exceptionwhen no_data_found thendbms_output.put_line('no data');
end;
/

declarePI constant number(9) := 3.1415926;
begincommit;
end;

declareage number(3) := 26;
begincommit;
end;

emp.empno%type
emp%rowtype

if sales > 10 thencompute_bonus(empid);update payroll set pay = pay + bonus where empno = emp_id;
end if;

if trans_type = 'CR' thenupdate accounts set balance = balance + debit where ...
elseupdate accounts set balance = balance - debit wehre ...
end if;

if trans_type = 'CR' thenupdate accounts set balance = balance - debit where ...
elseif new_balance >= minimum_balance thenupdate accounts set balance = balance - debit where ...elseraise insufficient_funds;end if;
end if;

beginif sales > 50000 thenbonus := 1500;elsif sales > 35000 thenbonus := 500;elsebonus := 100;end if;insert into payroll values(emp_id, bonus...);
end;

case gradewhen 'A' thendbms_output.put_line('A');when 'B' thendbms_output.put_line('B');elsedbms_output_put_line('wrong!');
end case;

casewhen grade = 'A' thendbms_output.put_line('A');when grade = 'B' thendbms_output.put_line('B');elsedbms_output.put_line(''wrong!);
end case;

loop....
end loop;

loopif a > 3 then...exit;end if;
end loop;

loopfetch c1 into ...exit  when c1%notfound;...
end loop;
close c1;

if a > 100 thenexit;
end if;-----------------------------------------------------------
exit when a > 100;

<<outer>>
loop...loop...exit outer when ...end loop;
end loop outer;

while a < 100 loop...select sal into salary from emp where x = x;...total := total + salary;
end loop;

loop...exit when a > 10;
end loop;
--------------------------------------------
do{
} while()
---------------------------------------------
done := false;
while not done loop....done := boolean_expression;
end loop;

declaretype datelist is table of date index by binary_integer;dates datelist;k constant integer := 5;
beginfor j in 1 .. 3 loopdates(j * k) := sysdate;end loop;
end;

select count(empno) into emp_count from emp;
for i in 1 .. emp_count loop...
end loop;
-----------------------------------------------------------
<<main>>
declarectr integer;
begin...for ctr in 1 .. 25 loop...if main.ctr > 10 then...end if;end loop;
end main;

for j in 1 .. 10 loopfetch cl into emp_rec;exit when cl%notfound;...
end loop;
-------------------------------------------------
<<outer>>
for i in 1 .. 5 loop...for j in 1 .. 10 loopfetch cl into emp_rec;exit outer when cl%notfound;...end loop;
end loop outer;

declaredone boolean;for i in 1 .. 10 loopif done thengoto end_loop;end if;...<<end_loop>>null;end loop;
endl;

declaremy_ename char(10);
begin<<get_name>>select ename into my_ename from emp wher ...begin...goto get_name;end;
end;

exceptionwhen zero_divide thenrollback;when value_error theninsert into errors values...when others thennull;

if rating > 90 thencompute_bonus(emp_id);
elsenull
end if;