...
Code Block |
---|
CREATE OR REPLACE PACKAGE kfs_kim_role_maint AS -- spec PROCEDURE add_dta_role_member( PrincipalName IN VARCHAR2, HomeDepartmentCode IN VARCHAR2 ); PROCEDURE remove_dta_role_member( PrincipalName IN VARCHAR2, HomeDepartmentCode IN VARCHAR2, EndDate IN DATE DEFAULT SYSDATE ); END kfs_kim_role_maint; |
Example Utilization
An example script making use of the kfs_kim_role_maint package is shown below:
Code Block |
---|
---------------Opening Section-------------------
COL DT NOPRINT NEW_VALUE db_date;
SELECT TO_CHAR(SYSDATE, 'YYYY-MM-DD-HH24MISS') DT FROM DUAL;
COL db NOPRINT NEW_VALUE db_name;
SELECT SYS_CONTEXT ('RICE', 'MOTHRA') DB FROM DUAL;
----- Name the spool file -----
SPOOL ./KFS_ROLE_MAINT--&db_date-&db_name.log;
SET ECHO ON;
SET TERMOUT ON;
SET VERIFY OFF;
SET TRIMSPOOL ON;
SET SERVEROUTPUT ON SIZE 1000000;
WHENEVER SQLERROR EXIT SQL.SQLCODE ROLLBACK;
WHENEVER OSERROR EXIT SQL.SQLCODE ROLLBACK;
SET ECHO ON;
SHOW USER;
BEGIN
kfs_kim_role_maint.remove_dta_role_member( 'rvmartin', '061300' );
kfs_kim_role_maint.remove_dta_role_member( 'soconner', '061095' );
kfs_kim_role_maint.add_dta_role_member( 'licruz', '062007' );
kfs_kim_role_maint.add_dta_role_member( 'licruz', '062015' );
END;
/
SPOOL OFF;
|