This is how to bulk create users programatically (source code included)

Question

After scouring all of the related forums and gathering all of
the clips of code and viewing all of the comments and docs on
the api's, I have found a working means of bulk loading my users
into portal from my previous system...
NOTE: THIS CODE SHOULD BE USED VERY CAREFULLY, AS, IT CAN REALLY
DESTROY YOUR SYSTEM MAYBE EVEN YOUR HARDWARE AND IN REARE CASES,
BRING WORLD WIDE PLAGUES ACCOMANIED BY WEIGHT GAIN...
Now, the only thing it does not do is trap the error of trying
to create a user that already exists.
If, only someone would give me a job doing this stuff (hint,
hint):
DECLARE
CURSOR user_cursor IS
/* Add your own query to get needed data
for import.... this is mine coming from a
migrated SQL2000 db...
SELECT
"SYSTEM"."OnlineProfiles"."LogonName",
"SA"."EMPLOYEES"."EMPLOYEEID",
"SA"."EMPLOYEES"."LAST_NAME",
"SA"."EMPLOYEES"."FIRST_NAME",
"SA"."EMPLOYEES"."MIDDLE_NAME",
"SA"."EMPLOYEES"."DOB",
"SA"."EMPLOYEES"."EMAIL",
"SA"."EMPLOYEES"."PHONE",
"SA"."EMPLOYEES"."STREET_ADDRESS",
"SA"."EMPLOYEES"."APT",
"SA"."EMPLOYEES"."CITY",
"SA"."EMPLOYEES"."STATE",
"SA"."EMPLOYEES"."ZIP",
"SA"."EMPLOYEES"."DISTRICT",
"SA"."EMPLOYEES"."JOB",
"SA"."EMPLOYEES"."DATEOFHIRE",
"SYSTEM"."OnlineProfiles"."Password"
from "SA"."EMPLOYEES", "SYSTEM"."OnlineProfiles"
WHERE "SA"."EMPLOYEES"."EMPLOYEEID"
= "SYSTEM"."OnlineProfiles"."EmployeeID";
P_USER_NAME VARCHAR2(256);
P_EMPNO VARCHAR2(30);
P_LAST_NAME VARCHAR2(60);
P_FIRST_NAME VARCHAR2(60);
P_MIDDLE_NAME VARCHAR2(60);
P_DATE_OF_BIRTH DATE;
P_EMAIL VARCHAR2(256);
P_HOME_PHONE VARCHAR2(30);
P_HOME_ADDR1 VARCHAR2(60);
P_HOME_ADDR2 VARCHAR2(30);
P_HOME_CITY VARCHAR2(30);
P_HOME_STATE VARCHAR2(30);
P_HOME_ZIP VARCHAR2(30);
P_ORGANIZATION VARCHAR2(150);
P_TITLE VARCHAR2(80);
P_HIREDATE DATE;
P_PASSWORD VARCHAR2(30);
l_uid number(32);
l_gid number(32);
l_errno number(30);
l_group varchar2(100) := 'BDS_USERS'; -- All users added to same
group
l_debug number(10) := 0;
BEGIN
OPEN user_cursor;
LOOP
FETCH user_cursor INTO P_USER_NAME,
P_EMPNO,
P_LAST_NAME,
P_FIRST_NAME,
P_MIDDLE_NAME,
P_DATE_OF_BIRTH,
P_EMAIL,
P_HOME_PHONE,
P_HOME_ADDR1,
P_HOME_ADDR2,
P_HOME_CITY,
P_HOME_STATE,
P_HOME_ZIP,
P_ORGANIZATION,
P_TITLE,
P_HIREDATE,
P_PASSWORD;
EXIT WHEN user_cursor%NOTFOUND;
l_debug := 1; -- Add user to portal...
l_uid := portal30.wwsec_api.add_portal_user(
p_user_name =>P_USER_NAME,
p_portal_user => 'Y',
p_Display_Personal_Info=>'Y',
p_Known_As=>P_FISRT_NAME,
p_Organization=>P_ORGANIZATION,
p_Empno=>P_EMPNO,
p_Last_Name=>P_LAST_NAME,
p_First_Name=>P_FIRST_NAME,
p_Middle_Name=>P_MIDDLE_NAME,
p_Date_Of_Birth=>P_DATE_OF_BIRTH,
p_Email=>P_EMAIL,
p_Home_Phone=>P_HOME_PHONE,
p_Home_Addr1=>P_HOME_ADDR1,
p_Home_Addr2=>P_HOME_ADDR2,
p_Home_City=>P_HOME_CITY,
p_Home_State=>P_HOME_STATE,
p_Home_Zip=>P_HOME_ZIP,
p_Organization=>P_ORGANIZATION,
p_Title=>P_TITLE,
p_Hiredate=>P_HIREDATE);
l_debug := 2; -- Create a User for Login Server...
portal30_sso.wwsso_api_user_admin.create_user
(P_USER_NAME
,P_PASSWORD
,P_EMAIL
,sysdate
,null
,FALSE
,l_errno);
l_debug := 3; -- Get default group id number...
l_gid := portal30.wwsec_api.group_id(l_GROUP);
l_debug := 4; -- Activate new user...
portal30.wwsec_api.add_user_to_list(l_uid, l_gid, 0);
l_debug := 5; -- Assign new user to default group...
portal30.wwsec_api.set_defaultgroup(p_groupid =>
l_gid,p_username => P_USER_NAME);
l_debug := 51;
commit;
l_debug := 6; -- Output progress to screen...
htp.p('Created User : '||P_USER_NAME||' UID '||l_uid||'
with the Group ID '||l_gid||htf.br);
END LOOP;
CLOSE user_cursor;
END;
Enjoy!
PS someone write the trap for the unique constraint violation
and email it to me....
Bryancan

Answer 1

Sorry had a couple of typos in there... this one works...
DECLARE
CURSOR user_cursor IS
SELECT
"SYSTEM"."OnlineProfiles"."LogonName",
"SA"."EMPLOYEES"."EMPLOYEEID",
"SA"."EMPLOYEES"."LAST_NAME",
"SA"."EMPLOYEES"."FIRST_NAME",
"SA"."EMPLOYEES"."MIDDLE_NAME",
"SA"."EMPLOYEES"."DOB",
"SA"."EMPLOYEES"."EMAIL",
"SA"."EMPLOYEES"."PHONE",
"SA"."EMPLOYEES"."STREET_ADDRESS",
"SA"."EMPLOYEES"."APT",
"SA"."EMPLOYEES"."CITY",
"SA"."EMPLOYEES"."STATE",
"SA"."EMPLOYEES"."ZIP",
"SA"."EMPLOYEES"."DISTRICT",
"SA"."EMPLOYEES"."JOB",
"SA"."EMPLOYEES"."DATEOFHIRE",
"SYSTEM"."OnlineProfiles"."Password"
from "SA"."EMPLOYEES", "SYSTEM"."OnlineProfiles"
WHERE "SA"."EMPLOYEES"."EMPLOYEEID"
= "SYSTEM"."OnlineProfiles"."EmployeeID";
P_USER_NAME VARCHAR2(256);
P_EMPNO VARCHAR2(30);
P_LAST_NAME VARCHAR2(60);
P_FIRST_NAME VARCHAR2(60);
P_MIDDLE_NAME VARCHAR2(60);
P_DATE_OF_BIRTH DATE;
P_EMAIL VARCHAR2(256);
P_HOME_PHONE VARCHAR2(30);
P_HOME_ADDR1 VARCHAR2(60);
P_HOME_ADDR2 VARCHAR2(30);
P_HOME_CITY VARCHAR2(30);
P_HOME_STATE VARCHAR2(30);
P_HOME_ZIP VARCHAR2(30);
P_ORGANIZATION VARCHAR2(150);
P_TITLE VARCHAR2(80);
P_HIREDATE DATE;
P_PASSWORD          VARCHAR2(30);
l_uid number(32);
l_gid number(32);
l_errno number(30);
l_user varchar2(100);
l_group varchar2(100) := 'BDS_USERS';
l_debug number(10) := 0;
BEGIN
OPEN user_cursor;
LOOP
FETCH user_cursor INTO P_USER_NAME,
          P_EMPNO,
          P_LAST_NAME,
          P_FIRST_NAME,
          P_MIDDLE_NAME,
          P_DATE_OF_BIRTH,
          P_EMAIL,
          P_HOME_PHONE,
          P_HOME_ADDR1,
          P_HOME_ADDR2,
          P_HOME_CITY,
          P_HOME_STATE,
          P_HOME_ZIP,
          P_ORGANIZATION,
          P_TITLE,
          P_HIREDATE,
          P_PASSWORD;
     EXIT WHEN user_cursor%NOTFOUND;
     l_debug := 1;
     l_uid := portal30.wwsec_api.add_portal_user(p_user_name
=>P_USER_NAME,p_portal_user => 'Y',
p_Organization=>P_ORGANIZATION,
p_Empno=>P_EMPNO,
p_Last_Name=>P_LAST_NAME,
p_First_Name=>P_FIRST_NAME,
p_Middle_Name=>P_MIDDLE_NAME,
p_Date_Of_Birth=>P_DATE_OF_BIRTH,
p_Email=>P_EMAIL,
p_Home_Phone=>P_HOME_PHONE,
p_Home_Addr1=>P_HOME_ADDR1,
p_Home_Addr2=>P_HOME_ADDR2,
p_Home_City=>P_HOME_CITY,
p_Home_State=>P_HOME_STATE,
p_Home_Zip=>P_HOME_ZIP,
p_Title=>P_TITLE,
p_Hiredate=>P_HIREDATE);
     l_debug := 2;
     portal30_sso.wwsso_api_user_admin.create_user
(P_USER_NAME
     ,P_USER_NAME
     ,P_USER_NAME||'@getbenefits.com'
     ,sysdate
     ,null
     ,FALSE
     ,l_errno);
     l_debug := 3;
     l_gid := portal30.wwsec_api.group_id(l_GROUP);
     l_debug := 4;
     portal30.wwsec_api.add_user_to_list(l_uid, l_gid, 0);
     l_debug := 5;
     portal30.wwsec_api.set_defaultgroup(p_groupid =>
     l_gid,p_username => P_USER_NAME);
     l_debug := 51;
     commit;
     l_debug := 6;
     htp.p('Created User : '||P_USER_NAME||' UID '||l_uid||'
with the Group ID '||l_gid||htf.br);
END LOOP;
CLOSE user_cursor;
END;