* ==== TYPE: ADV-MATCH-PREVKEY-NO-MATCH ==== * FEATURE: Has WS-PREV-KEY but NOT a matching program * (trick the dedup/validation rule engine) * STATEMENT: IF * BRANCHES: 2, DECISIONS: 1 * ADVERSARIAL: WS-PREV-KEY used only as counter, not matching IDENTIFICATION DIVISION. PROGRAM-ID. PREVKF. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-PREV-KEY PIC 9(5) VALUE 0. 01 WS-VALUE PIC 9(5) VALUE 0. PROCEDURE DIVISION. MAIN. ADD 1 TO WS-PREV-KEY. ADD WS-PREV-KEY TO WS-VALUE. IF WS-VALUE > 10 DISPLAY 'BIG' ELSE DISPLAY 'SMALL'. STOP RUN.