PLSQL提交请求集
2015-11-20 13:32
801 查看
PROCEDURE prc_do_import_set(prm_org IN NUMBER,
prm_appcode OUT NUMBER,
prm_appmsg OUT VARCHAR2) IS
custom_exception EXCEPTION;
success BOOLEAN;
v_request_id NUMBER;
v_phase VARCHAR2(30);
v_status VARCHAR2(30);
v_dev_phase VARCHAR2(30);
v_dev_status VARCHAR2(30);
v_message VARCHAR2(1000);
v_request_flag BOOLEAN;
v_start_time VARCHAR2(30);
BEGIN
prm_appcode := 0;
--初始化设置
fnd_global.apps_initialize(user_id => global_user_id,
resp_id => global_resp_id,
resp_appl_id => global_resp_appl_id);
--设置请求集
success := fnd_submit.set_request_set('INV', 'PLM_ERP_IMPORT');
IF NOT success THEN
RAISE custom_exception;
END IF;
--设置单请求参数
success := fnd_submit.submit_program('INV',
'INCOIN',
'STAGE10',
prm_org,
'1',
'1',
'1',
'1',
'1',
'1',
chr(0));
IF NOT success THEN
RAISE custom_exception;
END IF;
v_start_time := to_char(SYSDATE, 'DD-MON-YYYY HH24:MI:SS');
v_request_id := fnd_submit.submit_set(v_start_time, FALSE);
IF v_request_id = 0 THEN
RAISE custom_exception;
ELSE
COMMIT;
END IF;
--等待
v_request_flag := fnd_concurrent.wait_for_request(request_id => v_request_id,
INTERVAL => 5,
max_wait => 0,
phase => v_phase,
status => v_status,
dev_phase => v_dev_phase,
dev_status => v_dev_status,
message => v_message);
IF v_request_flag THEN
IF v_dev_status = 'NORMAL' THEN
NULL;
ELSE
RAISE custom_exception;
END IF;
ELSE
RAISE custom_exception;
END IF;
EXCEPTION
WHEN custom_exception THEN
prm_appcode := -1;
prm_appmsg := '错误提示:导入ERP正式表出错!' || SQLERRM;
WHEN OTHERS THEN
prm_appcode := -1;
prm_appmsg := '错误提示:导入ERP正式表出错!' || SQLERRM;
END prc_do_import_set;
prm_appcode OUT NUMBER,
prm_appmsg OUT VARCHAR2) IS
custom_exception EXCEPTION;
success BOOLEAN;
v_request_id NUMBER;
v_phase VARCHAR2(30);
v_status VARCHAR2(30);
v_dev_phase VARCHAR2(30);
v_dev_status VARCHAR2(30);
v_message VARCHAR2(1000);
v_request_flag BOOLEAN;
v_start_time VARCHAR2(30);
BEGIN
prm_appcode := 0;
--初始化设置
fnd_global.apps_initialize(user_id => global_user_id,
resp_id => global_resp_id,
resp_appl_id => global_resp_appl_id);
--设置请求集
success := fnd_submit.set_request_set('INV', 'PLM_ERP_IMPORT');
IF NOT success THEN
RAISE custom_exception;
END IF;
--设置单请求参数
success := fnd_submit.submit_program('INV',
'INCOIN',
'STAGE10',
prm_org,
'1',
'1',
'1',
'1',
'1',
'1',
chr(0));
IF NOT success THEN
RAISE custom_exception;
END IF;
v_start_time := to_char(SYSDATE, 'DD-MON-YYYY HH24:MI:SS');
v_request_id := fnd_submit.submit_set(v_start_time, FALSE);
IF v_request_id = 0 THEN
RAISE custom_exception;
ELSE
COMMIT;
END IF;
--等待
v_request_flag := fnd_concurrent.wait_for_request(request_id => v_request_id,
INTERVAL => 5,
max_wait => 0,
phase => v_phase,
status => v_status,
dev_phase => v_dev_phase,
dev_status => v_dev_status,
message => v_message);
IF v_request_flag THEN
IF v_dev_status = 'NORMAL' THEN
NULL;
ELSE
RAISE custom_exception;
END IF;
ELSE
RAISE custom_exception;
END IF;
EXCEPTION
WHEN custom_exception THEN
prm_appcode := -1;
prm_appmsg := '错误提示:导入ERP正式表出错!' || SQLERRM;
WHEN OTHERS THEN
prm_appcode := -1;
prm_appmsg := '错误提示:导入ERP正式表出错!' || SQLERRM;
END prc_do_import_set;
相关文章推荐
- 数据库连接池原理与实例解析
- MySQL学习-常用命令整理
- Redis和Memcache性能测试对比
- mysql 报错
- 5.mysql学习笔记:复制的原理
- mysql提取身份证生日并查询指定月份的数据
- maven之ContextLoaderListener和sqlSessionFactory没找到
- 编辑-发布-开发分离:git作为NoSQL数据库
- 从sqlserver数据库中提取日期应该使用
- CentOS Oracle11gR2 设置开机自启动
- mysql性能对比
- Oracle数据库193错误和数据分析师是做什么的
- Oracle入门
- Oracle数据库193错误和数据分析师是做什么的
- SQL1224N SQLSTATE=55032报错和oracle数据库统计问题
- GTID的常见错误和处理方法
- ASP.NET SingalR + MongoDB 实现简单聊天室(一):搭建基本框架
- SQL注入原理讲解
- You can't specify target table 'marketing_setting' for update in FROM clause
- activiti的数据库表结构