Tampilkan postingan dengan label oracle10g. Tampilkan semua postingan
Tampilkan postingan dengan label oracle10g. Tampilkan semua postingan

ORACLE TERBILANG Function

FUNCTION ZMID(CStr IN VARCHAR2, STR IN INTEGER, LEN IN NUMBER DEFAULT 32767) RETURN VARCHAR2 IS
     iMID VARCHAR2(32767);
BEGIN
     If ( STR > Length(CStr) ) Then
         RETURN( NULL );
     END IF;
     iMID := SUBSTR( CStr, STR, len );
     RETURN ( iMID );
END;
/


FUNCTION zright(iChar VARCHAR2,jumlah NUMBER) RETURN VARCHAR IS
 Vpanjang  NUMBER;
 Vchar_Kanan VARCHAR2(100);
BEGIN
  Vpanjang:=Length(iChar)+1-jumlah;
  Vchar_Kanan:=SUBSTR(iChar,Vpanjang,jumlah);
  RETURN Vchar_Kanan;
END;
/


function ORACLE_TERBILANG(angka number) return varchar2 is

  strJmlHuruf     number;
  terbilang       varchar2(32767);
  intPecahan      varchar2(32767);
  strPecahan      varchar2(32767);
  urai            varchar2(32767);
  sMinus          varchar2(32767);
  strTot          varchar2(32767);
  x               varchar2(32767);
  y               integer;
  z               integer;
  Bil1            varchar2(32767);
  Bil2            varchar2(32767);
  pNumber         varchar2(32767);

 begin

   /*Cek Panjang input Angka*/
    pNumber :=length(angka);

    if substr(angka,1,1) <> '-' then
       if 16 <= pNumber then terbilang := ''; return(terbilang); end if;
    Else
       if 17 <= pNumber then terbilang := ''; return(terbilang); end if;
    End If;

   /*Cek Awal NOL*/
   If angka is Null or angka =0 Then terbilang := 'NOL';
      return(terbilang);
   End If;

       strJmlHuruf := LTrim((angka)); intPecahan  := 0;

  /*Cek Awal Minus*/
    If InStr(strJmlHuruf, '-') > 0 Then
            sMinus := 'MINUS ';
            terbilang := ZRight(strJmlHuruf, length(strJmlHuruf) - 1);
            strTot := terbilang; strJmlHuruf := terbilang;
    End If;

    /*Sementara Tdak ada pecahan :D*/
    If (intPecahan = 0) Then strPecahan := ''; End If;

    X := 0;
    Y := 0;
    Urai := '';

    /*::::::::::::LOOP::::::::::::*/
    While (X < length(strJmlHuruf)) Loop
                    X := X + 1;
                    strTot := ZMID(strJmlHuruf, X, 1);
                    Y := Y + (strTot);
                    z := length(strJmlHuruf) - X + 1;

    /*::::::::::::::::::::::::::Select Case Val(strTot)::::::::::::::::::::::::::*/
            if (strTot) = 1 then

                /*:::::::::::::::::::::::::::*/
                If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then Bil1 := 'SATU ';

                ElsIf (z = 4) Then
                     If (X = 1) Then Bil1 := 'SE';
                        Else Bil1 := 'SATU ';
                    End If;

                ElsIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14 ) Then
                    X := X + 1;
                    strTot := ZMid(strJmlHuruf, X, 1);
                    z := length(strJmlHuruf) - X + 1;
                    Bil2 := '';

                       if  strTot = 0 then Bil1 := 'SEPULUH ';
                             ElsIf strTot = 1 then Bil1 := 'SEBELAS ';
                             ElsIf strTot = 2 then Bil1 := 'DUA BELAS ';
                             ElsIf strTot = 3 then Bil1 := 'TIGA BELAS ';
                             ElsIf strTot = 4 then Bil1 := 'EMPAT BELAS ';
                             ElsIf strTot = 5 then Bil1 := 'LIMA BELAS ';
                             ElsIf strTot = 6 then Bil1 := 'ENAM BELAS ';
                             ElsIf strTot = 7 then Bil1 := 'TUJUH BELAS ';
                             ElsIf strTot = 8 then Bil1 := 'DELAPAN BELAS ';
                             else Bil1 := 'SEMBILAN BELAS ';
                       end if;
                 else
                  Bil1 := 'SE';
              end if;
              /*:::::::::::::::::::::::::::*/

              elsif strTot = 2 then Bil1 := 'DUA ';
              elsif strTot = 3 then Bil1 := 'TIGA ';
              elsif strTot = 4 then Bil1 := 'EMPAT ';
              elsif strTot = 5 then Bil1 := 'LIMA ';
              elsif strTot = 6 then Bil1 := 'ENAM ';
              elsif strTot = 7 then Bil1 := 'TUJUH ';
              elsif strTot = 8 then Bil1 := 'DELAPAN ';
              elsif strTot = 9 then Bil1 := 'SEMBILAN ';
              else Bil1 := '';
            end if;
    /*::::::::::::::::::::::::::END Select Case Val(strTot)::::::::::::::::::::::::::*/

                If ((strTot) > 0) Then
                    If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then      Bil2 := 'PULUH ';
                      ElsIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then Bil2 := 'RATUS ';
                      Else Bil2 := '';
                    End If;
                Else       Bil2 := '';
                End If;

                If (Y > 0) Then
                  /*::::::Select Case z:::::::*/
                   if z = 4 then        Bil2 := Bil2||'RIBU ';   Y := 0;
                      elsif z = 7  then Bil2 := Bil2||'JUTA ';   Y := 0;
                      elsif z = 10 then Bil2 := Bil2||'MILYAR '; Y := 0;
                      elsif z = 13 then Bil2 := Bil2||'TRILYUN ';Y := 0;
                   end if;
                End If;

     Urai := Urai||Bil1||Bil2;
    end loop;
    /*::::::::::::END LOOP::::::::::::*/

       Urai := sMinus||Urai||strPecahan;
        If (intPecahan = 0) Then
           Terbilang := Urai||'RUPIAH ';
        End If;
  return(terbilang);

