IMPORT util

FUNCTION ip_secciones2(pdata)
  DEFINE pdata STRING
  
  DEFINE p RECORD
     credenciales RECORD
       usuario,clave VARCHAR(50)
     END RECORD,    
 seccion DYNAMIC ARRAY OF RECORD
      cod_seccion     SMALLINT,
      cod_bodega      SMALLINT,
      descripcion VARCHAR(60)
  END RECORD,
  mensajes RECORD
    cod_msg    INT,
    descripcion STRING
  END RECORD
  END RECORD, 
   i SMALLINT
 CALL util.JSON.parse(pdata,p)
 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 CONEXION ',SQLCA.sqlerrm
    DISCONNECT CURRENT
    RETURN util.JSON.stringify(p)
 END IF
 DECLARE c1 CURSOR FOR
SELECT distinct a.cod_Seccion,a.cod_bodega,a.descripcion  FROM intb00010 a inner join intb00015 b
   on a.cod_bodega = b.bodega 
   order by a.cod_Seccion,a.cod_bodega,a.descripcion
   
 LET i = 1
 FOREACH c1 INTO p.seccion[i].*
   LET i = i + 1
 END FOREACH

 DISCONNECT CURRENT
 RETURN util.JSON.stringify(p)
END FUNCTION