©
Mike Moxcey
1999
PL/SQL abbreviated example
The stuff in italics is critical
@sql_code =<<ENDOFSQL;
set verify off;
set serveroutput on;
begin declare (variables and cursors such as)
row_cnt NUMBER(4);
cursor c_call_info IS
select ...
begin
dbms_output.enable(1000000);
for call_rec in c_call_info LOOP
row_cnt := c_call_info%ROWCOUNT;
process (IF THEN) and print when needed
dbms_output.put_line('
'yadda,yadda,yadda');
END LOOP;
IF row_cnt > 0 THEN
dbms_output.put_line('
'yadda,yadda,yadda');
ELSE
dbms_output.put_line(' *** No data for $input_vals ***');
END IF;
end;
end;
/ (this final slash is critical)
ENDOFSQL
home
next