print "$dir $t_spec $part_no $chg_lvl $int_lock error" | \ 
system("awk '{printf"%-13s %10s %7s %5s %4s - %5s\n",$1,$2,$3,$4,$5,$6}' >> /$view_tag/app_hwt/heavy_duty/part_no_update.err"); 

print "$dir $t_spec $part_no $chg_lvl $int_lock" | \ 
system("awk '{printf "%-13s %10s %7s %5s %4s - error, can not update part number...\n\n",$1,$2,$3,$4,$5}'");