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;

Advertisements