Script To Reset User Application Password

DECLARE
      L_Ret_Val Boolean;
      L_User_Name   Varchar2(50) := 'IMSPROC';
      l_new_pwd     varchar2(20) := 'welcome123';
BEGIN
      l_ret_val :=
           fnd_user_pkg.changepassword(username=> l_user_name
                                      ,Newpassword => L_New_Pwd);
     --DBMS_OUTPUT.PUT_LINE(l_ret_val);                               
     IF l_ret_val
     THEN
           DBMS_OUTPUT.PUT_LINE('The password is successfully reset to '||  l_new_pwd);
           COMMIT;
     Else
           DBMS_OUTPUT.PUT_LINE('The password reset has failed ');
     End If;
end;