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