asked on
PROC_employee_DESC(PRAMA1,
PRAMA2,
PRAMA3,
PRAMA4);
this si the procedure giving error how can i handle that exception is there a better way
PROCEDURE PROC_employee_DESC (PRAMA1 in out varchar2,
PRAMA2 in out varchar2,
PRAMA3 out varchar2,
PRAMA4 out varchar2) IS
BEGIN
DECLARE
wrk_param1 NUMBER(11);
wrk_param2 VARCHAR2(8);
wrk_err_param_msg VARCHAR2(80);
wrk_param VARCHAR2(7);
wrk_pram3 VARCHAR2(200);
wrk_param4 VARCHAR2(1);
wrk_err_param5 VARCHAR2(1);
wrk_param6 NUMBER(2);
wrk_param7 hr.employee%type;
wrk_param8 VARCHAR2(1);
wrk_param9 VARCHAR2(1);
wrk_param10 VARCHAR2(3);
wrk_param11 VARCHAR2(1);
wrk_param12 VARCHAR2(2);
wrk_param13 NUMBER(11,2);
wrk_param14 VARCHAR2(1);
wrk_param15 VARCHAR2(1);
wrk_param16 VARCHAR2(1);
wrk_param17 VARCHAR2(1);
wrk_param18 VARCHAR2(1);
wrk_param19 VARCHAR2(1);
wrk_param20 VARCHAR2(1);
wrk_param21 VARCHAR2(80);
wrk_param22 varchar2(16);
wrk_date_param1 DATE;
wrk_name_param VARCHAR2(1);
struc_prama varchar2(1);
pref_param1 varchar2(1);
mit_param2 varchar2(1);
crit_param3 varchar2(1);
param_ind varchar2(1);
param_cde varchar2(1);
pram_mtl_param varchar2(1);
itm_param1 varchar2(1);
itm_param2 varchar2(1);
ets_param123 varchar2(1);
wrk_param131 varchar2(2);
wrk_paream12 varchar2(1);
BEGIN
-- message('CALLINGSTORE');
VALIDATION_2
(wrk_param1,
PRAMA1,
wrk_date_param1,
PRAMA2,
wrk_pram3,
wrk_param4,
wrk_err_ind,
wrk_err_cde,
wrk_err_param_msg,
wrk_com_cde,
wrk_param8,
wrk_itm_stat_cde,
wrk_param10,
wrk_param11,
wrk_param12,
wrk_param13,
wrk_param14,
wrk_param15,
wrk_param16,
wrk_param17,
wrk_param18,
wrk_lsar_ws_item,
wrk_param20 ,
wrk_param21,
struc_prama,
pref_param1,
mit_param2,
crit_param3,
param_ind,
param_cde,
pram_mtl_param,
itm_param1,
itm_param2,
ets_param123,
wrk_param131,
wrk_paream12);
IF wrk_err_param5= 'Y' THEN
PRAMA3 := wrk_err_ind;
PRAMA4 := wrk_err_param_msg;
message(PRAMA4);
raise form_trigger_failure;
ELSE
PRAMA2 := wrk_pram3;
END IF;
END ;
END;