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 */