Question

我是PL / SQL和Web服务的新手。我有一些PL / SQL过程，必须为它们编写Web服务。这是其中一个过程：

procedure sp_create_service is 
   losvsdate              userlbl.ulcff1%TYPE;
   lonsccode              mpdsctab.sccode%TYPE;
   lonsvcode              mpssvtab.svcode%TYPE;
   lonsvcode_insensitive  mpssvtab.svcode%TYPE;
   lonsncode              mpusntab.sncode%TYPE;
   v_qtd_sn               NUMBER; 

BEGIN

  SELECT sccode
   INTO lonsccode
   FROM mpdsctab
  WHERE scslprefix = 'GSM';

  SELECT svcode
   INTO lonsvcode_insensitive
   FROM mpssvtab
  WHERE srvcode = '**'
    AND sccode = lonsccode;

  SELECT NVL (MAX (sncode), 0) + 1
   INTO lonsncode
   FROM mpusntab;    

  FOR c_sn IN ( select 'Bolsa de Roaming Datos'     des             
                      ,'BR' srvcode
                      ,'GSMT**B*****SO3*' svlcode 
                      , 3 srvind   
                      from dual --union 
              ) 
  LOOP  

    SELECT COUNT(*) INTO v_qtd_sn FROM mpusntab sn WHERE sn.des = c_sn.des; 

    IF  v_qtd_sn = 0 THEN 

      SELECT svcode
      INTO lonsvcode
      FROM mpssvtab
      WHERE srvcode = c_sn.Srvcode
      AND sccode = lonsccode
      AND srvind = c_sn.srvind ;


      INSERT INTO mpusntab
               (sncode   , des     , shdes                     , snind, SERVICE_OFFERING_ID,   CHARGING_ENGINE_CODE
               )
        VALUES (lonsncode, c_sn.des, LPAD(lonsncode,5,0) , 'Y'  ,  1                 ,  2
               );   

      INSERT INTO mpulknxc
               (sncode, sccode, snind)
        VALUES (lonsncode, lonsccode, 'V');

      INSERT INTO mpulknxv
               (sncode, s1code, s2code, sscode, svlcode, snmml, associate_ports, associate_dn, quantity_ind, rating_ind, associate_cug, template_id,
                vas_mapping_flag, rec_version, group_sncode, dirnum_npcode,  port_npcode, srv_type, srv_subtype, switch_auditing_flag, cc_package_id,
                prepaid_supported, balance_type, provisioning_int_flag)
        VALUES (lonsncode, lonsvcode_insensitive, lonsvcode_insensitive, lonsvcode, c_sn.svlcode, 'N',
        'N', 'N', 'N', 'N','N', NULL, NULL, 1, NULL, NULL, NULL, 'V', 'N', NULL, NULL,   NULL, NULL, NULL);

      lonsncode := lonsncode +1; 

    END IF; 

  END LOOP;  
END;

我只是在寻找起点。我在Google上搜索了很多，发现了有关JDeveloper的信息。这对我正在尝试做的事情有帮助吗？

通常我会继续使用Google进行搜索，研究是我最喜欢的消遣方式之一，但在此方面我还处于最后期限。我想学习如何做到这一点，只需要知道从哪里开始。

PL / SQL过程中的Web服务

0 个答案: