IMPORT util
IMPORT os
IMPORT security
  DEFINE j INT,
  url_folder STRING,
  tmpfile STRING         
FUNCTION respuestas(pdata)
  
       DEFINE pdata STRING,
              foto_empleado BYTE
     
       DEFINE p RECORD
          credenciales RECORD
              usuario,clave      VARCHAR(50)
       END RECORD,
           repuesta RECORD
                num_emp     INT,
                cedula,
                nombre,
                id_pregunta,pregunta,repuesta,departamento string
           END RECORD,
           mensajes RECORD
              cod_msg INT,
              descripcion STRING
           END RECORD
       END RECORD,
       selec STRING,
       url_files STRING
 
 CALL util.JSON.parse(pdata,p)
  IF STATUS < 0 THEN
      LET p.mensajes.cod_msg=STATUS
      LET p.mensajes.descripcion = 'ERROR EN CONEXION ',SQLCA.sqlerrm
      RETURN util.JSON.stringify(p)

   END IF  
   DISPLAY "<RESPUESTA:>USUARIO: ",p.credenciales.usuario," pass ",p.credenciales.clave
   CONNECT TO "smarmotech" USER p.credenciales.usuario USING p.credenciales.clave
   IF STATUS < 0 THEN
      LET p.mensajes.cod_msg=STATUS
      LET p.mensajes.descripcion = 'ERROR EN CONEXION ',SQLCA.sqlerrm
      DISCONNECT CURRENT 
      RETURN util.JSON.stringify(p)
    END IF
   
   
 LET selec =
        "INSERT INTO encuestas.dbo.respuestas( cedula,created_at,nombre,num_emp,departamento,respuesta,pregunta,
                                               id_pregunta )
                     VALUES ( ?,GETDATE(),?,?,?,?,?,? ) "

          PREPARE comando FROM selec 
          EXECUTE comando USING p.repuesta.cedula,p.repuesta.nombre,p.repuesta.num_emp,p.repuesta.departamento,
                                p.repuesta.repuesta,p.repuesta.pregunta,p.repuesta.id_pregunta
 
 
  DISCONNECT CURRENT
   LET p.mensajes.cod_msg=200
   LET p.mensajes.descripcion = 'ADICION EXITOSA'
   
 RETURN util.JSON.stringify(p)
 
END FUNCTION