Use the “PriorEffDt” function to return the value of the specified field from the record with the prior effective date. This function is valid only for effective-dated records.
Example:
If CURRENCY_CD = PriorEffdt(CURRENCY_CD) Then
Evaluate ACTION
When = “PAY”
If ANNUAL_RT = PriorEffdt(ANNUAL_RT) Then
Warning MsgGet(1000, 27, “Pay Rate Change action is chosen and Pay Rate has not been changed.”);
End-if;
Break;
When = “DEM”
If ANNUAL_RT >= PriorEffdt(ANNUAL_RT) Then
Warning MsgGet(1000, 29, “Demotion Action is chosen and Pay Rate has not been decreased.”);
end-if;
When-other
End-evaluate;
WinMessage(“This message appears after executing either of the BREAK statements or after all WHEN statements are false”);
End-if;