Comments on: Reversing a String in RPG

By: tomliotta

tomliotta — Fri, 21 Oct 2011 20:11:49 +0000

I assume the interview is over, but here is one possiblity:

     H debug
     D string          s             15a   varying inz( 'abcdef' )

     D rev             s                   like( string )
     D pos             s             10i 0

      /free
          %len( rev ) = 0;

          for pos = %len( string )  downto 1 ;

                rev = rev + %subst( string : pos : 1 ) ;

          endfor;

          string = rev ;

          *inLR = *on ;
          dump ;
          return ;
      /end-free

Other possibilities exist. Tom

By: tomliotta

tomliotta — Thu, 20 Oct 2011 20:54:10 +0000

I an declaring an array in RPG as:
DStringR s 15A DIM(%len(%trim(String)) )
I am not getting any compile time error…

Since %TRIM() isn’t valid in that location, it’s not clear why you wouldn’t get a compile error. Are you absolutely certain?

Tom

By: charliebrowne

charliebrowne — Thu, 20 Oct 2011 20:31:49 +0000

What is the rest of the code?
And when you say “no running”, is it creashing or just not doing anything?