end ORACLE_TERBILANG;
/

dbms_scheduler Ruunning OS Command or Shell Script from PL/SQL, EXPORT oracle database to .dmp file


Hi there i will share a little bit trick, that allow you to export oracle database using pl/sql.

I have Windows client and my oracle 10g DB base on Ubuntu(LInux),
i want create some procedure that will execute linux command to export oracle database.

ok here there are :
i will divide the method base on 2 model.

1. U will execute by calling .sh file

#Create exp.sh file

#!/bin/sh
ORACLE_HOME=/opt/oracle/product/10.2.0/db_1
PATH=$PATH:$ORACLE_HOME/bin
export ORACLE_HOME PATH
exp user/pass@orcl file=/U_re_directory/exp.dmp

#Run this script on pl/SQL

 BEGIN
 DBMS_SCHEDULER.CREATE_JOB(
 job_name=>'testjob',
 job_type=>'EXECUTABLE',
 job_action=>'U_re_directory/exp.sh',
 enabled=>true,
 auto_drop=>true);
 end;
 /

2. U will execute by typing the script directly 


begin
   dbms_scheduler.create_job (job_name    => 'myjob',
                              job_type    => 'executable',
                              job_action  => '/bin/sh',
                              number_of_arguments => 2,
                              auto_drop   => true);
   dbms_scheduler.set_job_argument_value ('myjob', 1,'-c');
   dbms_scheduler.set_job_argument_value ('myjob', 2,'ORACLE_HOME=/opt/oracle/product/10.2.0/db

PATH=$PATH:$ORACLE_HOME/bin
export ORACLE_HOME PATH
exp assyifa/assyifa@orcl file=/U_re_directory/exp.dmp');
   dbms_scheduler.run_job ('myjob');
end;
/




:) Done!

Note :

How to see scheduled job status

select status,additional_info from DBA_SCHEDULER_JOB_RUN_DETAILS where job_name='Scheduled_NAME';

