dcl Source char value('One Hundred SCIDS Marks');
dcl Target char(30);
Target = left (Source, length(Target), '*');
/* 'One Hundred SCIDS Marks*******' */
If z is omitted, a blank is used as the padding character.