MAIN
  DEFINE arreglo DYNAMIC ARRAY OF RECORD
    producto,almacen STRING,
    existencia  SMALLINT,
    nodo        CHAR(10) ,
  hijos         CHAR(10)  
  END RECORD,
  i SMALLINT,
  producto, almacen STRING

  LET producto = 'ESTE ES EL PRODUCTO NO '
  LET almacen ='ESTE ES EL ALMACEN NO '
 { FOR i = 1 TO 10
     LET arreglo[i].producto = producto CLIPPED,i USING "<<<"
     LET arreglo[i].almacen  = almacen CLIPPED, i USING "<<<"
     IF i < 5 THEN
         LET arreglo[i].nodo = NULL
     ELSE
        LET arreglo[i].nodo='1'    
     END IF 
  END for}
  LET arreglo[1].producto = '1'
  LET arreglo[1].existencia = 0
  LET arreglo[1].almacen = ''
  LET arreglo[1].nodo=''
  LET arreglo[1].hijos = '1'

  LET arreglo[2].producto = '1'
  LET arreglo[2].existencia = 2
  LET arreglo[2].almacen = 'GENERAL'
  LET arreglo[2].nodo='1'
LET arreglo[2].hijos = '1.1'
  
  LET arreglo[3].producto = '1'
  LET arreglo[3].existencia = 1
  LET arreglo[3].almacen = 'EXHIBICION'
  LET arreglo[3].nodo='1'
  LET arreglo[3].hijos = '1.2'

  
  LET arreglo[4].producto = '1'
  LET arreglo[4].existencia = 1
  LET arreglo[4].almacen = 'PRINCIPAL'
  LET arreglo[4].nodo='1'
  LET arreglo[4].hijos = '1.3'
  FOR i = 1 TO arreglo.getLength()
    DISPLAY arreglo[i].producto,"    ",arreglo[i].almacen,"    ",arreglo[i].existencia,"   -- ",arreglo[i].nodo,"    ",arreglo[i].hijos
  END FOR
  OPEN WINDOW w1 WITH FORM 'treeviewfrm' 
  DISPLAY ARRAY arreglo TO sarreglo.*
  CLOSE WINDOW w1

END MAIN