zOs/REXX/WSHLOB

with u(s, l) as
(
  select cast('text eins            ....|' as clob(2 g) ), 0
    from sysibm.sysDummyE
  union all select '<'|| l || ' ' || s
                 ||'?'|| l || '?' || s
                      || l || '>', l+1
    from u where l < 16
)
select l, length(s), cast(s as clob(66666)) s50   from u
;
select varchar(substr(s, 1, 2000), 2000) l from u
;
select l, length(s) from u