Oracle Apps Script to create a new User Login Account

Oracle Apps Script to create a new User Login Account

Oracle Apps Script to create a new User Login Account：

1. --CREATE a new user account    
2. DECLARE  
3.   p_user_name            VARCHAR2 (200)       := 'PTIAN';  
4.   p_owner                VARCHAR2 (200)       := NULL;  
5.   p_unencrypted_password VARCHAR2 (200)       := 'welcome';  
6.   p_session_number       NUMBER               := USERENV ('sessionid');  
7.   p_start_date DATE                           := SYSDATE;  
8.   p_end_date DATE                             := NULL;  
9.   p_last_logon_date DATE                      := NULL;  
10.   p_description VARCHAR2 (200)                := 'PAN TIAN';  
11.   p_password_date DATE                        := SYSDATE;  
12.   p_password_accesses_left     NUMBER         := NULL;  
13.   p_password_lifespan_accesses NUMBER         := NULL;  
14.   p_password_lifespan_days     NUMBER         := NULL;  
15.   p_employee_id                NUMBER         := NULL;  
16.   p_email_address              VARCHAR2 (200) := 'tianpan@gmail.com';  
17.   p_fax                        VARCHAR2 (200) := NULL;  
18.   p_customer_id                NUMBER         := NULL;  
19.   p_supplier_id                NUMBER         := NULL;  
20.   v_user_id                    NUMBER;  
21. BEGIN  
22.   --     
23.   --   
24.    fnd_user_pkg.createuser  
25.                (x_user_name                       => p_user_name,  
26.                 x_owner                           => p_owner,  
27.                 x_unencrypted_password            => p_unencrypted_password,  
28.                 x_session_number                  => p_session_number,  
29.                 x_start_date                      => p_start_date,  
30.                 x_end_date                        => p_end_date,  
31.                 x_last_logon_date                 => p_last_logon_date,  
32.                 x_description                     => p_description,  
33.                 x_password_date                   => p_password_date,  
34.                 x_password_accesses_left          => p_password_accesses_left,  
35.                 x_password_lifespan_accesses      => p_password_lifespan_accesses,  
36.                 x_password_lifespan_days          => p_password_lifespan_days,  
37.                 x_employee_id                     => p_employee_id,  
38.                 x_email_address                   => p_email_address,  
39.                 x_fax                             => p_fax,  
40.                 x_customer_id                     => p_customer_id,  
41.                 x_supplier_id                     => p_supplier_id  
42.                );  
43.   --   
44.   --   
45.    SELECT user_id  
46.      INTO v_user_id  
47.      FROM fnd_user  
48.     WHERE user_name = p_user_name;  
49.   --   
50.   DBMS_OUTPUT.put_line ('User_id : ' || v_user_id);  
51.   --   
52.   COMMIT;  
53.   --   
54. EXCEPTION  
55. WHEN OTHERS THEN  
56.   --   
57.   DBMS_OUTPUT.put_line ('Error while creating a user: ' || SQLERRM);  
58.   --   
59. END;  

这个新创建的User还未分配任何指责，还需要在Sys admin下分配合适的职责。