RE: Embedded SQL - fetching into DS with Like over Template DS

Please ignore this.

I'm learning my lesson in how SQL doesn't like anything Qualified.

Now I'm learning about SQL and the issues it has with scoping.

Kurt Anderson
Application Developer
Highsmith Inc

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Kurt Anderson
Sent: Friday, July 15, 2005 10:48 AM
To: RPG programming on the AS400 / iSeries
Subject: Embedded SQL - fetching into DS with Like over Template DS

Just to add to my personal confusion...
(first time working with SQL's Fetch)...

Here's my Declare:
C/EXEC SQL                          
C+ DECLARE ORDHDR CURSOR FOR        
C+ SELECT OHNUM, OHBILL             
C+   FROM ORDPHDR                   
C+  WHERE OHKEYDATE >= :BegOfCurYear
C+   ORDER BY OHBILL                
C/END-EXEC                           

Here's my Fetch:
C/EXEC SQL                                        
C+ FETCH FROM ORDHDR FOR 50 ROWS INTO :OrdHdrDS   
C/END-EXEC                                        


Here's my DS:

D OrdPHdr_Tmpl  E DS                  ExtName( OrdPHdr) Based(@)  
D OrderNum        S                   Like( OrdPHdr_Tmpl.OHNum ) 
 //  Data structure to hold Order Header records read by SQL     
D OrdHdrDS        DS                  Occurs(50)                 
D  Ord                                Like( OrdPHdr_Tmpl.OHNum ) 
D* Ord                                Like( OrderNum )           
D  BT                            9P 0    


So, as shown above, the SQL compile fails.
If you comment out the 1st 'Ord' in the DS and uncomment the 2nd 'Ord'
in the DS, the compile will be successful.  What's the difference?


Kurt Anderson
Application Developer
Highsmith Inc

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