× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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.