Using a Configurable Variable in a Perl Script / External Task

Ok, I am really struggling with getting a Configurable Variable set using WFM models and using them in an external task.

Basically, we identify an on-demand deployment vs and overnite deployment in the workflow, and we need that info.

So, in WFM I created a configurable variable named deptype as well as a Variable under Job Variables called Gdeptype and set it equal to the deptype configurable variable. (see screenshot)

This is all set in the workflow properties.

If I start a model and use iwgetwfobj I can see the variable (see screenshot).

However, when the external tax runs, it is not getting the variable. Here is the code snipet I am using to try to get it:

$workflow = new TeamSite::WFworkflow($id) or print "Error 1: $!\n";
$Cdeptype = $workflow->GetVariables() or print "Error 2: $!\n";

while ( ($k,$v) = each %Cdeptype ) {
    print "$k => $v\n";
}

print LOG "TASK: $workflow\n";
print LOG "CDEPTYPE: $Cdeptype\n";

I'm trying to both print $Cdeptype if its a string, as well as print it out if its a hash.

I have tried both GetVariables() and GetVariable(Gdeptype) to get this variable. Here is what I get printing to a log:

TASK: TeamSite::WFworkflow=HASH(0x1521c94)
CDEPTYPE: 
DEPTYPE: $deptype

Any thoughts? The suggestions given in the forums have not seemed to help yet.

Thanks!!!

Find more posts tagged with

Comments

interDev

Try this to see if it works.
my($job) = new TeamSite::WFworkflow($wfid);
my $value=$job->GetVariable("Gdeptype");
print $value;

mart2001

You can try to use Data&colon; Smiley Very Happy

umper which will show you the structure of the hash.

MrShake

Try this to see if it works.
my($job) = new TeamSite::WFworkflow($wfid);
my $value=$job->GetVariable("Gdeptype");
print $value;

Thank you for your suggestion!!! I got nothing from that. the log is blank. (I'm out putting all prints to a log file)

interDev

Thank you for your suggestion!!! I got nothing from that. the log is blank. (I'm out putting all prints to a log file)

In that case i would suggest accessing default variables like 'IW-ModelName' in external task. If you are not able to access these variables as well that would mean the problem is definately in your external task where you are accessing these variables. Its not a resolution but you will get a confirmation on behavoir.

btw: i am accessing these variables in the external task in similar way and this code is returning values in my environment without any issues.

Adam Stoller

[...]
However, when the external tax runs, it is not getting the variable. Here is the code snipet I am using to try to get it:
$workflow = new TeamSite::WFworkflow($id) or print "Error 1: $!\n";
$Cdeptype = $workflow->GetVariables() or print "Error 2: $!\n";

while ( ($k,$v) = each %Cdeptype ) {
    print "$k => $v\n";
}

print LOG "TASK: $workflow\n";
print LOG "CDEPTYPE: $Cdeptype\n";
[...]

Please try adjusting the above code as indicated below:

$workflow = new TeamSite::WFworkflow($id) or print "Error 1: $!\n";
if (! $workflow->IsValid()) {
    print LOG "WORKFLOW [$id] INVALID\n";
    exit 1;
}
else {
    print LOG "WORKFLOW IS VALID\n";
}
...

I would just like to verify that:

MrShake

[QUOTE=ghoti]Please try adjusting the above code as indicated below:

$workflow = new TeamSite::WFworkflow($id) or print "Error 1: $!\n";
if (! $workflow->IsValid()) {
    print LOG "WORKFLOW [$id] INVALID\n";
    exit 1;
}
else {
    print LOG "WORKFLOW IS VALID\n";
}
...

I would just like to verify that:

INVALID

nipper

$id is blank, so how is it being set (or not)

MrShake

that I am not sure of, I assumed it was a default set of some kind, as the perl module docs do not indicate how to set it.

nipper

that I am not sure of, I assumed it was a default set of some kind, as the perl module docs do not indicate how to set it.

It is passed as part of the command line. You need statements like these before it:

my $wfid = $ARGV[0];
my $taskid = $ARGV[1];
my $workarea = $ARGV[2];

$taskid is what you need to use as a parameter to WFtask, $wfid, is what you pass to WFworkflow

MrShake

Ok, I have this working now. In the interest of helping others, here is my final code:


print LOG "BEGIN LOG:\n";

my($deptype, $jobid, $taskid, $area) = (shift, shift, shift ,shift);

#print LOG "Original DEPTYPE: $deptype\n";
#print LOG "$ARGV[0], $ARGV[1], $ARGV[2], $id, $jobid\n";

if ($deptype eq "") {$workflow = new TeamSite::WFworkflow($jobid);
if (! $workflow->IsValid()) {
    print LOG "WORKFLOW [$jobid] INVALID\n";
    exit 1;
}
else {
    print LOG "WORKFLOW [$jobid] IS VALID\n";
}

$deptype = $workflow->GetVariable('Gdeptype') or print LOG "Error 2: $!\n";}

print LOG "DEPTYPE: $deptype\n";

I am dealing with a mixed environment, both the old WFTs and the new models, our old system was using the shift option to get the deptype

Now I'm using the WFworkflow module to get it. I was, however, able to grab the job id from the shift function to feed to the workflow module so I was getting valid data. It all works as designed now.