alphanumeric serial number increment

Hi All,

Can anyone help me to increment an alphanumeric sequence.

For eq: 12B345A, should become 12B345B,12B345C...,12B345Z after Z it should take the second last character and inceremnt it, say 12B346A,12B346B,12B346C.........

Please let me know whether we can use some Function Modules for this operation or can anyone please help me with a pseudocode for the same.

Thanks in Advance,

Rijish