RE: Embedded SQL Fails on JOIN

["Coyle, Stephen F." <SCoyle@xxxxxxxxxxxxx>]

OK...you are correct...I tested by hard coding the field lengths instead of using the LIKE keyword...
It ran fine and the code in the compile list confirmed that all 7 fields were being recognized...

Thanks to all for your help...I couldn't stare at it by myself any longer....

A quick follow up question...

What determines if the pre-compiler can see the definition of a field or not? 
Obviously the program compiled fine so the definition of My0006.McRp17 was available.

Here is how the definitions were brought in:
     (I0006 DS is brought in by /Include)  
	D My0006          Ds                  LikeDS(I0006)   INZ        
	D My57755U      E Ds                  ExtName(F57755U) Qualified 
	D                                     Based(TEMPLATE_ONLY)        

Again, thanks to everyone for your help and suggestions...in the future I will remember to check the code inserted by the pre-compiler, I always just took that for granted..

- Steve 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Charles Wilt
Sent: Tuesday, October 20, 2009 3:17 PM
To: RPG programming on the IBM i / System i
Subject: Re: Embedded SQL Fails on JOIN

The definition of My0006.McRp17 isn't available to the pre-compiler.

Charles

On Tue, Oct 20, 2009 at 3:04 PM, Coyle, Stephen F. <SCoyle@xxxxxxxxxxxxx> wrote:
> This what I've found...these snippets were copied directly from the compile listing...
> The code inserted by the pre-compiler is only returning 6 fields but the select statement is calling for 7.
> The error message now makes sense to me. But I still do not understand why it is dropping the last field.
> Does anyone have any ideas why the compiler would do this?
>
> D IPDs            Ds                  INZ
> D   IP$BC                             Like( My57755U.Re$BC   )
> D   IPAn8                             Like( My57755U.ReAn8   )
> D   IPEftjx                           Like( My57755U.ReEftjx )
> D   IPEnddx                           Like( My57755U.ReEnddx )
> D   IPMcu                             Like( My57755U.ReMcu   )
> D   IP$OPS                            Like( My57755U.Re$OPS  )
> D   IPRp17                            Like( My0006.McRp17    )
>
> 052900   //****SQL
> 053000   //****clare ReadCsr CURSOR FOR
> 053100   //****elect  Re$BC, ReAN8, ReEftjx,
> 053200   //****       ReEnddx, ReMcu, Re$OPS, Mcrp17
> 053300   //****       From Qtemp/F57755U
> 053400   //****       Left Outer Join F0006
> 053500   //****       on TRIM(ReMcu) = TRIM(McMcu)
> 053600   //****       Order by McRP17, Re$BC, ReAn8   ;
>
> 056800   //****SQL
> 056900   //****tch Next From ReadCsr Into :IPDs :NullInds ;
> 056900  /END-FREE
> 056900 C                   Z-ADD                      -4            SQLER6
> 056900 C                   CALL                       SQLROUTE
> 056900 C                   PARM                                     SQLCA
> 056900 C                   PARM                                     SQL_00012
> 056900 C     SQL_00015     IFEQ                       '1'
> 056900 C                   . EVAL                     IP$BC = SQL_00017
> 056900 C                   . EVAL                     IPAN8 = SQL_00018
> 056900 C                   . EVAL                     IPEFTJX = SQL_00019
> 056900 C                   . EVAL                     IPENDDX = SQL_00020
> 056900 C                   . EVAL                     IPMCU = SQL_00021
> 056900 C                   . EVAL                     IP$OPS = SQL_00022
> 056900 C                   . EVAL                     NULLINDS(1) = SQL_00023
> 056900 C                   . EVAL                     NULLINDS(2) = SQL_00024
> 056900 C                   . EVAL                     NULLINDS(3) = SQL_00025
> 056900 C                   . EVAL                     NULLINDS(4) = SQL_00026
> 056900 C                   . EVAL                     NULLINDS(5) = SQL_00027
> 056900 C                   . EVAL                     NULLINDS(6) = SQL_00028
> 056900 C                   END