EBS提交并发请求的简单例子

101 阅读 0 评论 67 点赞

我是靠谱客的博主和谐大山，最近开发中收集的这篇文章主要介绍EBS提交并发请求的简单例子，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

定义变量：

--提交标准并发请求时的参数
    l_request_id1 NUMBER;
    l_request_id2 NUMBER;
    l_request_id3 NUMBER;
    l_request_id4 NUMBER;
    l_bl_result1 BOOLEAN;
    l_bl_result2 BOOLEAN;
    l_bl_result3 BOOLEAN;

调用标准的请求，将三个接口表中的数据导入到系统中。

实现sql如下：

[xhtml]  
    view plain 
    copy 
     
    
 IF v_supplier_error_flag = 'N' AND v_supplier_site_error_flag = 'N' AND   
        v_supplier_contact_error_flag = 'N' THEN   
    
       --分ou的导入,并且初始化OU   
       FOR l_cur_submit IN cur_submit LOOP   
         v_org_id := NULL; --初始化ou   
         v_org_id := get_org_id(l_cur_submit.org_name);   
         --初始化环境变量   
         set_policy_context(v_org_id);   
         --调用标准的并发请求   
         --调用供应商的并发请求   
         l_request_id1 := fnd_request.submit_request('SQLAP', --应用简称   
                                                     'APXSUIMP', --并发程序   
                                                     '',   
                                                     '',   
                                                     FALSE,   
                                                     'NEW',   
                                                     1000,   
                                                     'N',   
                                                     'N',   
                                                     'N',   
                                                     chr(0));   
         COMMIT;   
         IF l_request_id1 IS NULL OR l_request_id1 = 0 THEN   
           retcode := 2;   
           errbuf  := '供应商接口导入标准表出错!';   
           RETURN;   
         END IF;   
    
         l_bl_result1 := fnd_concurrent.wait_for_request(l_request_id1, --等待的请求   
                                                         1, --间隔时间   
                                                         0, --等待时间   
                                                         v_phase,   
                                                         v_status,   
                                                         v_dev_phase,   
                                                         v_dev_status,   
                                                         v_message);   
    
         IF v_dev_phase = 'COMPLETE' AND v_dev_status = 'NORMAL' THEN   
    
           --调用供应商地点的并发请求   
           l_request_id2 := fnd_request.submit_request('SQLAP', --应用简称   
                                                       'APXSSIMP', --并发程序   
                                                       '',   
                                                       '',   
                                                       FALSE,   
                                                       'NEW',   
                                                       1000,   
                                                       'N',   
                                                       'N',   
                                                       'N',   
                                                       chr(0));   
           COMMIT;   
           IF l_request_id2 IS NULL OR l_request_id2 = 0 THEN   
             retcode := 2;   
             errbuf  := '供应商地点接口导入标准表出错!';   
             RETURN;   
           END IF;   
    
           l_bl_result2 := fnd_concurrent.wait_for_request(l_request_id2, --等待的请求   
                                                           1, --间隔时间   
                                                           0, --等待时间   
                                                           v_phase,   
                                                           v_status,   
                                                           v_dev_phase,   
                                                           v_dev_status,   
                                                           v_message);   
    
           IF v_dev_phase = 'COMPLETE' AND v_dev_status = 'NORMAL' THEN   
             --调用供应商地点联系人的并发请求   
             l_request_id3 := fnd_request.submit_request('SQLAP', --应用简称   
                                                         'APXSCIMP', --并发程序   
                                                         '',   
                                                         '',   
                                                         FALSE,   
                                                         'NEW',   
                                                         1000,   
                                                         'N',   
                                                         'N',   
                                                         'N',   
                                                         chr(0));   
             COMMIT;   
             IF l_request_id3 IS NULL OR l_request_id3 = 0 THEN   
               retcode := 2;   
               errbuf  := '供应商地点联系人接口导入标准表出错!';   
               RETURN;   
             END IF;   
             l_bl_result3 := fnd_concurrent.wait_for_request(l_request_id3, --等待的请求   
                                                             1, --间隔时间   
                                                             0, --等待时间   
                                                             v_phase,   
                                                             v_status,   
                                                             v_dev_phase,   
                                                             v_dev_status,   
                                                             v_message);   
             IF v_dev_phase <> 'COMPLETE' AND v_dev_status <> 'NORMAL' THEN   
               retcode := 2;   
               errbuf  := '供应商地点联系人接口导入标准表出错!';   
               RETURN;   
             END IF;   
           END IF;   
         END IF;   
    
         COMMIT;   
       END LOOP; --结束loop循环   
 END IF;   