How to drop a scheduled job in oracle

BEGIN
  dbms_scheduler.drop_job(job_name => 'Scheduled_NAME');
END;

Grant privilege tu user


SQL> conn system
SQL> grant create job to your_user;
SQL> grant create EXTERNAL job to your_user;
sources :

https://oracle-base.com/articles/misc/oracle-shell-scripting
http://rohmad.net/2008/07/24/menjalankan-os-command-atau-shell-script-dari-plsql/
https://askubuntu.com/questions/38661/how-do-i-run-sh-files
https://stackoverflow.com/questions/37458051/how-to-drop-a-scheduled-job-in-oracle
http://www.dba-oracle.com/t_execute_operating_system_os_command_oracle.htm

Compile .fmb in folder

one file

ifcmp60 Module=c:\workspaces\project\forms\section\form.fmb Userid=scott/tiger@db batch=yes module_type=form



in folder


FOR %i IN (.fmb) DO ifcmp60 Userid=scott/tiger@db batch=yes module_type=form module=%i batch=yes module_type=form compile_all=yes window_state=minimize


source :






https://dukez.wordpress.com/2010/11/15/compile-oracle-forms-6i-from-command-line-with-olb/

https://www.scribd.com/document/63561272/Batch-Compile-Script-for-Forms-Reports-Libraries-Menus-and-Also-Converting-Binary-to-Text-and-Back-ID-191529-1

How to sort the result from string_agg() / order by string_agg on oracle 10g

 Hi there now day i will share how to order by string_agg() result
and here it's the simple code :

select string_agg(prod,' | ') FROM
  (SELECT product as prod FROM tblproducts ORDER BY product )MAIN;


How to remove extra space in between a string? oracle 10g


SQL> select replace('AAA BBB CCC', chr(32), '') from dual;

REPLACE('
---------
AAABBBCCC

Oracle Form 6i dynamic query and execute in oracle

  dynamic query

 1.

set_block_property('DIVIEW_SALESES', default_where, 'query statement');

 example :

set_block_property('DIVIEW_SALESES', default_where, 'sls_status='||''''||'A'||''''||' and to_char(sls_date,'||''''||'mm/yyyy'||''''||')='||''''||:tool.REF_DATE||'''');

Done!

how to call webservice from oracle 10g database base on xml and json fromat?

how to call webservice from oracle 10g database base on xml and json fromat?
:) Hi there i wanna share a little my experience about Oracle 10g calling web service. . .

It was made my headache. There are a lot variable that i have to learn and from what i have to start, there are so many thing here.
After all it was. i have a basic concept How to call webservice, How to gran the data, and use it on your own database table.

First i have to tell you about oracle support on web service experience.
Oracle 10g does not support web service base on json format.
:( but wait a minute,
Your Oracle 10g still has read your web service even it base on json format with a little trick. :):):) by using an external web base program like xampp, lampp and on your oracle still has read json format.

Normally oracle 10g does not support json but it can read xml format very good.
How to oracle 10g can read json format from web service is we have to use our own local web service and read the cloud web service that you wanna go.
After that, your local web service will receive json format fram cloud web service and you have convert json to xml format and done. :)

There are so many web service that you can choose, in my case i use slim web service.

I will have you the schema to make you easy to learn how it work in my machine :

1. Oracle 10g-->Local Web Service-->(calling Cloud Web Service)
2.(Cloud Web Service sends json Format)-->Local Web Service(receive json and convert it to xml fromat)-->Oracle 10g extract xml to data.

There are two basic idea how to oracle 10g read json format.
Then how to set it???

1.

Install Slim web service.
(i will not explain how to install slim coz you can googling easily)

2.

