IMPORT util

FUNCTION ip_posicion2(pdata)
  DEFINE pdata STRING
  DEFINE p RECORD
    credenciales RECORD
       usuario,clave VARCHAR(50)
     END RECORD,  
   ppos DYNAMIC ARRAY OF RECORD
        cod_bodega     SMALLINT, 
        cod_seccion    SMALLINT,
        cod_tramo     SMALLINT,
        cod_fila,cod_pos      INT,
        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 b.bodega,a.cod_Seccion,a.cod_tramo,a.cod_fila,a.cod_pos,a.titulo  
    FROM intb00046 a inner join intb00015 b on a.cod_bodega = b.bodega
	where a.cod_tramo <= 25 and cod_fila <= 5 and cod_pos <= 5
	order by b.bodega,a.cod_Seccion,a.cod_tramo,a.cod_fila,a.cod_pos, a.titulo 
    
 LET i = 1
 FOREACH c1 INTO p.ppos[i].*
   LET i = i + 1
 END FOREACH
 DISCONNECT CURRENT
 RETURN util.JSON.stringify(p)
END FUNCTION