060,071905,001206656,80,199,23,612,129,3,99,005168,
060,071905,001366155,80,199,41,611,750,3,99,100471,
060,071905,003326935,80,199,11,612,113,3,23,018042,

##</code><code>##

elsif ($type eq "060"){
  $parsDat[0] = substr($input, 0, 3);     #Record type
  $parsDat[1] = substr($input, 3, 6);     #Dist Id
  $parsDat[2] = substr($input, 9, 9);     #id
  $parsDat[3] = substr($input, 18, 2);    #fname
  $parsDat[4] = substr($input, 20, 3);    #mname
  $parsDat[5] = substr($input, 23, 2);    #lname
  $parsDat[6] = substr($input, 25, 3);    #code
  $parsDat[7] = substr($input, 29, 3);    #code
  $parsDat[8] = substr($input, 32, 1);    #code
  $parsDat[9] = substr($input, 33, 2);    #code
  $parsDat[10] = substr($input, 35, 6);   #code
  $parsDat[11] = substr($input, 41, 39);  #code

##</code><code>##

$output = join(",", @parsDat);
print $handle "$output\n";