Attached is a piece of code that opens a datastore based on a datawindow
which is itself based on a stored procedure that takes two parameters.

There are two records in the dataset. The problem is thus: this code
will be customized in each application but the "linked" list it will be
stored in is part of a PFC service that will not know the number/names
of fields until run time. That code is generic and creates the initial
linked list from records stored in a table that "defines" the
number/names of fields.

Since the code must not make any assumptions about the order of the
fields, I have to cycle through the field (column) names of the
datawindow at run time and based on the column name, store it's value in
the list.

The code below seems straight forward but the "GetColumnName()" function
NEVER returns any names. What's going on? "SetRow()/_Col()" are
returning OK as well, but I have my doubts!
-----------------------
/*
This function is a PLACE holder for a function that must be
re-descended in the actual application.

It opens a datastore for the users rights and then cycles through
the rights linked list and updates the value of the group's rights
field.
*/
integer li_result = 0
long ll_row_index = 0, ll_row_count = 0, li_fld_index = 0, li_fld_count
= 0
long ll_num_errors = 0
boolean lb_result = true
string ls_msg = "", ls_group_name = ""
datastore lo_rights
n_cst_lln_right_group lo_node_found, lo_node_search
//io_lst_right_groups io_lst_right_groups

SetPointer (Hourglass!)

lo_rights = create datastore
lo_rights.dataobject = "d_rights_usps_by_app_user"
lo_rights.settrans (io_tr_appsec)
li_result = lo_rights.retrieve (is_app_name, il_user_login_id)

SetPointer (Arrow!)

if li_result = -1 then // unable to get info
   Messagebox ("Datastore Failure", "Unable to open dataobject (app name
= " + is_app_name + &
    " User ID = " + String(il_user_login_id) + ")", Exclamation!, ok!)
 return false
end if

if lo_rights.RowCount() = 0 then
 Messagebox (is_module_name + " definition error", "Unable to retrieve
user's group information. " + &
    "Contact " + is_app_owner_nds_fqn + " for more information",
Stopsign!, ok!)
 destroy lo_rights
 return false
end if

/* for each record in the datastore, and for each app's record type in
the database,
there will always be two fields as the primary key: App_Name and
Group_Name.
The remaining fields by name correlate to the "right groups"
by name in the linked list. The individual groups are initially set to 0
(no rights);
at this point, given the current numerical value for a given field, OR
it against the
"current" value of the field to create a cumulative value at the end of
the record set.
*/

SetPointer (Hourglass!)

ll_row_count = lo_rights.rowcount ()
ll_row_index = 1
// how many fields in the application's setup?
li_fld_count = Long(lo_rights.object.datawindow.column.count)
lo_node_search = create n_cst_lln_right_group

do while ll_row_index <= ll_row_count

   lo_rights.SetRow (ll_row_index) // move the correct row
 ll_num_errors = 0

   li_fld_index = 3 // start at the first right's field
 do while li_fld_index <= li_fld_count // cycle through all the fields
      SetNull(lo_node_found)
      li_result = lo_rights.SetColumn (li_fld_index)
  // -> currently returns '1' - success
//  Messagebox ("SetColumn", "Returned " + String(li_result) + " for
column " + String(li_fld_index), &
//     Information!, OK!)

    // get the name of the current column and look up it's group in the
list
  ls_group_name = lo_rights.GetColumnName()
  // -> currently returns a blank string indicating an error for some
reason

  lo_node_search.of_setkey (ls_group_name)
    // see if the node is in the list
    li_result = io_lst_right_groups.of_find (lo_node_found,
lo_node_search)
    if li_result <> 1 then
//     Messagebox ("of_load_user_rights", "Unable to find the group node
called " + &
//        ls_group_name, Exclamation!, OK!)
         ll_num_errors++
    else
   // update the group's cumulative value
   lo_node_found.of_update_right (lo_rights.getitemnumber(1,
li_fld_index))
    end if
    li_fld_index++
   loop
 Messagebox ("Number of Errors", String(ll_num_errors) + " out of " +
String(li_fld_count) + &
    " where encountered trying to look up column names", &
    Exclamation!, OK!)
   ll_row_index++
loop
SetPointer (Arrow!)
destroy lo_rights

return lb_result

Arnie,

That's because GetColumnName() returns the current column with focus.  While
you iterate through the columns, use Describe() to get the Name property -
i.e. dw_1.Describe("#1.Name").

HTH,
--
Sam Tai
Cotelligent

