zOs/SQL/EXLOBSEL

select length(topic) toplen
     , length(principal) prinlen
     , principal
     , substr(topic, 1, 100)
     from A540769.EXLOBNTRIES
;