Mover coluna de um browse

/******************** STATEMENTS**************************************
**
** variavel-logica = b-cust:MOVE-COLUMN(x, y).
** Method capaz de alterar a posicao de
** colunas de um browse.
**
**********************************************************************/

Código:

DEF BUTTON bt-fone LABEL "Mostre numeros de Telefone".

DEF VAR x AS LOGICAL.

DEFINE QUERY q-cust FOR customer SCROLLING.
DEFINE BROWSE b-cust QUERY q-cust 
       DISPLAY customer.cust-num 
               customer.name
               customer.city
               customer.state
               customer.postal-code
               customer.phone
       ENABLE  ALL 
       WITH 10 DOWN WIDTH 46 SEPARATORS 
       TITLE "Atualizacao de Clientes".
       
DEFINE FRAME f-cust
       b-cust   SKIP(1)
       bt-fone
       WITH SIDE-LABELS AT ROW 2 COLUMN 10 NO-BOX.
       
OPEN QUERY q-cust FOR EACH customer NO-LOCK.
ENABLE ALL WITH FRAME f-cust.

ON CHOOSE OF bt-fone
   DO:
      x = b-cust:MOVE-COLUMN(6, 3).
      DISABLE bt-fone WITH FRAME f-cust.
   END.
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.