4GL Cobol – Get Employee's current Job Code effective date

1. lookup table PADICT to fetch field_number related to Job Code 2. lookup table HRHISTORY for the employee/field_number with the most recent effect_date. That will be it. (ignore any future dates, just in case some have been entered)

Hi Ragu, Thank you for your reply.

Does this code look corrrect?

               MOVE SF-EMP-COMPANY         TO DB-COMPANY                MOVE SF-EMP-EMPLOYEE        TO DB-EMPLOYEE                MOVE ZERO                   TO DB-OBJ-ID                MOVE 19                     TO DB-FLD-NBR                MOVE HRHSET1-FLD-NBR        TO WS-DB-BEG-RNG                PERFORM 850-FIND-BEGRNG-HRHSET1                PERFORM                  UNTIL (HRHISTORY-NOTFOUND)                    MOVE HRH-BEG-DATE        TO WS-JC-EFF-DATE                END-PERFORM.

 

That logic will likely cause an infinite loop on the HRHISTORY lookup. This is how I would do it. * RESET THE VARIABLE FOR EACH EMPLOYEE MOVE ZEROES TO WS-JC-EFF-DATE. MOVE SF-EMP-COMPANY TO DB-COMPANY MOVE SF-EMP-EMPLOYEE TO DB-EMPLOYEE MOVE ZERO TO DB-OBJ-ID MOVE 19 TO DB-FLD-NBR MOVE HRHSET1-FLD-NBR TO WS-DB-BEG-RNG PERFORM 850-FIND-BEGRNG-HRHSET1 PERFORM UNTIL (HRHISTORY-NOTFOUND) * MAKE SURE NO FUTURE DATES * PICK MOST RECENT EFF-DATE IF (HRH-BEG-DATE > WS-JC-EFF-DATE) AND (HRH-BEG-DATE <= WS-SYSTEM-DATE-YMD) MOVE HRH-BEG-DATE TO WS-JC-EFF-DATE END-IF * LOOP UNTIL NOT FOUND PERFORM 860-FIND-NXTRNG-HRHSET1 END-PERFORM.

Hi Ragu,  Thank you for your help.