Skip to Content
0
Former Member
May 13, 2008 at 02:55 AM

Mod 43 Algorithm. Translate this into ABAP

70 Views

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