MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 86
Assume variable X = "ab c;de,,fg;hij=k lmn,op=qr”
• Extract the first N tokens from a string var
• setvar toks lft(x, delimpos(x, , N) -1) # includes all token delimiters
OR
• setvar j 0 # original delimiters replaced by single space
setvar toks “”
while setvar(j, j+1) <= N do
setvar toks toks + word(x, , j) + “ “
endwhile
• Extract the last N tokens from a string var
• setvar toks rht(x, -delimpos(x, , -N)-1) # includes all token delimiters
OR
• setvar j 0 # original delimiters replaced by single space
setvar toks “”
while setvar(j, j+1) <= N do
setvar toks word(x, , -j) + “ “ + toks
endwhile
String manipulations (cont)