-----------------------------------------------------------------------------index.php
$app->post('/GetByNoKartu', 'GetByNoKartu');
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
function GetByNoKartu($request, $response, $args) {  
    $ConsId = $request->getParsedBody()['consid'];
    $SecretKey = $request->getParsedBody()['secretkey'];
    $Url = $request->getParsedBody()['url'];
    $NoKartu = $request->getParsedBody()['nokartu'];
   
   
   
    // Computes the timestamp
        date_default_timezone_set('UTC');
        $tStamp = strval(time()-strtotime('1970-01-01 00:00:00'));     
        $signature = hash_hmac('sha256', $ConsId."&".$tStamp, $SecretKey, true);
     
        $encodedSignature = base64_encode($signature);
       
          
    $curl = curl_init();

    $arrheader =  array(
         'X-cons-id: '.$ConsId,
         'X-timestamp: '.$tStamp,
         'X-signature: '.$encodedSignature       
      ); 

   
    $Turl = $Url;
    $curl = curl_init();
    curl_setopt($curl,CURLOPT_URL,$Turl);
    curl_setopt($curl,CURLOPT_RETURNTRANSFER,true);
    curl_setopt($curl, CURLOPT_HTTPHEADER, $arrheader);   
   
   
    $result = curl_exec($curl);
    curl_close($curl);
    //echo $result;
   
//    $response->write($result);
    //return $response;

  // Require Array2XML class which takes a PHP array and changes it to XML
  require_once('array2xml.php');
  // Gets JSON file
  // Decodes JSON into a PHP array
  $php_array = json_decode($result, true);
  // adding Content Type
  header("Content-type: text/xml");
  // Converts PHP Array to XML with the root element being 'root-element-here'
  $xml = Array2XML::createXML('myroot', $php_array);
 
  echo $xml->saveXML();

}
-------------------------------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------------------------------
Procedure on oracle to read local webservice and send request to cloud web service.
I share 2 procedure to read xml base on one record and multiple records
-------------------------------------------------------------------------------------------------------------------------------
3.
-------------------------------------------------------------------------------------------------------------------------------
one record
------------------------------------------------------------------------------------------------------------------------------- 
CREATE OR REPLACE procedure RS.brproc_cari_ktsp(vnokartu in varchar2,vckpk in varchar2,vtglsep in varchar2)
as
--var base url
    vbase_consid varchar2(100);
    vbase_secretkey varchar2(100);
    vbase_url varchar2(4000);
    vbase_url_jadi varchar2(4000);
    vbase_url_local varchar2(4000);
    vbase_nokartu varchar2(100);
--var utl http
    req utl_http.req;
    resp utl_http.resp;
    value1 clob;
    Lvalue1 number;
    vresult clob;
    v_url varchar2(4000);
    v_post varchar2(4000);
--var coloumns
    CKcode    varchar2(100);
    CKmessage    varchar2(1000);
    CKdinsos    varchar2(100);
    CKiuran    varchar2(100);
    CKnoSKTM    varchar2(100);
    CKprolanisPRB    varchar2(100);
    CKkdJenisPeserta    varchar2(100);
    CKnmJenisPeserta    varchar2(100);
    CKkdKelas    varchar2(100);
    CKnmKelas    varchar2(100);
    CKnama    varchar2(100);
    CKnik    varchar2(100);
    CKnoKartu    varchar2(100);
    CKnoMr    varchar2(100);
    CKpisa    varchar2(100);
    CKkdCabang    varchar2(100);
    CKkdProvider    varchar2(100);
    CKnmCabang    varchar2(100);
    CKnmProvider    varchar2(100);
    CKsex    varchar2(100);
    CKketerangan    varchar2(100);
    CKkode    varchar2(100);
    CKtglCetakKartu    varchar2(100);
    CKtglLahir    varchar2(100);
    CKtglTAT    varchar2(100);
    CKtglTMT    varchar2(100);
    CKumurSaatPelayanan    varchar2(100);
    CKumurSekarang    varchar2(100);
    CKnoTelepon    varchar2(100);
BEGIN
--find base url
        select base_url,base_url_local,base_consid,base_secretkey into vbase_url,vbase_url_local,vbase_consid,vbase_secretkey from BRMST_BASEBRIDSEPS;
        vbase_url_jadi:=vbase_url||'Peserta/nokartu/'||vnokartu||'/tglSEP/'||vtglsep;
