Mod 43 Algorithm. Translate this into ABAP

[Former Member]

I need to code an ABAP program. I have the following code in VB. But I have been struggling to convert it into ABAP. Can someone please help me. I promise to give you maximum point for the successfuly conversion.

Const charSet As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%"
Function Mod43(C39 As String) As String
  For i = 1 To Len(C39)
    total = InStr(charSet, Mid(C39, i, 1)) - 1 + total
  Next i
  Mod43 = C39 & Mid$(charSet, (total Mod 43 + 1), 1)
End Function

Edited by: robertino roti prata on May 13, 2008 4:57 AM

[Former Member]

Hi,

Could u explain me what u have done as i dont know VB.

Thank you.

[Former Member]

Problem solved. Thanks for your attention.