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