用API创建用户

DECLARE
lc_user_name                          VARCHAR2(100)   := 'PRAJ_TEST';
lc_user_password                  VARCHAR2(100)   := 'Oracle123';
ld_user_start_date                  DATE                      := TO_DATE('23-JUN-2012');
ld_user_end_date                   VARCHAR2(100)  := NULL;
ld_password_date                  VARCHAR2(100)  := TO_DATE('23-JUN-2012');
ld_password_lifespan_days  NUMBER              := 90;
ln_person_id                             NUMBER              := 32979;
lc_email_address                     VARCHAR2(100) := 'PRAJ_TEST@abc.com';

BEGIN
fnd_user_pkg.createuser
(  x_user_name                            => lc_user_name,
x_owner                                    => NULL,
x_unencrypted_password     => lc_user_password,
x_start_date                              => ld_user_start_date,
x_end_date                               => ld_user_end_date,
x_password_date                    => ld_password_date,
x_password_lifespan_days   => ld_password_lifespan_days,
x_employee_id                        => ln_person_id,
x_email_address                     => lc_email_address
);

COMMIT;

EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
DBMS_OUTPUT.PUT_LINE(SQLERRM);
END;