nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Check if DCR already attached to another workflow

Tanuj

Guys

I want to do a check at starting of any workflow if the dcrs for this workflow are already added in another workflow.

Basically I don't want to let the amse user to start another workflow with same DCR.

any suggections are welcome for how to achive this?

I have teamsite 6.5 windows 2000 server.

Thanks in advance

Find more posts tagged with

Comments

nipper

This is easy to do. Search the forums since it has been discussed before. During the WF initialization, run the CLT to see if any of the attached files are in WFs. If one is already in a job, then I create a new, hidden, required field on the comment screen. That prevents anyone from starting the job. Then you can list out the files in WFs.

Try it and post your code if you have questions.

Andy

Tbag

Here's some code to help you get started.


#------------------------------------------------------------------------------

=head2 METHOD assert_no_already_attached

  In general, it's a really bad practice to allow files to be attached to 
multiple workflows at the same time.  This method will inspect all of the files
passed in the @files argument and determine which, if any, of the files are 
already associated to another job.  If any are, this method returns an error
string declaring which files are offending.

  If no files are offending, this method returns the empty string.

  E.g.  C<my $err_str = assert_no_arleady_attached(1234, $wa, @attached_files);>

B<ARGUMENTS>

=over

=item $ok_jobid - a jobid that you don't want to consider as being invalid
Passing a value <= 0 for the $ok_jobid implies the assert should make sure the
files are not attached to *any* other workflow.  Passing a value of the 
current task's $jobId implies the assert should make sure the files are not
attached to any other workflow but its own.

=item $area_vpath - vpath to the workarea containing the files to test
For example, "/default/main/blah";

=item @files - an array of files to test. Files are relative to the $area_vpath
parameter

=back

=cut

#------------------------------------------------------------------------------
sub assert_no_already_attached {
    my($ok_jobid, $area_vpath, @files) = @_;
    my $errors = "";
    foreach my $file (@files) {
        my %hash = get_file_jobs($area_vpath . "/" . $file);
        if(%hash) {
            my $jobids = "";
            foreach my $jobid (keys %hash) {
                unless($jobid eq $ok_jobid) {
                    $jobids .= $jobid . " ";
                }
            }

            if($jobids) {
                $errors .= "File '$file' is already attached to job(s) $jobids
\n";   
            }
        }
    }
    return $errors;
}

There's a reference to the "get_file_jobs( )" method in there, and that's defined like this:


#------------------------------------------------------------------------------

=head2 METHOD get_file_jobs

  Wrapper around the iwgetfilejobs CLT, this method will return a hashtable of
(jobid, taskid) pairs for each and every workflow the specified file is
associated with.

  If the file specified is not attached to any workflows, an empty hash table
is returned.


B<Arguments>

=over

=item $file - vpath to a file to run the iwgetfilejobs on. For example, 
"/default/main/Blah/WORKAREA/Workarea01/whatever.txt"

=back

=cut

#------------------------------------------------------------------------------
sub get_file_jobs {
    my($file) = @_;
    my %hash = ();

    my $cmd = qq!$iwhome/bin/iwgetfilejobs "$file"!;

    open(CMD, "$cmd|") or warn "Unable to execute '$cmd' $!";
    while(<CMD>) {
        if($_ =~ /job=(\d*).*task=(\d*)/) {
            $hash{$1} = $2;
        }
    }
    close(CMD);

    return %hash;
}

My perl style isn't perfect (I tend not to use 'shift', I prefer explicitly opening commands instead of using qx, and I kinda code like it's C++ or Java), but this works for me.

Use at your own risk ;-)

nipper

Hmm, I heard one could put comments in Perl, but it never dawned on me to do that. My code is self-documenting.

Adam Stoller

Hmm, I heard one could put comments in Perl, but it never dawned on me to do that. My code is self-documenting.

Please tell me that the above comment was supposed to have a smiley associated with it.

ISCBorisB

My perl style isn't perfect (I tend not to use 'shift', I prefer explicitly opening commands instead of using qx, and I kinda code like it's C++ or Java), but this works for me

I'm impressed. There are still people who realize that *Expressive power* differs between languages.
That's the first step to bother to learn it one day. For example, couple lines below are logically
identical (with better performance) to your "get_file_jobs" subroutine, comments and all.

my %hash = ();
# %hash = get_file_jobs($area_vpath . "/" . $file); Commented out. Instead:
map {$hash{$1}='' if(m/job=(\d*).*task=\d*/)} qx($iwhome/bin/iwgetfilejobs "$area_vpath/$file");

Migrateduser

Hi Tanuj,

You need to put a external task to check whether a DCR is already associated with any Task/Job. In that external task you can call a CLT or write your custom code for checking whether DCR is attached or not.

for Eg. You could run the CLT as
$myAttachedJobList = `$iwhome\\bin\\iwgetfilejobs.exe $fileName`;

