Shell Programming and Scripting

grep -l "^ST.997" *.replaced|sort -n|uniq>FILELIST
 
while read file
do
let "count = $count+1"
<$file awk 'BEGIN {
                 FS="[~]"
                 OFS=","}
/^ISA/  { ISA06SEND=$7
              ISA08RECV=$9
              ISA14CTRL=$13     }
/^GS/   { GS01GSTYP=$2
              GS02SEND=$3
               GS06CNTL=$7       }
/^AK1/  { AK101GSTYP=$2
              AK102GSCTRL=$3   }
/^AK3/  { AK301SEG=$2
              AK304SEGERR=$5   }
/^AK4/  { AK401ELPOS=$2
              AK404ERRDATA=$5 }
/^AK5/  { AK501STACK=$2
              AK502STERRCD=$3 }
/^AK9/  { AK901GSACK=$2
              AK902STNUM=$3
              AK903STRECV=$4
              AK904ATACCP=$5
              AK905GSERRCD=$6 }     
/^AK2/  { AK201STTYP=$2
                   AK203STCTRL=$3
                   print ISA06SEND,ISA08RECV,ISA14CTRL,3GS01GSTYP,GS02SEND,GS06CNTL,AK101GSTYP,AK102GSCTRL,AK301SEG,AK304SEGERR,AK401ELPOS,AK404ERRDATA,AK501STACK,AK502STERRCD,AK901GSACK,AK902STNUM,AK903STRECV,AK904ATACCP,AK905GSERRCD,AK201STTYP,AK203STCTRL; }
END {  print ISA06SEND,ISA08RECV,ISA14CTRL,3GS01GSTYP,GS02SEND,GS06CNTL,AK101GSTYP,AK102GSCTRL,AK301SEG,AK304SEGERR,AK401ELPOS,AK404ERRDATA,AK501STACK,AK502STERRCD,AK901GSACK,AK902STNUM,AK903STRECV,AK904ATACCP,AK905GSERRCD,AK201STTYP,AK203STCTRL; }'>>$FA_FILE
echo "FA_FILE $count:  Working with $file"
done < FILELIST

INPUT looks like this:
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
 
OUTPUT should 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,,