... was sagt:
select char(ROUTINE_DEFINITION, 2048) from ...

bzw. char(substring(..., 1, 2048), 2048) ...

mit letzterem kannst Du Dir das in beliebigen Portionen kleiner als max Länge einer char (war mal 32tausend + Unkraut) raushacken.

D*B

... eventuell musst Du den DBCLOB auch noch verarzten, die müssen wieder mal was geraucht haben bei IBM, das Zeug hätte ich in meiner Sturm- und Drangzeit haben müssen...