IMPORT util

FUNCTION precios()
 DEFINE pprecios DYNAMIC ARRAY OF RECORD
        cod_lista  SMALLINT,
        ventas     SMALLINT,
        cod_n      SMALLINT,
        cod_grupo  SMALLINT,
        cod_tipo   SMALLINT,
        cod_sec    SMALLINT,
        precio     DEC(12,2)
   END RECORD,
    i INT
   
     DECLARE u23 CURSOR FOR 
       SELECT a.cod_lista,a.ventas,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_Sec,a.precio
       FROM vetb00025 a WHERE a.status_t IS NULL

      LET i=1 
      FOREACH u23 INTO pprecios[i].* 
        LET i=i+1 
    
    END FOREACH
    FREE u23
    RETURN util.JSON.stringify(pprecios)
END FUNCTION