Create a TCL Routine for Update a Column table with node of set

Hello 

I am writing a tcl script to create a table with the ID node of set:

*createstringarray 1 int
*tablecreate "NODE" 1 1 1 1
set table_id [hm_getvalue tables name=NODE dataname=id]

*createmark nodes 1 "by set" 100
set nodes_list [hm_gettablecolumndata $table_id 1]

But  is not working.

Can you help me ?

Thank you in advance