--post var value
             v_post:='consid='||vbase_consid||'&'||'secretkey='||vbase_secretkey||'&'||'url='||vbase_url_jadi;
             v_url:=vbase_url_local||'GetByNoKartu';
             --v_url:='http://localhost/bridgingbpjs/contohpeserta.xml';
             req := utl_http.begin_request(v_url,'POST');
             UTL_HTTP.SET_HEADER(req,'User-Agent','Mozilla/4.0');
             UTL_HTTP.SET_HEADER (req,'Content-Type','application/x-www-form-urlencoded');
             UTL_HTTP.SET_HEADER (req,'Content-Length',length(v_post));
             UTL_HTTP.WRITE_TEXT (req,v_post);
             resp := utl_http.get_response(req);
                vresult := EMPTY_CLOB;
       --get length clob
        select dbms_lob.getlength(value1) into Lvalue1 from dual;
            LOOP
              UTL_HTTP.READ_TEXT(resp, value1, Lvalue1);
              vresult := vresult || value1;
            END LOOP;
               utl_http.end_response(resp);
             EXCEPTION
               WHEN utl_http.end_of_body THEN
               utl_http.end_response(resp);
--extrack xml's value
--extracting multiple node from xml
    FOR i IN
      (
select CK_CODE
,CK_MESSAGE
,CK_NMKELAS
,CK_KDKELAS
,CK_DINSOS
,CK_NOSKTM
,CK_PROLANISPRB
,CK_NMJENISPESERTA
,CK_KDJENISPESERTA
,CK_NOMR
,CK_NOTELEPON
,CK_NAMA
,CK_NIK
,CK_NOKARTU
,CK_PISA
,CK_KDPROVIDER
,CK_NMPROVIDER
,CK_SEX
,CK_KETERANGAN
,CK_KODE
,CK_TGLCETAKKARTU
,CK_TGLLAHIR
,CK_TGLTAT
,CK_TGLTMT
,CK_UMURSAATPELAYANAN
,CK_UMURSEKARANG
FROM XMLTABLE('/myroot'
         PASSING
            xmltype(vresult)
         COLUMNS
            --describe columns and path to them:
             --describe columns and path to them:
            CK_CODE varchar2(200) PATH'./metaData/code',
            CK_MESSAGE varchar2(200) PATH'./metaData/message',
            CK_NMKELAS varchar2(200) PATH'./response/peserta/hakKelas/keterangan',
            CK_KDKELAS varchar2(200) PATH'./response/peserta/hakKelas/kode',
            CK_DINSOS varchar2(200) PATH'./response/peserta/informasi/dinsos',
            CK_NOSKTM varchar2(200) PATH'./response/peserta/informasi/noSKTM',
            CK_PROLANISPRB varchar2(200) PATH'./response/peserta/informasi/prolanisPRB',
            CK_NMJENISPESERTA varchar2(200) PATH'./response/peserta/jenisPeserta/keterangan',
            CK_KDJENISPESERTA varchar2(200) PATH'./response/peserta/jenisPeserta/kode',
            CK_NOMR varchar2(200) PATH'./response/peserta/mr/noMR',
            CK_NOTELEPON varchar2(200) PATH'./response/peserta/mr/noTelepon',
            CK_NAMA varchar2(200) PATH'./response/peserta/nama',
            CK_NIK varchar2(200) PATH'./response/peserta/nik',
            CK_NOKARTU varchar2(200) PATH'./response/peserta/noKartu',
            CK_PISA varchar2(200) PATH'./response/peserta/pisa',
            CK_KDPROVIDER varchar2(200) PATH'./response/peserta/provUmum/kdProvider',
            CK_NMPROVIDER varchar2(200) PATH'./response/peserta/provUmum/nmProvider',
            CK_SEX varchar2(200) PATH'./response/peserta/sex',
            CK_KETERANGAN varchar2(200) PATH'./response/peserta/statusPeserta/keterangan',
            CK_KODE varchar2(200) PATH'./response/peserta/statusPeserta/kode',
            CK_TGLCETAKKARTU varchar2(200) PATH'./response/peserta/tglCetakKartu',
            CK_TGLLAHIR varchar2(200) PATH'./response/peserta/tglLahir',
            CK_TGLTAT varchar2(200) PATH'./response/peserta/tglTAT',
            CK_TGLTMT varchar2(200) PATH'./response/peserta/tglTMT',
            CK_UMURSAATPELAYANAN varchar2(200) PATH'./response/peserta/umur/umurSaatPelayanan',
            CK_UMURSEKARANG varchar2(200) PATH'./response/peserta/umur/umurSekarang'
     ) xmlt       )
    LOOP
