RIGHT returns a string that is the result of inserting string x at the right end of a string with length n and padded on the left with the character z as needed.
If z is omitted, a blank is used as the padding character.
>>-RIGHT(x,n-+----+-)------------------------------------------>< '-,z-'
dcl Source char value('One Hundred SCIDS Marks');
dcl Target char(30);
Target = right (Source, length(Target), '*');
/* '*******One Hundred SCIDS Marks' */