Re: %char alternative

[Brian Parkins <parkib@xxxxxxxxxx>]

Eve, here's one method, (using SQL):

     D Number          S             16P 8 Inz(3.75)

     D Character       S             20A
     D Result          S                   Like(Character)

      /Free
         // Convert numeric to a character
         Character = %Char(Number);
      /End-Free

         // Use SQL string functions to save some coding
     C/Exec Sql
     C+  Set :Result = Trim(Both '0' From Trim(Both ' ' From :Character))
     C/End-Exec

      /Free
         // Display results to confirm
         Result = '<' + %Trim(Result) + '>';
         Dsply Result '*REQUESTER';
         *InLR = *On;
      /End-Free

Brian Parkins