RE: SQLRPGLE: SQL0312-Not defined or usable

[rob@xxxxxxxxx]

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.