IMPORT util

FUNCTION monedas()
   DEFINE m RECORD 
   monedas DYNAMIC ARRAY OF RECORD
      tipo_cliente SMALLINT,
      ventas       CHAR(1)
   END RECORD,
     xventas DYNAMIC ARRAY OF RECORD
       ventas  SMALLINT,
       descripcion VARCHAR(50),
       defecto VARCHAR(2)
      END RECORD
  END RECORD,
     i INT

      DECLARE u28 CURSOR FOR
         SELECT a.tipo_cliente,a.ventas
         FROM vetb00060 a 

         LET i=1
         FOREACH u28 INTO m.monedas[i].*
           LET i=i+1 
         END FOREACH 
      DECLARE u29 CURSOR FOR
         SELECT a.ventas,a.descripcion,a.defecto
         FROM vetb00061 a 

         LET i=1
         FOREACH u29 INTO m.xventas[i].*
           LET i=i+1 
         END FOREACH 
         
    DISPLAY "ventas ",m.xventas.getLength()
         RETURN util.JSON.stringify(m)
END FUNCTION