IMPORT util

FUNCTION clases(data)
  DEFINE data STRING
  DEFINE  credenciales RECORD
        usuario,clave VARCHAR(50)
  END RECORD
  DEFINE p RECORD
      pclases DYNAMIC ARRAY OF RECORD
    cod_n    SMALLINT,
    descripcion VARCHAR(60)
  END RECORD,
   mensajes RECORD
     cod_msg  INT,
     mensaje_out STRING
   END RECORD
   END RECORD,
   i SMALLINT
DISPLAY "otra data: ",credenciales.*
   CALL util.JSON.parse(data,credenciales)
   IF credenciales.usuario IS NULL THEN
      LET p.mensajes.cod_msg=3
      LET p.mensajes.mensaje_out='USUARIO ESTA EN BLANCO'
      RETURN util.JSON.stringify(p)
   END IF 
   CONNECT TO "smarmotech" USER credenciales.usuario USING credenciales.clave
   IF STATUS < 0 THEN
      LET p.mensajes.cod_msg = STATUS
      LET p.mensajes.mensaje_out="ERROR EN CONEXION ",sqlca.sqlerrm
      DISCONNECT CURRENT
      RETURN util.JSON.stringify(p)
   END IF
 DECLARE c1 CURSOR FOR
   SELECT  distinct a.codn,a.clase FROM productosIA a WHERE a.frecuencia >100

 LET i = 1
 FOREACH c1 INTO p.pclases[i].*
   LET i = i + 1
 END FOREACH
 DISCONNECT CURRENT
 RETURN util.JSON.stringify(p)
END FUNCTION