re: SQLRPGLE Free

[jrc@xxxxxxxxxx]

The combination of bouncing in and out of /free and the c/Exec SQL, c+ , 
c/End-Exec is kludgy and annoying. I'll admit it isn't pretty but it does 
work... 
Joel
/free
// A bunch of free code snipped...
if AXTYPE = 'R';
/end-free
c/Exec SQL
c+ Select XCLIENT,
c+ XLOCAL,
c+ XPACKAGE,
c+ XPACKTYPE,
c+ XBEGDATE,
c+ XENDDATE,
c+ XTYPE
c+ Into :sqlClient,
c+ :sqlLocal,
c+ :sqlPackage,
c+ :sqlPackType,
c+ :sqlBegDate,
c+ :sqlEndDate,

- Ignored:
c+ :sqlXType
c+ From VMLOCAXES2
c+ Where XCLIENT = :clientId and XPACKAGE = :AXLOC
c+
c/End-Exec
/free
elseif AXTYPE = 'I';
/end-free
c/Exec SQL
c+ Select XCLIENT,
c+ XLOCAL,
c+ XPACKAGE,
c+ XPACKTYPE,
c+ XBEGDATE,
c+ XENDDATE,
c+ XTYPE
c+ Into :sqlClient,
c+ :sqlLocal,
c+ :sqlPackage,
c+ :sqlPackType,
c+ :sqlBegDate,
c+ :sqlEndDate,
c+ :sqlXType
c+ From VMLOCAXES2
c+ Where XCLIENT = :clientId and XLOCAL = :AXLOC
c/End-Exec

/free
endif;

if SQLStt = '00000';
// more stuff snipped
if AXTYPE = 'R';
/end-free
c/Exec SQL
c+ Update VMLOCAXES2
c+ Set XBEGDATE = :sqlBegDate,
c+ XENDDATE = :sqlEndDate,
c+ XTYPE = :sqlXType
c+ Where XCLIENT = :clientId and XPACKAGE = :AXLOC
c/End-Exec
/free
elseif AXTYPE = 'I';
/end-free
c/Exec SQL
c+ Update VMLOCAXES2
c+ Set XBEGDATE = :sqlBegDate,
c+ XENDDATE = :sqlEndDate,
c+ XTYPE = :sqlXType
c+ Where XCLIENT = :clientId and XLOCAL = :AXLOC
c/End-Exec
/free
endif;
sqlErrorCode = SQLCOD ;
sqlErrMessage = SQLERM ;
endif;
endif ;

*inlr = *on ;
/end-free


>-------------------
>
>
>Message: 1
>Date: Wed, 22 Jan 2003 20:43:15 -0600
>From: Pete Hall <pbhall@ameritech.net>
>Subject: SQLRPGLE Free
>
>Has anybody been successful in getting the /FREE
>directive to work with 
>embedded SQL?
>
>Pete Hall
>pbhall@ameritech.net
>http://www.pbhall.us/
>
>
>
>------------------------------
>
>
>Message: 3
>Date: Wed, 22 Jan 2003 22:17:52 -0500
>From: jpcarr@tredegar.com
>Subject: Re: SQLRPGLE Free
>
>
>>Has anybody been successful in getting the /FREE
>directive to work with
>>embedded SQL?
>>Pete Hall
>
>I don't think it works with the Precompilier
>
>John
>--------------------------------------------
>
>"Of all the enemies to public liberty war is,
>perhaps, the most to be
>dreaded because it comprises and develops the germ
>of every other. War is
>the parent of armies; from these proceed debts and
>taxes. And armies, and
>debts, and taxes are the known instruments for
>bringing the many under the
>domination of the few. In war, too, the
>discretionary power of the
>Executive is extended. Its influence in dealing
>out offices, honors, and
>emoluments is multiplied; and all the means of
>seducing the minds, are
>added to those of subduing the force of the
>people. The same malignant
>aspect in republicanism may be traced in the
>inequality of fortunes, and
>the opportunities of fraud, growing out of a state
>of war . . . and in the
>degeneracy of manners and morals, engendered by
>both. No nation could
>preserve its freedom in the midst of continual
>warfare."
>
>James Madison, April 20, 1795
>http://www.hermes-press.com/brainwash1.htm
>
>
>
>
>------------------------------
>
>
>Message: 4
>Date: Wed, 22 Jan 2003 21:47:32 -0600
>From: "Joe Pluta" <joepluta@PlutaBrothers.com>
>Subject: RE: SQLRPGLE Free
>
>> From: jpcarr@tredegar.com
>>
>> >Has anybody been successful in getting the
>/FREE directive to work with
>> >embedded SQL?
>> >Pete Hall
>>
>> I don't think it works with the Precompilier
>
>That would be one of those cases where you might
>want to put your /FREE code
>in a /INCLUDE. That way the precompiler would
>ignore it.
>
>Joe