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

Thanks Rob,

I suppose then that it is an artifact of V5R2?  I'm probably going to have
to upgrade pretty soon. I'll search for ptfs...

Regards,

Rick DuVall
Systems Manager
Dealer's Auto Auction of Okc
405 947-2886 Ext:143
rick@xxxxxxxxxx


-----Original Message-----
From: wdsci-l-bounces@xxxxxxxxxxxx
[mailto:wdsci-l-bounces@xxxxxxxxxxxx]On Behalf Of rob@xxxxxxxxx
Subject: Re: [WDSCI-L] Converting SqlRpgLe Source to Free From Source
DropDown Scrambles The 'C/Exec Sql' Blocks


Rick,

Current version of WDSC, running against a V5R4 machine
     D myRandNum       s             10i 0
     D A               S              5I 0

     C/exec sql
     C+ values (rand() * 1000) into :myRandNum
     C/end-exec
     C                   EVAL      A=1+1
      /free
       *inlr=*on;
       return;
      /end-free

Becomes:
     D myRandNum       s             10i 0
     D A               S              5I 0

      /FREE
       exec sql
       values (rand() * 1000) into :myRandNum;
       A=1+1;
      /END-FREE
      /free
       *inlr=*on;
       return;
      /end-free

No problem.  Even converted the sql into free format.  Only thing that
could have been better is that if it detected an /end-free immediately
followed by a /free to eliminate them both.  The above would then become
     D myRandNum       s             10i 0
     D A               S              5I 0

      /FREE
       exec sql
       values (rand() * 1000) into :myRandNum;
       A=1+1;
       *inlr=*on;
       return;
      /end-free

Rob Berendt