011-5000 DLSDC 011-5100 FRMNT ##

##

use strict;
use DBI;
use XML::Generator::DBI;
use XML::Handler::YAWriter;
my $dbh = DBI->connect ("dbi:Oracle:host=myhostname;sid=mysid;port=1521",
            "userid", "pwd",
      { RaiseError => 0, AutoCommit => 0,ora_envhp=> 0}); 

my $out = XML::Handler::YAWriter->new (AsFile => "sku.xml");
   my $gen = XML::Generator::DBI->new (
                                   Handler => $out,
                                   dbh => $dbh,
                                   Indent  => 1
                               );
   $gen->execute ("SELECT ITEM,LOC FROM SKU");
   $dbh->disconnect ();


##

##