|
It was suggested that this might be a problem because the data structure
was locally defined to a subprocedure and the lovely precompiler doesn't
support local variables. I moved the variable to global and get the same
message.
Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin
rob@xxxxxxxxx
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
03/20/2003 09:45 AM
Please respond to RPG programming on the AS400 / iSeries
To: RPG programming on the AS400 / iSeries
<rpg400-l@xxxxxxxxxxxx>
cc:
Fax to:
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.