×

Good News Everybody!

The new search engine is LIVE!

Please report any problems to david (at) midrange.com.




Sounds like you may have some other syntax error, either in the unqualified DS definition or before that within the source.

You could try putting both data structures in a new source member by themselves and then compile that program to see if you get a syntax error.
That way you can rule out an issue with those definitions.

Do you want to share the actual definition?

Having one data structure as un-qualified has never been an issue as long as the fields you want to map have the same name in both data structures.

This code generates a single "Both are the same" Eval-Corr summary. Which is what we would expect from what you are saying your code does.

Dcl-ds xxx;
var1 char(1);
var2 char(2);
End-ds;
Dcl-ds yyy likeds(xxx) Dim(10);
eval-corr xxx = yyy(1);
eval-corr yyy(1) = xxx;

E V A L - C O R R S u m m a r y
EVAL-CORR summary 1 008000 008100
Both data structures defined with same LIKEDS or LIKEREC


When adding additional fields more summaries are generated.

Dcl-ds xxx;
var1 char(1);
var2 char(2);
var4 char(2);
End-ds;

Dcl-ds yyy qualified dim(10);
var1 char(1);
var2 char(2);
var3 char(2);
End-ds;

eval-corr xxx = yyy(1);
eval-corr yyy(1) = xxx;

E V A L - C O R R S u m m a r y
EVAL-CORR summary 1 008700
VAR1 Assigned; exact match
VAR2 Assigned; exact match
*RNF7341 VAR4 In target only.
*RNF7342 VAR3 In source only.
EVAL-CORR summary 2 008800
VAR1 Assigned; exact match
VAR2 Assigned; exact match
*RNF7341 VAR3 In target only.
*RNF7342 VAR4 In source only.


Make sure you are looking at the correct summary line when reviewing the compile listing.
The "RNF7341/RNF7342" lines should always follow the summary line.


Chris Hiebert
Senior Programmer/Analyst
Disclaimer: Any views or opinions presented are solely those of the author and do not necessarily represent those of the company.


-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Alan Cassidy
Sent: Tuesday, July 20, 2021 2:10 PM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: Re: Encore: Host variable not defined or not a valid structure.. (was Re: Eval-Corr puzzle)

By the way we are on 7.3.
RPG reference says one of the two data structures can be unqualified if the
other is qualified.
Eval-Corr KCS = KQCS(bx).
KCS is not qualified, but DS array KQCS is defined as LIKEDS(KCS).
I moved two of the fields individually and got no error for that:
KCSfield1 = KQCS.field2 ;
KCSfield2 = KQCS.field2 ;

Any ideas?

--alan

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