dcl Source char value('Feel the Power');
dcl Target20 char(20);
dcl Target21 char(21);
Target20 = center (Source, length(Target20), '*');
/* '***Feel the Power***' - exactly centered */
Target21 = center (Source, length(Target21), '*');
/* '***Feel the Power****' - leaning left! */
If z is omitted, a blank is used as the padding character.