Win32::SqlServer::DTS::Assignment::Destination::Task - a subclass of Win32::SqlServer::DTS::Assignment::Destination for tasks

    use warnings;
    use strict;
    use Win32::SqlServer::DTS::Application;
    my $xml = XML::Simple->new();
    my $config = $xml->XMLin('test-config.xml');

    my $app = Win32::SqlServer::DTS::Application->new($config->{credential});

    my $package =
      $app->get_db_package(
        { id => '', version_id => '', name => $config->{package}, package_password => '' } );

	my $iterator = $package->get_dynamic_props();

    while ( my $dyn_prop = $iterator->() ) {

        my $assign_iterator = $dyn_props->get_assignments();

        while ( my $assignment = $assign_iterator->() ) {

            my $dest = $assignment->get_destination();

		# checking all properties global variables being handled by Dynamic Properties task
            if ( $dest->changes('Task') ) {

                print $dest->get_string(), "\n";

            }

        }

    }

Win32::SqlServer::DTS::Assignment::Destination::GlobalVar is a subclass of Win32::SqlServer::DTS::Assignment::Destination and represents the tasks properties as the assignments destinations of a DTS package.

The string returned by the get_string method has this format:

'Tasks';name of the task;'Properties';name of the property.

Nothing.

initialize method sets the destination attribute as the DTS Package task property name. As an additional attribute, the method also sets taskname with the task name being targeted.

* Win32::SqlServer::DTS::Assignment at perldoc.

* Win32::SqlServer::DTS::Assignment::Destination at perldoc.

* MSDN on Microsoft website and MS SQL Server 2000 Books Online are a reference about using DTS' object hierarchy, but one will need to convert examples written in VBScript to Perl code.

Alceu Rodrigues de Freitas Junior, <arfreitas@cpan.org>

Copyright (C) 2007 by Alceu Rodrigues de Freitas Junior

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.