用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) := '[email protected]';

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;