Rational Developer for System z
Enterprise PL/I for z/OS, Version 3.8, 言語解説書

  dcl Source char value('One Hundred SCIDS Marks');
  dcl Target char(30);

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


Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)