adresses DFE/ job of addresses MAJ - 18/11/2004 1 0 0 li_hf_adresses V0S1 TABLE APPS.RA_ADDRESSES_ALL USERSQL SELECT ADDRESS_ID,LAST_UPDATE_DATE,LAST_UPDATED_BY,CREATION_DATE,CREATED_BY,COUNTRY,ADDRESS1,ADDRESS2,ADDRESS3,ADDRESS4,CITY,POSTAL_CODE,STATE,PROVINCE,COUNTY FROM APPS.RA_ADDRESSES_ALL WHERE LAST_UPDATE_DATE>=(SELECT LAST_LOADING_DATE from DWADMIN.INT_LOADINGS@#DB_LINK# WHERE TABLE_NAME = 'CUS_ADDRESSES' AND SYSTEM_ORIGIN = '#system_origin#' ) ARRAYSIZE 32000 478 li_addresses_ins V0S17 TABLE DWADMIN.CUS_ADDRESSES GENSQL No USERSQL INSERT INTO DWADMIN.CUS_ADDRESSES ( ADDRESS_ID, ORIGINAL_ADDRESS_ID, ADDRESS_1,ADDRESS_2, ADDRESS_3, ADDRESS_4,CITY,ZIP_CODE,COUNTRY,ADD_INFORMATION_1,ADD_INFORMATION_2,ADD_INFORMATION_3,EMAIL,CREATED_BY,CREATION_DATE,LAST_UPDATED_BY,LAST_UPDATE_DATE,SYSTEM_ORIGIN,SALES_TERRITORY_COUNTRY,SALES_TERRITORY_ADMIN_REGION,SALES_TERRITORY_SECTOR,SALESREP_ID) VALUES (DWADMIN.CUS_ADDRESS_ID_SEQ.NEXTVAL,:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11,:12,:13,TO_DATE(:14, 'YYYY-MM-DD HH24:MI:SS'),:15,TO_DATE(:16, 'YYYY-MM-DD HH24:MI:SS'),:17,:18,:19,:20,:21) ##

##


     APPS.RA_ADDRESSES_ALL
     SELECT ADDRESS_ID,LAST_UPDATE_DATE,LAST_UPDATED_BY,CREA
+TION_DATE,CREATED_BY,COUNTRY,ADDRESS1,ADDRESS2,ADDRESS3,ADDRESS4,CITY
+,POSTAL_CODE,STATE,PROVINCE,COUNTY FROM APPS.RA_ADDRESSES_ALL WHERE L
+AST_UPDATE_DATE>=(SELECT LAST_LOADING_DATE from DWADMIN.INT_LOADIN
+GS@#DB_LINK# 
               WHERE 
               TABLE_NAME = 'CUS_ADDRESSES'
               AND 
               SYSTEM_ORIGIN = '#system_origin#'
               )
     


##

##

use strict;
use XML::Twig;

my $t= new XML::Twig();
my $root = $t->root;
$t->parsefile( 'T:\\BI\\Jerome\\xml\\tree.xml');
exit;

sub job
  { my ($t, $root)= @_;
    my %job;
    $job{Attr_name}= $root->{'att'}->{'Name'};
    $job{Attr_value}= $root->{'att'}->{'Value'};
    print "$job{Attr_name}: $job{Attr_value}\n";
    $root->delete;
  }