dcl Source char value('One Hundred SCIDS Marks'); dcl Target char(30); Target = left (Source, length(Target), '*'); /* 'One Hundred SCIDS Marks*******' */
z が省略される場合は、埋め込み文字にブランクが使われます。