RE: SQLRPGLE: SQL0312-Not defined or usable -- RPG400-L

Rob,

This is an example of one I use.  The 'a' is causing the RNF3502 error.
When checking up on this it I realized I might be missing the obvious.  Data
structures are used to return multiple records in a fetch.  The data
structure you have defined is not a MODS.  That may have been the cause of
the original error after all.  When I got to double checking some of my
code, I don't specify a length either so it should work whether a length is
specified for the DS or not.

d sqlRecord       ds            45    Occurs(100) Based(sqlRecord@)
d  Field1                        3s 0                              
d  Field2                       12s 0                              
d  Field3                       30                                 

Rick

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

You mean like this:
     D UserId          ds            10a
RNF3502E Entry is not blank for data-structure definition; defaults to
blanks.

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




"Chevalier, Rick" <Rick.Chevalier@xxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
03/20/2003 10:12 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


Rob,

Try putting a length on the DS.  I receive this error a lot when I forget
to
explicitly define a field even though it is implicitly defined in an
external file.

Rick

-----Original Message-----
From: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx]
Sent: Thursday, March 20, 2003 8: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.
_______________________________________________
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 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.