Odesolve within a loop

Hi,

I am trying to solve variable T_H, starting with a guess value of for example 10 kN/m. With this value z(x) is solved using Odesolve, then T_H is evaluated and a new value of 135 kN/m is found. This iteration continues until the correct value of T_H is iterated. Could someone please guide me on how to correctly implement this in Mathcad?