I copied HS11 (to ZZ11) and am trying to retrieve the REVIEW Next-Review-Date record for employees, so I replaced:

IF (PAEMPLOYEE-FOUND)
MOVE PEM-NEXT-REVIEW TO HS11F1-PEM-NEXT-REVIEW
IF (PEM-NEXT-REVIEW NOT = ZEROES)
AND (PEM-NEXT-REVIEW < WS-SYSTEM-DATE-YMD)
MOVE PARQCWS-OVERDUE-MSG TO HS11F1-OVERDUE-REVIEW-IND
END-IF

-with-

(zz11)

IF (PAEMPLOYEE-FOUND)
MOVE PEM-COMPANY TO DB-COMPANY
MOVE PEM-EMPLOYEE TO DB-EMPLOYEE
PERFORM 840-FIND-REVSET1
DISPLAY PEM-EMPLOYEE
DISPLAY REV-NEXT-REVIEW
MOVE REV-NEXT-REVIEW TO ZZ11F1-PEM-NEXT-REVIEW
IF (REV-NEXT-REVIEW NOT = ZEROES)
AND (REV-NEXT-REVIEW < WS-SYSTEM-DATE-YMD)

recompiled and formtransfered to ZZ11, but the Next review date is showing up blank? I dont have any errors after compiling...

I need to get the next Review Date from REVIEW not PAEMPLOYEE...am I missing something?

:werd:

You didn't mention what app version you're on. I recall the PA26 changed a couple of times in our last few versions and MSPs. We're on 8.1 MSP5.

If you're going to get the next review date from the REVIEW table you need to determine the max SEQ_NBR and then back up by one. The next review date value for all of the other records in that table will be blank. It may be easier getting it from the PAEMPLOYEE table if you can.

-GW