then in the AttachedJobList you filter with the current task/job.

If the attachedjoblist still have the data then the DCR is associated with some other task/job.

sample perl script:

#!C:\iw-home/iw-perl/bin/iwperl

use TeamSite::WFworkflow;
use TeamSite::WFtask;

my $iwhome = TeamSite::Config::iwgethome();
my $workflow = new TeamSite::WFworkflow($ARGV[0]);
my $task = new TeamSite::WFtask($ARGV[1]);
my @taskfiles = $task->GetFiles();
(my $area = $ARGV[2]) =~ tr|\\|/|;
my $checkCounter=0;
#Open a file for tracking the data
open(myFile,'>>C:/iw-home/local/bin/RajIPLS/data.txt');

# loop through the list of files.
foreach $myTaskFiles (@taskfiles)
{
print myFile "Attached file which is under command is :- $myTaskFiles\n";
# converted \ to /
$myTaskFiles=~ tr|\\|/|;
#Concatenate the file name with area path
my $fileName="$area/$myTaskFiles";
$myAttachedJobList = `$iwhome\\bin\\iwgetfilejobs.exe $fileName`;
#Convert Scaler variable to linear array
@myArrayForJobList= split(/\n/,$myAttachedJobList);
#removed first line from the array
splice(@myArrayForJobList,0,1);
#if the length of array is greater then 1 then some other task/job is associated with the current file else no other job attached.
my $sizeofArray = @myArrayForJobList;
if($sizeofArray > 1)
{
$checkCounter=1;
print myFile "Attached with Task";
}
else
{
print myFile "Attached with no Task";
}
if($checkCounter ==1)
{
last;
}

}
$workflow->Refresh();

#if the file associated with any job/task then value of counter is equal to 1 else it is 0
if($checkCounter ==1)
{
$task->CallBack(1, "Could Not attach to a Task.");
}
else
{
$task->CallBack(0, "Please Edit and submit the file/files.");
}
#close the file
close(myFile);

Thanks and Regards
raj_k@assigncorp.com

Tbag

You don't really need an ExternalTask in your workflow to do this check for you; you can just make a system call/method call to the iwgetfilejobs.exe at the head of your WFT file and fail/continue based on what results you get back.

Migrateduser

As I have not worked with 6.5 TS and I have also limited knowledge of 6.7.1 but as I suppose you can not code in current Workflow modeller directly so we need to put an external task over there to acheive the functionality and the file write operation is just for the keeping track the activities, you can remove that also

Mohan_Babu

I Guess ppl here are finding very easy ways to confuse the new comers..

chetansethi

Tthe crux of the all the posts below is that you need to run iwgetfilejobs on the file. This command would give you the list of workflows which already have the file attached.

Now how you implement that is upto you... There are mutiple ways of doing it... You could put this in an external task or the template_script tag of the wft... Choice is yours

Hope this helps

Tanuj

Guys this is how I did it. works fine for me


#================================ check for file already in some other workflow ================================================


# make sure the file list is defined
my @files = ();                      

  if (__ELEM__('iw_file'))                   # form, then html-encoded
  {                                          # by hand via CGI_lite
      @files = map { TeamSite::CGI_lite::escape_html_data($_);
    } sort  __VALUE__('iw_file');
  }
  my $FlagAlreadyExists=assert_no_already_attached(0,$vpath,@files);

debug("assert_no_already_attached: ".$FlagAlreadyExists);
sub assert_no_already_attached {
    my($ok_jobid, $area_vpath, @files) = @_;
    my $errors = "";
    foreach my $file (@files) {
        my %hash = get_file_jobs($area_vpath . "/" . $file);
        if(%hash) {
            my $jobids = "";
            foreach my $jobid (keys %hash) {
                unless($jobid eq $ok_jobid) {
                    $jobids .= $jobid . " ";
                }
            }

            if($jobids) {
                $errors .= "File '$file' is already attached to job(s) $jobids\n";   
            }
        }
    }
    return $errors;
}

sub get_file_jobs {
    my($file) = @_;
    my %hash = ();

    my $cmd = qq!$iwhome/bin/iwgetfilejobs "$file"!;

    open(CMD, "$cmd|") or warn "Unable to execute '$cmd' $!";
    while() {
        if($_ =~ /job=(\d*).*task=(\d*)/) {
            $hash{$1} = $2;
        }
    }
    close(CMD);

    return %hash;
}
#============================= End ===================================================

Then I check for $FlagAlreadyExists later in script.


if ($FlagAlreadyExists ne "")
{
    TAG_info(
             iw_FlagAlreadyExists_mode  => 
             [
              html => "$FlagAlreadyExists",
              label => "DO NOT PROCEED" ,
              is_required => "true",
              ],
             );


}else
{
    # your normal code to show fields for workflow here
}