Re: Converting SqlRpgLe Source to Free From Source Drop Down Scrambles The 'C/Exec Sql' Blocks

[Gene Burns <burns.gene@xxxxxxxxx>]

Hi Rick & Violaine,

This happens when the source type is RPGLE instead of SQLRPGLE.

Gene Burns
Programmer Analyst
Haulers Insurance Company, Inc.
gburns@xxxxxxxx
931-381-5406 x189

Violaine Batthish wrote:
> Hi Rick,
>
> I was not able to reproduce your problem given the information here.
> Would you mind emailing me your entire member (if still available) at
> batthish@xxxxxxxxxx?
>
> thanks,
>
> Violaine Batthish
> WebSphere Development Studio Client, IBM Toronto Lab
>
> You know you've achieved perfection in design, not when you have nothing
> more to add, but when you have nothing more to take away. - Antoine de
> Saint-Exupéry
>
>
>
> wdsci-l-bounces@xxxxxxxxxxxx wrote on 30/03/2006 04:20:48 PM:
>
>   
> > hi Group,
> >
> >    Has anyone noticed this?  I am working around it by only converting in
> > selected blocks.
> >
> >    Version :6.0.1
> >    Build : 20050725_1800
> >
> >    It changes :
> >
> >      C/Exec Sql
> >      C+    Prepare A1 From :SqlString
> >      C/End-Exec
> >      C/Exec Sql
> >      C+    Declare B1 Cursor For A1
> >      C/End-Exec
> >      C/Exec Sql
> >      C+    Open B1
> >      C/End-Exec
> >
> >    To:
> >
> >      C/  ec Sql
> >           Prepare A1 From :SqlString;
> >      C/  ec Sql
> >           Declare B1 Cursor For A1;
> >      C/  ec Sql
> >           Open B1;
> >          DoU SqlCod = 100 Or
> >                SqlCod < 0;
> >
> >      C/Ex   Sql
> >          Fetch B1 Into :FlRec;
> >
> >    This is from the Source menu 'Convert All To Free Form'...
> >
> > Regards,
> >
> >
> > Rick DuVall
> > Systems Manager
> > Dealer's Auto Auction of Okc
> > 405 947-2886 Ext:143
> > rick@xxxxxxxxxx
> >
> >     
>
>
>