dcl Source char value('One Hundred SCIDS Marks'); dcl Target char(30); Target = right (Source, length(Target), '*'); /* '*******One Hundred SCIDS Marks' */