Kuka robot. Calculate a relative position around TCP

Question

I want to turn the position around the TCP like in jog mode does

The first try was to add the value to the position:

$TOOL = TOOL_DATA[1]
$BASE = BASE_