/^' PJOB='([^']*)' PSET='([^']*)' PJNO='([^']*)' WORKDAY='/;
$pjob = $1;
$pset = $2;
$pjno = $3;

$pjno =~ s/^00//;
$jobstation = $jobsetstation{$pset};
print "follows $jobstation\#$pset.${pjob}_$pjno\n\n\n";