RE: Test if RPGSQL

If you are using a CMS them more than likely they have a create command table that allows you to override the system defaults but if not then (see If you can?) change the default for CRTSQLRPGI COMPILEOPT() to add "DEFINE(SQLRPGLESRC)". Then you can look for that in your /IF xxx statements.

-Matt


-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Campin
Sent: Friday, July 7, 2017 1:05 PM
To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxx>
Subject: Re: Test if RPGSQL

Can't you just use a define?

/If Defined (SQL_Program)
.... Your SQL stuff.
/EndIf

Include copy block in every program but only include the define if it is an SQL program.

/define SQL_Program
/copy *libl/qsrcf,cb_execcmd
/undefine SQL_Program

On Fri, Jul 7, 2017 at 11:44 AM, <dlclark@xxxxxxxxxxxxxxxx> wrote:

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 07/07/2017
01:01:01
PM:

I am preparing a "copy book" in which I want to include some
statements only if the program uses SQL.

I found a few "predefined conditions" that tell me if creating a
module or a program, and in witch version I am, but I did not find a
condition to check if the program is rpgle or sqlrpgle, does that exist?

I once wished to determine if SQL was in use at compile time.
All I found was the ability to determine if SQL was in use at
execution time
-- via API.


Sincerely,

Dave Clark
--
int.ext: 91078
direct: (937) 531-6378
home: (937) 751-3300

Winsupply Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
(937) 294-5331




************************************************************
*********************************
This email message and any attachments is for use only by the named
addressee(s) and may contain confidential, privileged and/or
proprietary information. If you have received this message in error,
please immediately notify the sender and delete and destroy the
message and all copies. All unauthorized direct or indirect use or
disclosure of this message is strictly prohibited. No right to
confidentiality or privilege is waived or lost by any error in transmission.
************************************************************
*********************************
--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD