A minor point that prove more efficient.
DEFINE #MY-STRING (A10000)
2 #MY-ARRAY (A5/1:2000)
You still have the array available for your coding.
However, what you can also do is EXAMINE #MY-STRING FOR … GIVING POSITION
If the array has a lot of entries examining the string will be far more efficient.