IXIA TCL script

From: Madhavi (madhavi_at_afilaindia.com)
Date: 02/27/04 

Date: 27 Feb 2004 03:47:32 -0800

Hello All!!!
           We have an Ixia packet generator that uses TCL as it's
scripting language and certain switches and routers to test.
   I want to generate tagged packets from IXIA ports to test certain
VLAN features on the routers and switches.I have used the following
code but with no success.....

1. Load Ixia Package
2. Connect to chassis
3. configure the ports
4. configure the stream
   for {set streamID 1} {$streamID <= 1} {incr streamID} {
         stream config -name "stream $streamID"
             stream config -dma advance
   # For last one....
         if { $streamID == 1 } {
           stream config -dma stopStream
         }
         
        protocol config -enable802dot1qTag true
        vlan config -vlanID 5
        if [vlan set $ChasId $Card $TxPort] {
           errorMsg "Error setting vlan parameters on $ChasId $Card $TxPort"
           set retCode 1
        }
        if [stream set $ChasId $Card $TxPort $streamID] {
                  errorMsg "Error setting stream $streamID on $ChasId $Card
$TxPort"
           set retCode 1
        }
     }
i am not able to generate the tagged packets with the above code.
Could anybody suggest what is the problem with this code?

thanks in advance
Madhavi