I need help with an array!

I have the following file:

Johnny|"New York, NY"|Driver,LNU
Bob|"Los Angeles, CA"|Crew,ASA
JIM|"Rochester, NY"|Cook,GHG
Phil|"New York, NY"|Teacher,"LNU,ASA,CCC,JJJ"

What I need to output is the following:

Johnny|"New York, NY"|Driver,LNU
Bob|"Los Angeles, CA"|Crew,ASA
JIM|"Rochester, NY"|Cook,GHG
Phil|"New York, NY"|Teacher,LNU
Phil|"New York, NY"|Teacher,ASA
Phil|"New York, NY"|Teacher,CCC
Phil|"New York, NY"|Teacher,JJJ

Basically, I want to create a new row for every entry in the 4th field.

Thanks in advance for any help!!!!

Sal

something along these lines...

nawk -f dj.awk myFile

dj.awk:

BEGIN {
  FS=OFS="|"
  SEP_com=","

  FLD_prof="3"
  qq=sprintf("%c", 034)
}
!index($FLD_prof, qq){ print; next }

{
   prof=substr($FLD_prof, 1, index($FLD_prof, SEP_com)-1)
   list=substr($FLD_prof, index($FLD_prof, SEP_com)+1)
   gsub(qq, "", list)
   n=split(list, listA, SEP_com)
   for(i=1; i<=n; i++)
      print $1, $2, prof SEP_com listA
}