Arnie Morein <amorein@austin.rr.com> wrote in message
news:38C822BE.B030FFC3@austin.rr.com...
> Attached is a piece of code that opens a datastore based on a datawindow
> which is itself based on a stored procedure that takes two parameters.
>
> There are two records in the dataset. The problem is thus: this code
> will be customized in each application but the "linked" list it will be
> stored in is part of a PFC service that will not know the number/names
> of fields until run time. That code is generic and creates the initial
> linked list from records stored in a table that "defines" the
> number/names of fields.
>
> Since the code must not make any assumptions about the order of the
> fields, I have to cycle through the field (column) names of the
> datawindow at run time and based on the column name, store it's value in
> the list.
>
> The code below seems straight forward but the "GetColumnName()" function
> NEVER returns any names. What's going on? "SetRow()/_Col()" are
> returning OK as well, but I have my doubts!
> -----------------------
> /*
> This function is a PLACE holder for a function that must be
> re-descended in the actual application.
>
> It opens a datastore for the users rights and then cycles through
> the rights linked list and updates the value of the group's rights
> field.
> */
> integer li_result = 0
> long ll_row_index = 0, ll_row_count = 0, li_fld_index = 0, li_fld_count
> = 0
> long ll_num_errors = 0
> boolean lb_result = true
> string ls_msg = "", ls_group_name = ""
> datastore lo_rights
> n_cst_lln_right_group lo_node_found, lo_node_search
> file://io_lst_right_groups io_lst_right_groups
>
> SetPointer (Hourglass!)
>
> lo_rights = create datastore
> lo_rights.dataobject = "d_rights_usps_by_app_user"
> lo_rights.settrans (io_tr_appsec)
> li_result = lo_rights.retrieve (is_app_name, il_user_login_id)
>
> SetPointer (Arrow!)
>
> if li_result = -1 then // unable to get info
>    Messagebox ("Datastore Failure", "Unable to open dataobject (app name
> = " + is_app_name + &
>     " User ID = " + String(il_user_login_id) + ")", Exclamation!, ok!)
>  return false
> end if
>
> if lo_rights.RowCount() = 0 then
>  Messagebox (is_module_name + " definition error", "Unable to retrieve
> user's group information. " + &
>     "Contact " + is_app_owner_nds_fqn + " for more information",
> Stopsign!, ok!)
>  destroy lo_rights
>  return false
> end if
>
> /* for each record in the datastore, and for each app's record type in
> the database,
> there will always be two fields as the primary key: App_Name and
> Group_Name.
> The remaining fields by name correlate to the "right groups"
> by name in the linked list. The individual groups are initially set to 0
> (no rights);
> at this point, given the current numerical value for a given field, OR
> it against the
> "current" value of the field to create a cumulative value at the end of
> the record set.
> */
>
> SetPointer (Hourglass!)
>
> ll_row_count = lo_rights.rowcount ()
> ll_row_index = 1
> // how many fields in the application's setup?
> li_fld_count = Long(lo_rights.object.datawindow.column.count)
> lo_node_search = create n_cst_lln_right_group
>
> do while ll_row_index <= ll_row_count
>
>    lo_rights.SetRow (ll_row_index) // move the correct row
>  ll_num_errors = 0
>
>    li_fld_index = 3 // start at the first right's field
>  do while li_fld_index <= li_fld_count // cycle through all the fields
>       SetNull(lo_node_found)
>       li_result = lo_rights.SetColumn (li_fld_index)
>   // -> currently returns '1' - success
> //  Messagebox ("SetColumn", "Returned " + String(li_result) + " for
> column " + String(li_fld_index), &
> //     Information!, OK!)
>
>     // get the name of the current column and look up it's group in the
> list
>   ls_group_name = lo_rights.GetColumnName()
>   // -> currently returns a blank string indicating an error for some
> reason
>
>   lo_node_search.of_setkey (ls_group_name)
>     // see if the node is in the list
>     li_result = io_lst_right_groups.of_find (lo_node_found,
> lo_node_search)
>     if li_result <> 1 then
> //     Messagebox ("of_load_user_rights", "Unable to find the group node
> called " + &
> //        ls_group_name, Exclamation!, OK!)
>          ll_num_errors++
>     else
>    // update the group's cumulative value
>    lo_node_found.of_update_right (lo_rights.getitemnumber(1,
> li_fld_index))
>     end if
>     li_fld_index++
>    loop
>  Messagebox ("Number of Errors", String(ll_num_errors) + " out of " +
> String(li_fld_count) + &
>     " where encountered trying to look up column names", &
>     Exclamation!, OK!)
>    ll_row_index++
> loop
> SetPointer (Arrow!)
> destroy lo_rights
>
> return lb_result
>
>