gawk help for inserting a field of a .txt file in the same file

Shell Programming and Scripting
1

i had the following type of data file vchrdump:
Vouchers For Date :05/01/2009 *
-------------------------------------------------------------------------------------------------------------------------------------------------------------------
ENTRY 4 13 FLDAIRY 20070038 GANDLA SIVA VARA PRASAD 9,400.00 GSD RRR
-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Total Debits For Date 05/01/2009 :
Total Credits : 9,400.00
-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Vouchers For Date :06/01/2009
-------------------------------------------------------------------------------------------------------------------------------------------------------------------
TR-INT 6 11 FLDAIRY 20070011 GANI DIBBAMMA SB 5662 3.00 GSD BSR
ENTRY 16 82 FLDAIRY 20070011 GANI DIBBAMMA SB 5662 3.00 GSD BSR
ENTRY 16 83 FLDAIRY 20070011 GANI DIBBAMMA SB 5662 84.00 GSD BSR
ENTRY 9 46 FLDAIRY 20070022 DUDEKULA UMAYULU SB 7023 400.00 GSD BSR

i want the date part of 'Vouchers For Date :05/01/2009' to be inserted at the begining of each row till the next date comes..and so on...

i tried the following command:
BEGIN {i=0} NF>10 && NF<16{print $0 ; i++ } i==999 NEXT
which gave the data as under:
ENTRY 4 13 FLDAIRY 20070038 GANDLA SIVA VARA PRASAD 9,400.00 GSD RRR
TR-INT 6 11 FLDAIRY 20070011 GANI DIBBAMMA SB 5662 3.00 GSD BSR
ENTRY 16 82 FLDAIRY 20070011 GANI DIBBAMMA SB 5662 3.00 GSD BSR
ENTRY 16 83 FLDAIRY 20070011 GANI DIBBAMMA SB 5662 84.00 GSD BSR

pl.. help by refining my above mentioned command

2

Can you please provide an example of exactly how you want the output to look. Thanks.

3

05/01/2009ENTRY 4 13 FLDAIRY 20070038 GANDLA SIVA VARA PRASAD 9,400.00 GSD RRR
06/01/2009TR-INT 6 11 FLDAIRY 20070011 GANI DIBBAMMA SB 5662 3.00 GSD BSR
06/01/2009ENTRY 16 82 FLDAIRY 20070011 GANI DIBBAMMA SB 5662 3.00 GSD BSR
06/01/2009ENTRY 16 83 FLDAIRY 20070011 GANI DIBBAMMA SB 5662 84.00 GSD BSR

ON 5TH THERE IS ONLY ONE TXN AND HENCE ONE ROW WITH THE DATE 05/01/2009
OTHER TXNS ARE OF OTHER DAY HENCE NEXT ROWS HAD THE NEXT DAY.,TILL NEXT DATE TXNS COMES...

4

input

$ cat vtest
Vouchers For Date :05/01/2009 *
-------------------------------------------------------------------------------------------------------------------------------------------------------------------
ENTRY 4 13 FLDAIRY 20070038 GANDLA SIVA VARA PRASAD 9,400.00 GSD RRR
-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Total Debits For Date 05/01/2009 :
Total Credits : 9,400.00
-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Vouchers For Date :06/01/2009
-------------------------------------------------------------------------------------------------------------------------------------------------------------------
TR-INT 6 11 FLDAIRY 20070011 GANI DIBBAMMA SB 5662 3.00 GSD BSR
ENTRY 16 82 FLDAIRY 20070011 GANI DIBBAMMA SB 5662 3.00 GSD BSR
ENTRY 16 83 FLDAIRY 20070011 GANI DIBBAMMA SB 5662 84.00 GSD BSR
ENTRY 9 46 FLDAIRY 20070022 DUDEKULA UMAYULU SB 7023 400.00 GSD BSR

awk file

$ cat vtest.awk
function f() { if(dat!="") {print dat > ("vout.txt")} }

/^Vouchers/   {
                f()
                dte=substr($0,(match($0,":")+1),10)
                dat=""
              }

/GSD/         {
                f()
                dat=dte $0
              }

END           { f() }

output

$ cat vout.txt
05/01/2009ENTRY 4 13 FLDAIRY 20070038 GANDLA SIVA VARA PRASAD 9,400.00 GSD RRR
06/01/2009TR-INT 6 11 FLDAIRY 20070011 GANI DIBBAMMA SB 5662 3.00 GSD BSR
06/01/2009ENTRY 16 82 FLDAIRY 20070011 GANI DIBBAMMA SB 5662 3.00 GSD BSR
06/01/2009ENTRY 16 83 FLDAIRY 20070011 GANI DIBBAMMA SB 5662 84.00 GSD BSR
06/01/2009ENTRY 9 46 FLDAIRY 20070022 DUDEKULA UMAYULU SB 7023 400.00 GSD BSR

how to run

$ awk -f vtest.awk vtest
5

A slightly simplified version: -

nawk '
  /^Vouchers/{date=substr($0,(match($0,":")+1),10)}
  /GSD/{print date $0}
' infile