{"id":16,"date":"2010-10-01T11:52:10","date_gmt":"2010-10-01T09:52:10","guid":{"rendered":"http:\/\/www.depieri.net\/?p=16"},"modified":"2010-10-01T22:37:55","modified_gmt":"2010-10-01T20:37:55","slug":"16","status":"publish","type":"post","link":"https:\/\/www.depieri.net\/?p=16","title":{"rendered":"querying Tivoli Workload Scheduler 8.5 (tws) using web services"},"content":{"rendered":"

Pubblico un esempio di client per l’interrogazione di tws mediante web services utilizzando perl…<\/p>\n

#!\/bin\/perl<\/code><\/p>\n

#ppm install SOAP::Lite
\n#ppm install Crypt::SSLeay<\/p>\n

use SOAP::Lite
\n#trace=>’all’
\n;<\/p>\n

#use SOAP::Lite +trace => [qw(method fault headers result debug)];<\/p>\n

my $username = ‘user’;
\nmy $password = ‘pass’;
\nmy $host\u00a0\u00a0\u00a0\u00a0 = ‘host’;<\/p>\n

sub SOAP::Transport::HTTP::Client::get_basic_credentials {
\nreturn $username => $password;
\n}<\/p>\n

$wsdl = “https:\/\/$host:31116\/PlanServicesWeb\/services\/SchedulingFactory\/wsdl\/SchedulingFactory.wsdl”;<\/p>\n

#$service = “https:\/\/$host:31116\/PlanServicesWeb\/services\/JobStreamService”;
\n#$service = “https:\/\/$host:31116\/PlanServicesWeb\/services\/JobService”;<\/p>\n

$service = “https:\/\/$host:31116\/PlanServicesWeb\/services\/SchedulingFactory”;<\/p>\n

$ns1 = “http:\/\/services.ws.tws.ibm.com\/TWS-Scheduling”;
\n$ns2 = “http:\/\/types.ws.tws.ibm.com\/TWS-Types”;<\/p>\n

my $soap = SOAP::Lite->new( proxy => $service );
\n$soap->readable(1);
\n$soap->ns($ns2,’ns2′);
\n$soap->ns($ns1,’ns1′);<\/p>\n

my $result=$soap->call(“queryJobs”,
\nSOAP::Data->name(“engineName” => undef )->prefix(ns1),
\nSOAP::Data->name(“filter” => \\SOAP::Data->value(
\nSOAP::Data->name(“details”)->prefix(ns2),
\nSOAP::Data->name(“minimum”)->prefix(ns2),
\nSOAP::Data->name(“maximum”)->prefix(ns2),
\nSOAP::Data->name(“dataType”=>”WORKSTATION_NAME”)->prefix(ns2),
\nSOAP::Data->name(“value”=> \\SOAP::Data->value(
\nSOAP::Data->name(string=>”WK17”)->prefix(“xsd”),
\n),
\n)->prefix(ns2),<\/p>\n

SOAP::Data->name(“dataType”=>”JOB_STREAM_NAME”)->prefix(ns2),
\nSOAP::Data->name(“value”=> \\SOAP::Data->value(
\nSOAP::Data->name(string=>”IGS*”)->prefix(“xsd”),
\n),
\n)->prefix(ns2),
\n),
\n)->prefix(ns1)->type(“ns2:FilterCriteria”),<\/p>\n

);<\/p>\n

die $result->faultstring if ($result->fault);<\/p>\n

#use Data::Dumper qw(Dumper);
\n#print Dumper ($result);<\/p>\n

foreach my $a ($result->valueof(“\/\/queryJobsResponse\/queryJobsReturn\/JobInstance”)) {
\nprint sprintf “%-11s %-16s %-16s %-16s %-16s %-5s\\n”, $a->{workstationName},
\n$a->{jobName},
\n$a->{jobStreamName},
\n$a->{startTime},
\n$a->{actualEnd},
\n$a->{internalStatus};
\n}<\/p>\n

exit;<\/p>\n","protected":false},"excerpt":{"rendered":"

Pubblico un esempio di client per l’interrogazione di tws mediante web services utilizzando perl… #!\/bin\/perl #ppm install SOAP::Lite #ppm install Crypt::SSLeay use SOAP::Lite #trace=>’all’ ; #use SOAP::Lite +trace => [qw(method fault headers result debug)]; my $username = ‘user’; my $password = ‘pass’; my $host\u00a0\u00a0\u00a0\u00a0 = ‘host’; sub SOAP::Transport::HTTP::Client::get_basic_credentials { return $username => $password; } $wsdl … <\/p>\n

Continue reading “querying Tivoli Workload Scheduler 8.5 (tws) using web services”<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[4],"tags":[],"class_list":["post-16","post","type-post","status-publish","format-standard","hentry","category-programming","entry"],"_links":{"self":[{"href":"https:\/\/www.depieri.net\/index.php?rest_route=\/wp\/v2\/posts\/16","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.depieri.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.depieri.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.depieri.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.depieri.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=16"}],"version-history":[{"count":0,"href":"https:\/\/www.depieri.net\/index.php?rest_route=\/wp\/v2\/posts\/16\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.depieri.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=16"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.depieri.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=16"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.depieri.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=16"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}