DECLARE
v_user_name VARCHAR2 (30) := UPPER ('SVISHNUB');
v_password VARCHAR2 (30) := 'ebspro';
v_session_id NUMBER := USERENV ('sessionid');
v_email VARCHAR2 (30) := UPPER ('oracle.ebspro@blogspot.com');
BEGIN
fnd_user_pkg.createuser (x_user_name => v_user_name,
x_owner => NULL,
x_unencrypted_password => v_password,
x_session_number => v_session_id,
x_start_date => SYSDATE,
x_end_date => NULL,
x_email_address => v_email
);
COMMIT;
DBMS_OUTPUT.put_line ('Success');
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.put_line ('Failed'|| SUBSTR (SQLERRM, 1, 100));
ROLLBACK;
END;
No comments:
Post a Comment