If the TCL code you posted is ALL of your script – then it will never work. For the start:
* make sure your GW is configured to send calls without the ANI authentication
* get a TCL script which for sure works and handles the ANI authentication (search google for “tcl advanced ani authenticate”)