Shell Programming and Scripting

ISA~00~          ~00~          ~ZZ~RRRR           ~ZZ~FFF FIAC       ~110611~2215~U~00301~000002391~0~P~>
GS~FA~RRRR MFG~FFFXMFG~110611~2215~1847~X~002000
ST~997~1751
AK1~PO~970
AK2~830~000031588 #I want to print the other variables for every occurrence of AK2
AK5~A
AK2~830~000031589
AK5~A
AK2~830~000031590
AK5~A
AK2~830~000031607
AK5~A
AK9~A~186~186~186
SE~376~1751
GE~1~1847
IEA~1~000002391
 
I'd like the OUTPUT to look this:
RRRR           ,FFF FIAC       ,000002391,FA,RRRR MFG,1847,PO,970,830,000031588,,,,,,A,,A,186,186,186,,
RRRR           ,FFF FIAC       ,000002391,FA,RRRR MFG,1847,PO,970,830,000031589,,,,,,A,,A,186,186,186,,
RRRR           ,FFF FIAC       ,000002391,FA,RRRR MFG,1847,PO,970,830,000031590,,,,,,A,,A,186,186,186,,
RRRR           ,FFF FIAC       ,000002391,FA,RRRR MFG,1847,PO,970,830,000031607,,,,,,A,,A,186,186,186,,

BEGIN { FS="~" }
/^ISA~/ { f1=$7; f2=$9; f3=$14 }
/^GS~/ { f4=$2; f5=$3; f6=$7 }
/^AK1~/ { f7=$2; f8=$3 }
/^AK2~/ {
        i = 0
        ak9[i]=$2; ak10[i]=$3;
        while (getline > 0)
        {
                if ($0 ~ /^AK5~/)
                        f11=$2

                if ($0 ~ /^AK2~/)
                {
                        ak9[++i]=$2; ak10[i]=$3
                }

                if ($0 ~ /^AK9~/)
                {
                        f12=$2; f13=$3; f14=$4; f15=$5;
                        for (j in ak9)
                        {
                                printf("%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,,,,,,%s,,%s,%s,%s,%s,,\n",
                                f1, f2, f3, f4, f5, f6, f7, f8, ak9[j], ak10[j], f11, f12, f13,                                                                                  f14, f15)
                        }
                        break;
                }
        }
}

mute@geek:~$ awk -f awk ./input
RRRR           ,FFF FIAC       ,000002391,FA,RRRR MFG,1847,PO,970,830,000031588,,,,,,A,,A,186,186,186,,
RRRR           ,FFF FIAC       ,000002391,FA,RRRR MFG,1847,PO,970,830,000031589,,,,,,A,,A,186,186,186,,
RRRR           ,FFF FIAC       ,000002391,FA,RRRR MFG,1847,PO,970,830,000031590,,,,,,A,,A,186,186,186,,
RRRR           ,FFF FIAC       ,000002391,FA,RRRR MFG,1847,PO,970,830,000031607,,,,,,A,,A,186,186,186,,