Hi All,

I have this old code and I wanted to convert it. I have converted it as shown below. Please help.

* Old Code...
DO WHILE !EOF( )
  C = RT1.RECNUM_55
  R = CCRejectReasons.REASON
  Skip
  DO WHILE C = RT1.RECNUM_55
    R = R + CHR( 13 ) + CCRejectReasons.REASON
    Skip
  ENDDO
  INSERT INTO RT4( RECNUM_55, REASON ) VALUES( C, R )
ENDDO

* Here is mine...
SELECT ;
  RT.RECNUM_55 As C, ;
  CHR(13) + CC.REASON As R ;
FROM RT1 RT, CCRejectReasons CC ;
INTO CURSOR RT4

Thanks,
Sam