Hello dstryr,
Following is the basic logic to extract each digit in a number from Most to Least significant (Left to Right). If the number of digits in your number string were to remain constant at 5 then 10000 as the max divisor can be used. If the number string length is to vary, then you would have to add code to make that determination (not difficult). However, once that was determined, the following logic could be put into a DO Loop in a Macro where your number can be passed as an argument for decoding.
#700 = 02232
#701 = FIX[#700 / 10000] (= 0)
#702 = FIX[#700 / 1000] - [#701 * 10] (= 2)
#703 = FIX[#700 / 100] - [[#701 * 100] + [#702 * 10]] (= 2)
#704 = FIX[#700 / 10] - [[#701 * 1000] + [#702 * 100] + [#703 * 10]] (= 3)
#705 = FIX[#700 / 1] - [[#701 * 10000] + [#702 * 1000] + [#703 * 100] + [#704 * 10]] (= 2)
Regards,
Bill