Re: Embedded SQL Fails on JOIN

[Charles Wilt <charles.wilt@xxxxxxxxx>]

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