IMPORT util

FUNCTION grupos(data)
  DEFINE pgrupos DYNAMIC ARRAY OF RECORD
    cod_grupo    SMALLINT,
    descripcion VARCHAR(60)
  END RECORD,
   i SMALLINT
   DEFINE  credenciales RECORD
        usuario,clave VARCHAR(50),
        clase smallint
  END RECORD,
  data STRING

  DEFINE mensajes RECORD
     cod_msg  INT,
     mensaje_out STRING
   END RECORD


 CALL util.JSON.parse(data,credenciales)
 IF credenciales.usuario IS NULL THEN
      LET mensajes.cod_msg=3
      LET mensajes.mensaje_out='USUARIO ESTA EN BLANCO'
      RETURN util.JSON.stringify(mensajes)
   END IF 
   CONNECT TO "smarmotech" USER credenciales.usuario USING credenciales.clave
     IF STATUS < 0 THEN
      LET mensajes.cod_msg = 422
      LET mensajes.mensaje_out="ERROR EN CONEXION ",sqlca.sqlerrm
      DISCONNECT CURRENT
      RETURN util.JSON.stringify(mensajes)
   END IF
     IF credenciales.clase IS NULL THEN
      LET mensajes.cod_msg = 423
      LET mensajes.mensaje_out="ERROR, DEBES ENVIAR LA CLASE DEL PRODUCTO "
      DISCONNECT CURRENT
      RETURN util.JSON.stringify(mensajes)
   END IF
   
 DECLARE c1 CURSOR FOR
   SELECT distinct a.cod_grupo,a.descripcion FROM iptb00029 a INNER JOIN iptb00002 b ON b.cod_n= credenciales.clase
   and b.cod_grupo = a.cod_Grupo
   WHERE a.status_t IS NULL AND (a.descripcion IS NOT NULL AND a.descripcion NOT LIKE 'NO TIENE%') 
        
    
 LET i = 1
 FOREACH c1 INTO pgrupos[i].*
   LET i = i + 1
 END FOREACH
 DISCONNECT CURRENT
 RETURN util.JSON.stringify(pgrupos)
END FUNCTION