RE: Embedded Sql problem

[rob@xxxxxxxxx]

Mike, in your earlier desired result you listed two columns.  Is that all 
you really want?  If so, then drop the SELECT * and instead just select 
the two desired columns.
then it would be, (assuming that only the first column supports null 
values):
C/EXEC SQL 
C+ Fetch NEXT FROM CTLCURS Into :ColA :indA ,:ColB
C/END-EXEC

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Smith, Mike" <Mike_Smith@xxxxxxxxxxxxxxxx> 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
01/20/2004 11:07 AM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
"Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
cc

Fax to

Subject
RE: Embedded Sql problem






Well, I've found that I'm getting an -SQL0305 error which indicates that
I need a Indicator Variable. 

Some snippets of the code 

 * DATA STRUCTURES 
D SODS          E DS                  EXTNAME(SCMS) INZ 
D PrmDS         E DS                  EXTNAME(UPRM) INZ 
D CodDS         E DS                  EXTNAME(SOCD) INZ 

C                   Eval      SelectOne = %TRIM(SQLARY(1)) + ' ' + 
C                                         %TRIM(SQLARY(2)) + ' ' + 
C                                         %TRIM(SQLARY(3)) + ' ' + 
C                                         %TRIM(SQLARY(4)) + ' ' + 
C                                         %TRIM(SQLARY(5)) + ' ' + 
C                                         %TRIM(SQLARY(6)) + ' ' + 
C                                         %TRIM(SQLARY(7)) + ' ' + 
C                                         %TRIM(SQLARY(8)) + ' ' + 
C                                         %TRIM(SQLARY(9)) + ' ' + 
C                                         Where + ' ' + 
C                                         'Order By ' + %trim(OrderBy) 
 
C/EXEC SQL 
C+  PREPARE SEL FROM :SelectOne 
C/END-EXEC 
C/EXEC SQL 
C+  Declare CTLCURS SCROLL Cursor  For SEL 
C/END-EXEC 
 
 *OPEN THE CURSOR 
C/EXEC SQL 
C+  Open CTLCURS using :sodat 
C/END-EXEC 


I fetch using the following 
C/EXEC SQL 
C+ Fetch NEXT FROM CTLCURS Into :SoDS ,:prmDS, :CodDS 
C/END-EXEC



I can't figure out how to incorporate a indicator variable the way I
have it set up






_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.