Rational Developer for System z
Enterprise PL/I for z/OS, Version 3.8, Language Reference Manual

Example

  dcl tractatus char
        value( 'Wovon man nicht sprechen kann, ' ||
               'darueber muss man schweigen.' );

  dcl pos fixed bin init(1);

  pos = index( tractatus, 'man', pos+1 ); /* pos = 07 */

  pos = index( tractatus, 'man', pos+1 ); /* pos = 46 */

  pos = index( tractatus, 'man', pos+1 ); /* pos = 00 */

Terms of use | Feedback

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