1). I tried this -
@get_list_fields = (1,3,240000008);
@entries = ars_GetListEntryWithFields($ctrl, $form, $qual, 0, 0,
[ @get_list_fields ]);
When I try to retrieve a field by name 'Worklog' whose field id is
240000008 (as per https://w.amazon.com/?RemedyDBColumns),
I get this error -
[ERROR] Cannot specify a diary field, a character field with unlimited
length or maximum length over 255 bytes, or Status-History as a field in
a get list description (240000008) (ARERR #241) at test3.pm line 38.
Any thoughts?
2). Also, I was expecting the following two calls to return me with
_all_ the fields in the 'HPD:HelpDesk' form. But it returned only few
(about 10 fields)?
ars_GetListEntry($ctrl, $form, $qual, 0, 0);
ars_GetListEntryWithFields($ctrl, $form, $qual, 0, 0);
Here's the output:
$VAR1 = '0003044848';
$VAR2 = {
'1' => '0003044848',
'200000004' => 'Subway 2.0',
'3' => 1170889526,
'200000005' => 'Operations',
'240000006' => 'Subway 2.0 Ops Scrum team',
'240000015' => 'ajayc',
'536870944' => 'ajayb',
'7' => 6,
'8' => '[AUTOCUT] LogScan exceeded on
aws-subway-sal-1101.vdc.amazon.com [[ERROR] [2007-02-07 15:05:00,506]
ISE:GRID: [ID11708895003595',
'536871031' => 3,
'536871015' => 1170922734,
'536871018' => undef
};
ps: attached the whole program.
Thanks,
Deepak
use lib "/apollo/env/InfAutoARSPerl/ar/perl/pkg";
use Data::Dumper;
print "using ars...\n";
use ARS;
#my $ars = ARS::form ->new ("");
print "Starting...\n";
#$ctrl = new ARS ('remedy-1', $ENV{usr}, $ENV{pswd});
$ctrl = ars_Login("remedy-app-1101.vdc.amazon.com", $ENV{usr}, $ENV{pswd});
print "printing ctrl...\n";
print Dumper $ctrl;
my $form='HPD:HelpDesk';
my $qual = ars_LoadQualifier($ctrl, $form, "'Category' = \"AWS\" AND 'Type' =
\"Subway 2.0\" AND 'Item' = \"Operations\" AND 'Case ID+'=\"0003044848\"");
die $ars_errstr if $ars_errstr;
print "printing Qual...\n";
print Dumper $qual;
#%f = ars_GetFieldTable($ctrl, $form);
my %el = ars_GetListEntry($ctrl, $form, $qual, 0, 0, [{columnWidth=>128,
separator=>' | ', fieldId => 1 }]);
#my %el = ars_GetListEntry($ctrl, $form, $qual, 0, 0, [{columnWidth=>128,
separator=>'', 8 }]);
print "printing el...\n";
die $ars_errstr if $ars_errstr;
print Dumper $el;
foreach my $eid (keys %el)
{
my $descr = $el{$eid};
print "Field: " . $eid . "\n";
print "Field: " . $descr . "\n";
}
@get_list_fields = (1,3,240000008);
@entries = ars_GetListEntryWithFields($ctrl, $form, $qual, 0, 0,
[ @get_list_fields ]);
print "printing array...\n";
print Dumper @entries;
die $ars_errstr if $ars_errstr;
-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
Arsperl-users mailing list
Arsperl-users@arsperl.org
https://lists.sourceforge.net/lists/listinfo/arsperl-users
