Re: SQL precompiler does not support qualified variables

["Andrew Lutz" <alutz@xxxxxxxxxxxx>]

Rob,

How about using a based on variable?

Give the pre-compiler a non-qualified variable based on a qualified variable

I have been using this as a SQL procedure call so the not-qualified variable is 
local....

Regards,


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


>>> rob@dekko.com 02/27/02 07:56AM >>>

The following works:
     P*--------------------------------------
     P* Procedure name: GetTPTLIB
     P* Purpose:
     P* Returns:        Library name or *NONE
     P* Parameter:      tptType => Trading partner type
     P*--------------------------------------
     P GetTPTLIB       B                   EXPORT
     D GetTPTLIB       PI            10A
     D*tptType                             LIKE(TPTYPE.TPTTYPE) CONST
     D xtpttype                            like(ytptType) const

     D* Local fields
     D retFieldX       S             10A   inz(*loval)
     D ytptType        s              3a

     C/exec sql
     C+ Select tptlib into :retFieldX
     C+ from eis/tptype
     C+ where tpttype=:xtptType
     C/end-exec
      /free
       return retFieldX;
      /end-free
     P GetTPTLIB       E

The following does not:
     P*--------------------------------------
     P* Procedure name: GetTPTLIB
     P* Purpose:
     P* Returns:        Library name or *NONE
     P* Parameter:      tptType => Trading partner type
     P*--------------------------------------
     P GetTPTLIB       B                   EXPORT
     D GetTPTLIB       PI            10A
     D*tptType                             LIKE(TPTYPE.TPTTYPE) CONST
     D xtpttype                            like(yuck.ytptType) const

     D* Local fields
     D retFieldX       S             10A   inz(*loval)
     D yuck            ds                  qualified
     D ytptType                       3a

     C/exec sql
     C+ Select tptlib into :retFieldX
     C+ from eis/tptype
     C+ where tpttype=:xtptType
     C/end-exec
      /free
       return retFieldX;
      /end-free
     P GetTPTLIB       E

pmr 78043,500


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.