Power Builder - obtener columnas de una DW

Hola

como puedo obtener por codigo todas las columnas y sus nombre de una datawindow

Muchisimas gracias

// Variables de trabajo...
// this... = nombre objeto dw.
integer li_numcol, li_totcol
string ls_col[], ls_columna
for li_numcol = 1 to integer(this.Describe("DataWindow.Column.Count"))
// Posiciona en las columnas visibles y obtiene nombre
if this.SetColumn(li_numcol) = 1 then
sls_col[UpperBound(sls_col[])+1] = trim(this.GetColumnName())
end if
next
// Si DW obtiene columnas
li_totcol = UpperBound(sls_col[])
if li_totcol > 0 then
for li_numcol = 1 to li_totcol
ls_columna=sls_col[li_numcol]
MessageBox('Nombre columna...',ls_columna)
next
END IF

Muchas gracias por tu ayuda Leopoldo !!!!

Saludos