Creating procedure -- can any one give help

Question

Dear All,
I am a new user of PL/SQL , I need your help in creating my procedure as I need to use it to extract a report for my department.
This report is to audit customer installment, getting his information for some tables , then add a new two columns in the extract which is Validation flag and violatin reason.
as follow
Cust Name    Account Number         Validation Flag            Violation reason
in valid. flag either to be yes or no, that mean this report has to check for some condition as depend on the result it set the validation to yes or no
the validation conditions (which mean customer is valid to have installement) :
- he should pay his bills on time_each month and this can be checked throw table.
- he should pay at least 3 invoices since he register in our company.
if the above conditinons passed the flag set to YES, if not the flag set to NO.
so please I need an Idea on how can I do this.
Your coorporation is much appeciated. Thank you
rgds,
red rose

Answer 1

Hi,
Try this PL/SQL block code.
declare
-- procedure to validate customer
-- flexible design (you can write validation rule as per your requiremet)
procedure po_validate_customer ( p_cname in varchar2
,p_anumber in varchar2
,p_vflag out varchar2
,p_vreason out varchar2)
is
v_rule1_flag boolean := false;
v_rule2_flag boolean := false;
cursor c_rule1 is
select 1 from tab1; -- write query to validate customer on rule 1
cursor c_rule2 is
select 1 from tab2; -- write query to validate customer on rule 2
begin
for i in c_rule1
loop
v_rule1_flag := true;
end loop;
for j in c_rule2
loop
v_rule2_flag := true;
end loop;
-- populate reason
if not v_rule1_flag then
p_vreason := 'Rule 1 failed';
end if;
if not v_rule2_flag then
p_vreason := p_vreson || 'Rule 2 failed';
end if;
-- populate flag
if v_rule1_flag and v_rule2_flag
then
p_vflag := 'YES';
else
p_vflag := 'NO';
end if;
end po_validate_customer;
-- Other VARIABLES
v_vflag varchar2(1);
v_vreason varchar2(30);
cursor c_cmast is
select * from customer_master; -- assuming no filter
begin
-- Create report output table
-- (if you don't want to drop output table use truncate)
execute immediate 'drop table report_tab';
execute immediate 'create table report_tab
(cname varchar2(30),anumber varchar2(30),
vflag varcahr2(1),vreason varchar2(30))';
-- Populate report output table
FOR i in c_cmast
LOOP
po_validate_custmer ( i.cname, i.anumber -- customer name and account number is input
v_flag, v_vreason );
-- create record in output table
insert into report_tab values (i.cname, i.anumber, v_vflag, v_vreason);
END LOOP;
-- Save your work
COMMIT;
end;
-------------------------------------------------------------------------------------------------------------------------------