Form for password changing. code problem

Question

hi dears,
i am using forms6i. i was making a form for password changing purpose. i've written this code this is successfully compiled but it is not changing the password. wil u plz tell me where is the problem.
declare
     v_user varchar2(50);
     v_oldpassword varchar2(50);
     v_var2 varchar2(50);
     v_leng number(3);
begin
     v_oldpassword := get_application_property(password);
     v_user:=user;
     v_var2:=upper(:password_old);
     if v_var2<>v_oldpassword then
     message ('Old Password Is Not Correct...');
     message ('Old Password Is Not Correct...');
     raise form_trigger_failure;
     end if;
     if :password1<>:password2 then
          message ('Typed Passwords Are Not The Same...');
          message ('Typed Passwords Are Not The Same...');
          raise form_trigger_failure;
     end if;
     v_leng:=length(:password2);
     if :password1=:password2 and v_leng<=3 then
     message ('Password Must Have Four Characters...');
     message ('Password Must Have Four Characters...');
          raise form_trigger_failure;
     end if;
     if v_var2=v_oldpassword and :password1=:password2 then
     FORMS_DDL('alter user ' || v_user || ' identified by ' ||:password.password2);
     message ('Password Is Changed... Please Restart The Oracle Applications...');
     end if;
end;
COMMIT;
LOGOUT;
thanks

Answer 1

Hi dear,
Please use this code to change your password:
declare
v_user varchar2(50);
v_oldpassword varchar2(50);
v_var2 varchar2(50);
v_leng number(3);
begin
v_oldpassword := get_application_property(password);
v_user:=user;
v_var2:=upper(:password_old);
v_leng:=length(:password2);
if v_var2 != v_oldpassword then
message ('Old Password Is Not Correct...');
message ('Old Password Is Not Correct...');
raise form_trigger_failure;
elsif
:password1 != :password2 then
message ('Typed Passwords Are Not The Same...');
message ('Typed Passwords Are Not The Same...');
raise form_trigger_failure;
elsif
:password1=:password2 and nvl(v_leng,0) <=3 then
message ('Password Must Have Four Characters...');
message ('Password Must Have Four Characters...');
raise form_trigger_failure;
elsif
v_var2 = v_oldpassword and :password1 = :password2 then
FORMS_DDL('alter user ' || v_user || ' identified by ' ||:password.password2);
message ('Password Is Changed... Please Restart The Oracle Applications...');
end if;
end;