// Recursive procedure used to list all children // of all parents from a rowPROCEDURE ListChildren(i=0)j is int// If no row number was passed in parameter,// gets the subscript of selected rowIF i = 0 THEN i = TVT_MyTreeViewTable.Select()j = TVT_MyTreeViewTable.GiveChild(i, taFirst)WHILE j <> -1Info("Row: " + j + ", Code: " + COL_Code[j])// Call the procedure by specifying // the current row numberListChildren(j)j = TVT_MyTreeViewTable.GiveChild(i, taNext)END