IMPORT util

FUNCTION usuarios()
  DEFINE pusuarios DYNAMIC ARRAY OF RECORD
        usuarios  VARCHAR(50),
        password  VARCHAR(50),
        ocupacion VARCHAR(100),
        sec_vend  INT,
        nombre    VARCHAR(30),
        descuento1 DEC(12,2),
        descuento2 DEC(12,2)
    END RECORD,
     i SMALLINT
     DECLARE u1 CURSOR FOR
     SELECT a.usuario,ISNULL(b.clave,' '),a.ocupacion,a.sec_vend,
            c.nom1_emp+' '+ISNULL(c.apell1_emp,' '),b.descuento1,b.descuento2
      FROM seg0000 a,seg0001 b,adtb00003 c 
      WHERE a.usuario = b.usuario AND b.num_emp = c.num_emp

      LET i=1
      FOREACH u1 INTO pusuarios[i].* 
        LET i=i+1 
      END FOREACH
    
    DISPLAY "NUMERO USUARIOS: ",pusuarios.getLength()
    RETURN util.JSON.stringify(pusuarios)
END FUNCTION