adresses
DFE/ job of addresses MAJ - 18/11/2004
2
V0
RD/ Preprod ok - 15/05/2001 (!!!perf on upd?)
Modified by LCO : 19/06/2001: Use system_origin as parameter
Modified by LCO : 22/06/2001: Retreive Country Short Name
Modified by EPE : 17/02/2004: ajout de la notion Sales Territory (Country, region, sector)
Modified by EPE : 19/02/2004: ajout de la notion Salesrep_id
Modified by DFE : 18/11/2004: modification des requetes ar_ra_adresses_n_phone et oa_ra_territories: ajout de comparaison avec la last_update_date de HZ_CUST_SITE_USES_ALL
50.0.0
1
$GV_Portage_Rejects_Pathname
GV Portage Rejects Pathname
F:\Projects\BI_Interfaces\Portage\Rejects
0
0
0
$GV_Portage_Hash_Pathname
GV Portage Hash Pathname
F:\Projects\BI_Interfaces\Portage\Hash\
0
0
0
li_hf_adresses
V0S1
TABLE
APPS.RA_ADDRESSES_ALL
GENSQL
Yes
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
WHERE_CLAUSE
LAST_UPDATE_DATE>=(SELECT LAST_LOADING_DATE from DWADMIN.INT_LOADINGS@#DB_LINK#
WHERE TABLE_NAME = 'CUS_ADDRESSES' AND SYSTEM_ORIGIN = '#system_origin#' )
or
(select max(last_update_date)
from apps.HZ_CUST_SITE_USES_ALL
where cust_acct_site_id = RA_ADDRESSES_ALL.address_id)
>=(SELECT LAST_LOADING_DATE from DWADMIN.INT_LOADINGS@#DB_LINK#
WHERE TABLE_NAME = 'CUS_ADDRESSES' AND SYSTEM_ORIGIN = '#system_origin#')
...
####
#!/bin/perl -w
use strict;
use XML::Twig;
my $t= new XML::Twig( TwigHandlers=> { job => \&job});
$t->parsefile( 'T:\\BI\\Jerome\\xml\\tree.xml');
exit;
sub job
{ my ($t, $job)= @_;
my %job;
$job{Attr_name}= join ':',map {$_->text || ''} @{[$job->children( 'Name')]};
$job{Attr_value}= join ':',map {$_->text || ''} @{[$job->children( 'Value')]};
print "$job{Attr_name}: $job{Attr_value}\n";
$job->delete;
}