RE: Using Data Structures and Eval-corr to Check Key Change in File

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