Re: SQL precompiler does not support qualified variables

["Andrew Lutz" <alutz@xxxxxxxxxxxx>]

Rob,

Here is a code sample, it doesn't do much here, but it compiles, runs and I am 
able to debug values retrieved using the qualified names.


BTW I do agree IBM should not make us jump through hoops.....



 D Table1        E DS                  EXTNAME(ATESTTABLE)
 D                                     QUALIFIED
 D Table1A       E DS                  EXTNAME(ATESTTABLE)
 D                                     BASED(Table1Ptr)
 C                   EVAL      Table1Ptr = %ADDR(Table1)
 C/Exec SQL
 C+ SELECT A_SQL_30_CHAR_LONG_FIELD_NAME INTO
 C+ :Table1A FROM A_TEST_TABLE_FOR_DEMO_USE
 C+ WHERE A_SQL_30_CHAR_LONG_FIELD_NAME = 'B'
 C/End-Exec
 C                   RETURN



Andrew Lutz
Database Administrator
(916) 851-7140
alutz@pmigroup.com


>>> rob@dekko.com 02/27/02 11:16AM >>>

Andrew,

I like qualified variables because it allows me to have the same variable
name for different meanings.  Let's take trigger programs for an example.
Picture 3 data structures
     D NEW           E DS                  EXTNAME(LOGIN) QUALIFIED
     D OLD           E DS                  LIKEDS(NEW)
     D WORK          E DS                  LIKEDS(NEW)
Put the new buffer into new, the old buffer into old and use the work for
temporary values.  And if the file has a field called LibName then you will
have new.libname, old.libname, work.libname.

I use based on variables.  I have no problem with them, when applicable.
But if I have to do
     D WORK          E DS                  LIKEDS(NEW)
     D MyBasedVar      s                   like(work.libname)
based(pMyBasedVar)
     D pMyBasedVar     s                *
Then that won't work either because MyBasedVar is defined like a qualified
name
I would have to have
     D ThisVar         s               3a
Notice, no like allowed because my like would be like the 'sql intolerant'
qualified name

I suppose I could do:
     D LOGIN         E DS                  EXTNAME(LOGIN)
     D NEW           E DS                  LIKEDS(LOGIN)
     D OLD           E DS                  LIKEDS(LOGIN)
     D WORK          E DS                  LIKEDS(LOGIN)
And the variables in the login datastructure would not be qualified.  Me,
I'd rather they fix the problem versus me having to constantly work around.
Although violence would be temporarily satisfactory.

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin

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