Re: Returning character variables from C to RPG

Hello,

IMHO, it would make more sense to return a character than to return a pointer! That way, you won't have to worry about the memory being freed up.

     D Pr_ChkDigit     PR             1A   ExtProc(*CWIDEN: 'Pr_ChkDigit')
     D   str                           *   value options(*string)

     D Wrk_Str         s             36A
     D Wrk_ChkDigit    s              1A

      /free
          Wrk_ChkDigit = Pr_ChkDigit('70500607050AEI02x');
          dsply Wrk_ChkDigit;
          *inlr = *on;
      /end-free

Or, if you prefer to put the number into a variable:

      /free
          Wrk_Str = '70500607050AEI02x';
          Wrk_ChkDigit = Pr_ChkDigit(%trimr(WrkStr));
          dsply Wrk_ChkDigit;
          *inlr = *on;
      /end-free

And the C function should look like this:

  char Pr_ChkDigit(const char *str)
  {
     char chkdigit;
     chkdigit = reverse_map(c1,c2);
     return chkdigit;
  }

  char Pr_ChkDigit(const char *str)
  {
     return reverse_map(c1,c2);
  }

Anyway, hope that helps.