×
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.
It doesn't look like I47032 is a qualified data structure.
Trevor Briggs
Analyst/Programmer
Lincare, Inc.
(727) 431-1246
TBriggs2@xxxxxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Ala, Michael
Sent: Wednesday, May 22, 2013 11:24 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Using Data Structures and Eval-corr to Check Key Change in File
I am getting an Error on the Eval Corr statement
Any help would be appreciated
Error received from compile: *RNF7352 20 1 The source operand of
EVAL-CORR is not valid.
I47032
A 104 108 SZKCOO Order Company. . .
S 109 116 0SZDOCO Order Number . . .
A 117 118 SZDCTO Order Type . . . .
Data Structures
D CurrKey DS Qualified Inz
D SZKCOO Like(PDKCOO)
D SZDOCO Like(PDDOCO)
D SZDCTO Like(PDDCTO)
D SaveKey DS LikeDS(CurrKey) Inz
Calc: I
/free
Eval-Corr CurrKey = I47032;
If SaveKey.SZDCTO = *blanks;
Exsr GetLastLine;
Eval-Corr SaveKey = CurrKey;
Else;
If SaveKey <> CurrKey;
Exsr GetLastLine;
Eval-Corr SaveKey = CurrKey;
endif;
endif;
/end-free
Thanks
MikeA
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
midrange.com
