Designing Dialogs › Design Considerations › Global Records › Using the AGR-MODE field (example 2)

Using the AGR-MODE field (example 2)

IF ANY OF (EMPLOYEE-NBR, SKILL-CODE, SKILL-LEVEL)
  ARE CHANGED
   DO.
     MOVE 'Y' TO FIRST-PASS-FLAG.
     IF EMPLOYEE-NBR GE 2000 AND SKILL-CODE='A'
        DO.
          MOVE 'Y' TO ERROR-FLAG.
          DISPLAY MSG TEXT IS
             'EMPLOYEE NUMBER/SKILL CODE MISMATCH'.
        END.
     MOVE 'N' TO ERROR-FLAG.
     MOVE EMPLOYEE-NBR TO WK-EMPNBR.
     MOVE SKILL-CODE TO WK-SKLCODE.
     MOVE SKILL-LEVEL TO WK-SKLEVEL.
     LINK TO 'CEMDUEMP'.
     CALL EMPDTE25.
   END.
IF ERROR-FLAG='Y'
    DISPLAY MSG TEXT IS
       'EMPLOYEE NUMBER/SKILL CODE MISMATCH'.
CALL EMPDTE25.
!**************************************************
DEFINE EMPDTE25.
!**************************************************
IF AGR-STEP-MODE
   DO.
     IF FIRST-PASS-FLAG='Y'
       DO.
         MOVE 'N' TO FIRST-PASS-FLAG.
         DISPLAY MSG TEXT IS 'EMPLOYEE UPDATED'.
       END.
     MOVE 'Y' TO FIRST-PASS-FLAG.
   END.
EXECUTE NEXT FUNCTION.

The sample code shown in the preceding figure illustrates the use of the AGR-MODE field when data validation needs to be handled by code in the response process. Note that the EXECUTE NEXT FUNCTION command is never encountered while uncorrected validation errors still exist.