RE: Chainfail equivalent in SQL -- RPG400-L

Not to mention....

You shouldn't have any user variables or constants with a name that begins with SQL.

Consider anything SQLxxx as reserved words for IBM's usage.

HTH,

Charles Wilt
Software Engineer
CINTAS Corporation - IT 92B
513.701.1307
wiltc@xxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Joe Pluta
Sent: Wednesday, April 16, 2008 11:07 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Chainfail equivalent in SQL

David Gibbs wrote:

Aaron Bartell wrote:

<sarcasm-combater>
Or maybe do the following:

> D // just trying to ruin Aaron's day

D SQLFound c const(2001)

> D // oopsie

/free

if SQLFound;
// do something REALLY exciting
endif;

/end-free
</sarcasm-combater>

Just in the interest of combating the combater. :)

Actually, "if SQLFound" shouldn't compile - SQLFound is not a boolean
expression. At best it would have to be something like SQLSTATE =
SQLFound. Also, SQLFound is the wrong name; it should be SQLNotFound.
Not busting Aaron's chops, just showing that making code pretty isn't
always the answer, either.

On a more serious note ... I've never really liked the way RPG
implemented embedded SQL. I would far prefer to have first class
functionality for SQL instead of the pre-compiler 'hack' (as I see it).

In RPG's defense, the syntax for embedded SQL goes back a long way; I've
seen papers from the early 90s on embedded SQL in C, and the syntax is
exactly the same. Now, if your complaint is that you want all the logic
of the SQL precompiler built into the RPG compiler in such a way that
embedded SQL directly generates binary code, rather than acting as a
macro pre-processor, I can sympathize with your position, but that won't
change the ugliness of the embedded SQL syntax.

Joe
--
This is the RPG programming on the AS400 / 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.

This e-mail transmission contains information that is intended to be confidential and privileged. If you receive this e-mail and you are not a named addressee you are hereby notified that you are not authorized to read, print, retain, copy or disseminate this communication without the consent of the sender and that doing so is prohibited and may be unlawful. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please delete and otherwise erase it and any attachments from your computer system. Your assistance in correcting this error is appreciated.