RE: SQLRPGLE: SQL0312-Not defined or usable

Thanks for the explanation.  That is exactly what I started doing on my 
own - pointers.

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




"Mackie, Roger L. (Precision Press)" <RLMackie@xxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
03/20/2003 10:57 AM
Please respond to RPG programming on the AS400 / iSeries
 
        To:     "'RPG programming on the AS400 / iSeries'" 
<rpg400-l@xxxxxxxxxxxx>
        cc: 
        Fax to: 
        Subject:        RE: SQLRPGLE:  SQL0312-Not defined or usable


Matt & Rob,

I looked this up in the SQL Higher Level Language manual Chapter 5. You
_can_ use a data structure name in embedded SQL. However, SQL expects to
return a variable for each subfield of the data structure. If UserId was
defined as 10A and UserIdDS was based on that address with the subfields 
Rob
defined, perhaps that would get past the limitations of the pre-compiler.
Seems more convoluted than necessary, but perhaps better than the
alternatives (if it works).

HTH,
Roger

-----Original Message-----
From: Haas, Matt [mailto:Matt.Haas@xxxxxxxxxxxxxxxxxxx]
Sent: Thursday, March 20, 2003 9:04
To: RPG programming on the AS400 / iSeries
Subject: RE: SQLRPGLE: SQL0312-Not defined or usable


Rob,

You can't use a data structure name in embedded SQL.

Matt

-----Original Message-----
From: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx]
Sent: Thursday, March 20, 2003 9:45 AM
To: RPG programming on the AS400 / iSeries
Subject: SQLRPGLE: SQL0312-Not defined or usable


...
     D UserId          ds
     D  dsPrefix                      3a
     D  Seq#                          7s 0
     D  Seq#Alpha                     7a   overlay(Seq#)
...
      /end-free
     C/EXEC SQL
     C+ Select LOGIN
     C+ Into :LOGIN
     C+ From GDWEB/FTPUSERCO
     C+ Where ID400=:UserID
     C/END-EXEC
      /free
...
MSG ID  SEV  RECORD  TEXT 
SQL0312  30     682  Position 22 Variable USERID not defined or not 
usable.

DSPMSGD RANGE(SQL0312) MSGF(QSQLMSG)

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@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.