The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Siebel::Integration::Com::BusSrv - Abstraction of Siebel Business Service

SYNOPSIS

        use Siebel::Integration::Com;
        
        my $sa = Siebel::Integration::Com->new(
                        ConnectionType=>'Thick', 
                        UserName=>$inputs{user}, 
                        PassWord=>$inputs{pass}, 
                        CFG=>$inputs{cfg}, 
                        DataSource=>$inputs{DataSource}
                );
                                                                                                                                        
        my $BS = $SiebelApp->GetService('Workflow Utilities');
        
        my $PS = $SiebelApp->NewPropertySet();
        my $Outputs = $SiebelApp->NewPropertySet();

        $PS->SetProperty('Prop Par 1', 'Prop Par 1 Value');
        $BS->InvokeMethod('Echo', $PS, $Outputs);

DESCRIPTION

The Siebel::Integration::Com modules are designed to remove the different method calls and error checking between the COM Data Control and COM Data Server interfaces. Changing between the two interfaces only requires a change in the parameters to Siebel::Integration::Com->new() rather than a rewrite of all calls. Beyond just replicating the base functions of the interfaces it is hoped that additional methods will be added to these modules to extend the functionality provided by the Siebel COM framework.

All methods that have been exposed keep the same names so there is no additional learning curve, you can program in Perl using the same method names as eScript

Base Methods

BS->Error()
        Returns the error text for the last operation, returns '' if no error.
BS->InvokeMethod(MethodName, InputPS, OutputPS)
        This updates the OutputPS variable with the results of the business service call
        Returns 1 for success
        Returns undef for failure. A failure will set BS->Error
New(Name=>'BusSrvName', ConnectionType=>'Thin/Thick', SApp=>Siebel::Integration::Com)
        Only called internally from Siebel::Integration::Com->GetService()
        Returns a Siebel::Integration::Com::BusObj object
        Sets BS->Error if an error occurs

REQUIREMENTS

See Siebel::Integration::Com

TESTING

See Siebel::Integration::Com

SEE ALSO

The documentation for Siebel::Integration::Com contains additional information

AUTHOR

Kyle Mathers, <kyle.perl at mathersit.com>

COPYRIGHT

The same as Siebel::Integration::Com

VERSION

Version 0.02 March 2013