Re: [C400-L] Returning character variables from C to RPG

[Scott Klement <c400-l@xxxxxxxxxxxxxxxx>]

Hello,

On Wed, 20 Apr 2005, Scott Klement wrote:
> 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.

Reading back my message, I don't think I made it very clear what I 
recommended.  I recommend the following as the solution to your problem:

     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;
  }

Actually, there doesn't seem to be any point to using a variable for the 
check digit. You could just do this:

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

Anyway, hope that helps.