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



Thanks Peter,

I found the issue but that was a good suggestion. Duh.


On 2021-07-20 15:55, Peter Dow wrote:
Hi Alan,

is that an error or a warning?

If both data structures have the exact same definition, you don't need eval-corr, just eval.

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx>
pdow@xxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxx>

/
On 7/20/2021 12:49 PM, Alan Cassidy wrote:
This came up again after some source changes.
It resolved when I added DATFMT(*iso-) to the CTL-OPT specs atop the RPG source.
But I made some changes again and it popped back up again.
Okay, the real problem came out when I compiled the precompiler output.

It says, for_Eval-Corr KCS = KQCS(BX)_:
*EVAL-CORR summary 2 213200 ****Both data structures defined with same LIKEDS or LIKEREC *
..
..except KCS is not qualified with either of those two keywords,
       *_DCL-DS KCS ; _**_<field list> _**_*_END-DS;_* _*and KQCS is defined from KCS:
       *_DCL-DS KQCX LikeDS(KCS) DIM(1000) ;_*

If I remember correctly, this used to work for me. Maybe I don't remember correctly.

Thanks





On 2021-07-20 15:08, Alan Cassidy wrote:
Cross-posted

1080          exec sql SET OPTION DATFMT = *ISO ;
 1081          exec sql SET OPTION CLOSQLCSR = *ENDMOD ;
 1082          exec sql SET OPTION COMMIT = *NONE ;
 3692   c024    exec sql Fetch next from CK for :Rows_to_fetch rows into :MT ;
 3709   c024       exec sql Fetch next from CK for :Rows_to_fetch rows into :MT(rx) ;

DIAGNOSTIC MESSAGES
SG ID  SEV  RECORD TEXT
QL5066   0    1080  Precompile option DATFMT changed by SET OPTION statement.
QL5066   0    1081  Precompile option CLOSQLCSR changed by SET OPTION
statement.
QL5066   0    1082  Precompile option COMMIT changed by SET OPTION statement.
QL5011  30    3692  Position 67 Host structure array MT not defined or not
                    usable. Reason: The host variable is not defined or is
                    not a valid structure. A valid host structure must have
                    at least one valid member.
QL5011  30    3709  Position 70 Host structure array MT not defined or not
                    usable. Reason: The host variable is not defined or is
                    not a valid structure. A valid host structure must have
                    at least one valid member.
QL0104  30    3709  Position 72 Token ( was not valid. Valid tokens:
<END-OF-STATEMENT>.
                   Message Summary



As an Amazon Associate we earn from qualifying purchases.

This thread ...

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.