DECLARE
l_return_status
VARCHAR2
(
1
);
l_msg_count
NUMBER
:=
0
;
l_msg_data
VARCHAR2
(
4000
);
l_msg_index
NUMBER
;
/*******************客户化内容开始*************************/
l_bank_id
NUMBER
;
l_extbank_rec iby_ext_bankacct_pub.extbank_rec_type;
l_result_rec iby_fndcpt_common_pub.result_rec_type;
/*******************客户化内容结束*************************/
BEGIN
--初始化
fnd_profile.put(
'PRINT_DEBUG'
,
'Y'
);
dbms_output.enable(
10000000
);
fnd_msg_pub.initialize;
/*******************客户化内容开始*************************/
l_extbank_rec :=
NULL
;
l_extbank_rec.bank_name :=
'北京京东银行'
;
l_extbank_rec.object_version_number :=
1
;
l_extbank_rec.country_code :=
'CN'
;
l_extbank_rec.institution_type :=
'BANK'
;
iby_ext_bankacct_pub.create_ext_bank(p_api_version =>
1.0
,
p_init_msg_list => fnd_api.g_false,
p_ext_bank_rec => l_extbank_rec,
x_bank_id => l_bank_id,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_response => l_result_rec);
/*******************客户化内容结束*************************/
IF
(l_return_status <> fnd_api.g_ret_sts_success)
THEN
dbms_output.put_line(
'FAILED'
);
IF
(fnd_msg_pub.count_msg >
0
)
THEN
dbms_output.put_line(
'Error Message Stack :'
);
dbms_output.put_line(
'----------------------------------------'
);
FOR
i
IN
1
.. fnd_msg_pub.count_msg
LOOP
fnd_msg_pub.get(p_msg_index => i,
p_encoded => fnd_api.g_false,
p_data => l_msg_data,
p_msg_index_out => l_msg_index);
dbms_output.put_line(l_msg_data);
END
LOOP
;
fnd_msg_pub.initialize;
END
IF
;
ELSE
dbms_output.put_line(
'SUCCESS'
);
/*******************客户化内容开始*************************/
dbms_output.put_line(l_bank_id);
/*******************客户化内容结束*************************/
END
IF
;
END
;