--insert xml value into table
            insert into BRMST_CARI_KTSPS
            (CK_pk,
            CK_code,
            CK_message,
            CK_dinsos,
            CK_iuran,
            CK_noSKTM,
            CK_prolanisPRB,
            CK_kdJenisPeserta,
            CK_nmJenisPeserta,
            CK_kdKelas,
            CK_nmKelas,
            CK_nama,
            CK_nik,
            CK_noKartu,
            CK_noMr,
            CK_pisa,
            CK_kdCabang,
            CK_kdProvider,
            CK_nmCabang,
            CK_nmProvider,
            CK_sex,
            CK_keterangan,
            CK_kode,
            CK_tglCetakKartu,
            CK_tglLahir,
            CK_tglTAT,
            CK_tglTMT,
            CK_umurSaatPelayanan,
            CK_umurSekarang,
            CK_noTelepon)
            values
            (vckpk,
            i.CK_code,
            i.CK_message,
            i.CK_dinsos,
            null,
            i.CK_noSKTM,
            i.CK_prolanisPRB,
            i.CK_kdJenisPeserta,
            i.CK_nmJenisPeserta,
            i.CK_kdKelas,
            i.CK_nmKelas,
            i.CK_nama,
            i.CK_nik,
            i.CK_noKartu,
            i.CK_noMr,
            i.CK_pisa,
            null,
            i.CK_kdProvider,
            null,
            i.CK_nmProvider,
            i.CK_sex,
            i.CK_keterangan,
            i.CK_kode,
            i.CK_tglCetakKartu,
            i.CK_tglLahir,
            i.CK_tglTAT,
            i.CK_tglTMT,
            i.CK_umurSaatPelayanan,
            i.CK_umurSekarang,
            i.CK_noTelepon);
    END LOOP;
    COMMIT;
END brproc_cari_ktsp;
/
-------------------------------------------------------------------------------------------------------------------------------
multiple record
------------------------------------------------------------------------------------------------------------------------------- 
CREATE OR REPLACE procedure RS.brproc_poli(vcaripoli in varchar2)
as
--var base url
 vbase_consid varchar2(100);
 vbase_secretkey varchar2(100);
 vbase_url varchar2(4000);
 vbase_url_jadi varchar2(4000);
 vbase_url_local varchar2(4000);
--var utl http
 req utl_http.req;
 resp utl_http.resp;
 value1 clob;
 Lvalue1 number;
 vresult clob;
 v_url varchar2(4000);
 v_post varchar2(4000);
--var coloumns
 CKkdPoli    varchar2(100);
 CKnmPoli    varchar2(100);
BEGIN
--find base url
  select base_url,base_url_local,base_consid,base_secretkey into vbase_url,vbase_url_local,vbase_consid,vbase_secretkey from BRMST_BASEBRIDSEPS;
  vbase_url_jadi:=vbase_url||'referensi/poli/'||vcaripoli;
