script package - rbsc$base_param
E Package um en Base Parameter via Task z'setze
[Script 1.0]
script package rbsc$base_param
is
/*
---------------------------------------------------------------------------------------------------------------------------------------
Bank :
Business Area :
Description :
Owner :
---------------------------------------------------------------------------------------------------------------------------------------
ID Date Name, Company Issue SRF Sequential No. DESC
---------------------------------------------------------------------------------------------------------------------------------------
* 001
---------------------------------------------------------------------------------------------------------------------------------------
*/
-------------------------------------------------------------------------------------------------------------------------------------
-- IMPORTS
-------------------------------------------------------------------------------------------------------------------------------------
import util;
-- Native
import native session#;
import native base_par_intf#;
----------------------------------------------------------------------------
-- PROCEDURES
----------------------------------------------------------------------------
--+------------------------------------------------------------------------+
-- Set item of given base parameter
--
-- @param i_intl_id Internal ID of base param
-- @param i_item Base param item to be set
-- @param i_val Value of base param item
-- @param i_bu_id ID of Business Unit
-- @param i_sbu_id ID of Sub Business Unit
-- @param i_do_commit Do commit
--+------------------------------------------------------------------------+
procedure set_base_par_item(
i_intl_id text
,i_item text
,i_val text
,i_bu_id id obj_bp := null
,i_sbu_id id obj_bp := null
,i_do_commit boolean := false
)
is
begin
-- Validate only debug-mode is toggled
if i_item != 'do_debug' then
session.raise_ui_err(1,
'Invalid Base Parameter Item: Only items enabling debug statements can be set.'
);
end if;
-- Open session in given BU
if i_bu_id is not null then
session#.open_session(
i_bu_id => i_bu_id
);
else
session#.open_session;
end if;
-- Set base param item
base_par_intf#.base_par#set_val(
i_intl_id => i_intl_id
,i_item => i_item
,i_val => i_val
,i_bu_id => i_bu_id
,i_sbu_id => i_sbu_id
);
if i_do_commit then
session.commit;
end if;
end set_base_par_item;
--+------------------------------------------------------------------------+
-- Get base parameter value for specified item
-- @param i_intl_id name of base parameter.
-- @param i_item name of base parameter item.
-- @param i_bu_id BU ID (optional, default null).
-- @param i_sbu_id SBU ID (optional, default null).
-- @return value of base parameter
--+------------------------------------------------------------------------+
function base_par_item(
i_intl_id text
,i_item text := null
,i_bu_id number := null
,i_sbu_id number := null
) return text is begin
return base_par_intf#.base_par#val(i_intl_id, i_item, i_bu_id, i_sbu_id);
exception when others then
session.log_mgr.alert('rbsc$base_param: base_par_item',
'intl_id:' || i_intl_id || util.rtn || 'item:''' || i_item || '''' || util.rtn ||
'bu_id:''' || i_bu_id || '''' || util.rtn || 'sbu_id:''' || i_sbu_id || '''');
return 'ERROR';
end base_par_item;
end rbsc$base_param;
