Page History

SET SERVEROUTPUT ON;
DECLARE
  my_message varchar2(32767)num_N_FIRM_ID NUMBER        := 100;
  vch_Attribute VARCHAR2(100) := 'MikroTik-IP';
  vch_AttrValue VARCHAR2(100) := '10.15.24.38';
  --
  vch_VC_QUEUE_NAME VARCHAR2(30);
  vch_VC_MESSAGE    VARCHAR2(4000);
BEGIN  
  myvch_messageVC_MESSAGE := '
    <system_message>
       <vc_message_type>ProvisioningCurrentStateRequest</vc_message_type>
       <n_firm_id>100<id>' || num_N_FIRM_ID || '</n_firm_id>
       <content>
            <vc_key>MikroTik-IP<key>' || vch_Attribute || '</vc_key>
            <vc_value>195.191.246.138<<vc_value>' || vch_AttrValue || '</vc_value>
            <n_value />
            <d_value />
       </content>
    </system_message>
';
    
  vch_VC_QUEUE_NAME := SS_QUEUES_PKG_S.GET_QUEUE_FOR_FIRM(
                         num_N_FIRM_ID       => num_N_FIRM_ID,
                         num_N_QUEUE_TYPE_ID => CONST.QUEUE_SystemIn);
  
  SS_QUEUES_PKG.ENQUEUE_MESSAGE(
    vch_VC_QUEUE_NAME => 'AIS_NET.HB_SYS_IN_1'vch_VC_QUEUE_NAME,
    vch_VC_MESSAGE    => myvch_messageVC_MESSAGE);
  COMMIT;
  COMMIT;
END;
  DBMS_OUTPUT.PUT_LINE('Queue: ' || vch_VC_QUEUE_NAME);
  DBMS_OUTPUT.PUT_LINE('Message: ' || vch_VC_MESSAGE);
END;
/