--post var value
  v_post:='consid='||vbase_consid||'&'||'secretkey='||vbase_secretkey||'&'||'url='||vbase_url_jadi;
    --v_url:='http://localhost/bridgingbpjs/contohpoli.xml';
    v_url:=vbase_url_local||'GetPoli';
    req := utl_http.begin_request(v_url,'POST');
    UTL_HTTP.SET_HEADER(req,'User-Agent','Mozilla/4.0');
    UTL_HTTP.SET_HEADER (req,'Content-Type','application/x-www-form-urlencoded');
    UTL_HTTP.SET_HEADER (req,'Content-Length',length(v_post));
    UTL_HTTP.WRITE_TEXT (req,v_post);
    resp := utl_http.get_response(req);
       vresult := EMPTY_CLOB;
       --get length clob
        select dbms_lob.getlength(value1) into Lvalue1 from dual;
   LOOP
     UTL_HTTP.READ_TEXT(resp, value1, Lvalue1);
     vresult := vresult || value1;
   END LOOP;
      utl_http.end_response(resp);
    EXCEPTION
      WHEN utl_http.end_of_body THEN
      utl_http.end_response(resp);
-- delete log table BRMST_POLIS
delete from BRMST_POLIS;
commit;
--extrack xml's value
--extracting multiple node from xml
    FOR i IN
      (
select kdPoli,nmPoli
FROM XMLTABLE('/myroot/response/poli'
         PASSING
            xmltype(vresult)
         COLUMNS
            --describe columns and path to them:
            kdPoli  varchar2(120)    PATH './kode',
            nmPoli varchar2(120)    PATH './nama'
     ) xmlt
       )
    LOOP
      --insert xml value into table
      insert into BRMST_POLIS(kdpoli,nmPoli)values(i.kdPoli,i.nmPoli);
    END LOOP;
    COMMIT;
END brproc_poli;
/
-------------------------------------------------------

Transpose rows to columns in Oracle 10g Generating matrix using SQL queries using PIVOT instead


In 10g you can use DECODE function instead of PIVOT:

 CREATE TABLE po_table (
  po_num NUMBER,
  terms_type NUMBER,
  terms_description VARCHAR2(20)
);

INSERT INTO po_table VALUES(10, 1, 'Desc-10-1');
INSERT INTO po_table VALUES(10, 2, 'Desc-10-2');
INSERT INTO po_table VALUES(10, 3, 'Desc-10-3');
INSERT INTO po_table VALUES(20, 1, 'Desc-20-1');
INSERT INTO po_table VALUES(20, 3, 'Desc-20-3');
INSERT INTO po_table VALUES(30, NULL, NULL);

COMMIT;

SELECT
    po_num,
    MAX(DECODE(terms_type, 1, terms_type)) AS terms1,
    MAX(DECODE(terms_type, 1, terms_description)) AS terms1Desc,
    MAX(DECODE(terms_type, 2, terms_type)) AS terms2,
    MAX(DECODE(terms_type, 2, terms_description)) AS terms2Desc,
    MAX(DECODE(terms_type, 3, terms_type)) AS terms3,
    MAX(DECODE(terms_type, 3, terms_description)) AS terms3Desc
  FROM
    po_table
GROUP BY po_num
ORDER BY po_num;

Output:

    PO_NUM  TERMS1 TERMS1DESC    TERMS2 TERMS2DESC    TERMS3 TERMS3DESC
---------- ------- ------------ ------- ------------ ------- ----------
        10       1 Desc-10-1          2 Desc-10-2          3 Desc-10-3
        20       1 Desc-20-1                               3 Desc-20-3
        30                                                            
https://stackoverflow.com/questions/19812930/transpose-rows-to-columns-in-oracle-10g

Internet explorer stopped working when opening oracle forms 10g windows7

Basically , When U run oracle forms 10g and it shows blank or Stop working on your browser, because Jinit on oracle 10g is not support on that browser. . .

I googled a little and found those problems. . .
Now i will share U how to work  your oracle form 10g on your PC
Basic OS
*Win7
*Oracle Developer 10g
*Java Runtime 6u27

The Idea is finding How to Run oracle form 10g in Mozilla or Any browser

1.

Install Java Environment 
2.
Change The Formsweb.cfg
3.
Add the plugin in browser



source : https://www.youtube.com/watch?v=lzyHQ2PcWHI