>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

It shouldn't be done with SELECT. Use SCAN.