Mod 43 Algorithm. Translate this into ABAP

Former Member — Tue, 13 May 2008 02:55:30 GMT

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

Re: Mod 43 Algorithm. Translate this into ABAP

Former Member — Tue, 13 May 2008 04:53:16 GMT

Hi,

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

Thank you.

Re: Mod 43 Algorithm. Translate this into ABAP

Former Member — Tue, 13 May 2008 06:17:58 GMT

Problem solved. Thanks for your attention.

topic Re: Mod 43 Algorithm. Translate this into ABAP in Application Development and Automation Discussions

Mod 43 Algorithm. Translate this into ABAP

Re: Mod 43 Algorithm. Translate this into ABAP

Re: Mod 43 Algorithm. Translate this into ABAP