dcl Source char value(" *** PL/I's got the Power! *** "); dcl Target char(length(Source)) varying; Target = trim(Source, ' ', '* '); /* "*** PL/I's got the Power!" */