CloneSet142


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
20	2	3	0.957	paragraph

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	20	2734	CCCC3.COB
2	20	2756	CCCC3.COB

Clone Instance
1

Line Count
20

Source Line
2734

Source File

CCCC3.COB

      *
      *
      *2430-CHECK-HIRE-DATE.
      *    IF NEW-HIRE
      *        IF TERM-CODE
      *            IN RUNTIME-PARAMETER-AREA
      *            IS EQUAL TO '9'
      *        PERFORM 2431-CONT-CHECK-HIRE-DATE-FC
      *        ELSE
      *        PERFORM 2432-CONT-CHECK-HIRE-DATE-ANL.
      *
      *
       2431-CONT-CHECK-HIRE-DATE-FC.
              IF (HOLD-HIREDATE
                GREATER EMPLOY-BEGIN-DATE-FIRSTCEN
                    OR HOLD-HIREDATE
                    EQUAL EMPLOY-BEGIN-DATE-FIRSTCEN)
                   AND
                (HOLD-HIREDATE
                LESS EMPLOY-END-DATE-FIRSTCEN
                   OR HOLD-HIREDATE
                   EQUAL EMPLOY-END-DATE-FIRSTCEN)
               NEXT SENTENCE
              ELSE
               MOVE INTEGRITY-LITERAL TO
                      DATA-ELEMENT-FLAG
                       (13  EDIT-COLUMN-INDEX)
               MOVE INTEGRITY-LITERAL TO
                      DATA-ELEMENT-FLAG
                       (14  EDIT-COLUMN-INDEX)
               ADD 1
                 TO     DISTRICT-INT-CNT (9)
               MOVE 1 TO REJECT-RECORD-FLAG.

Clone Instance
2

Line Count
20

Source Line
2756

Source File

CCCC3.COB

      *
      *
       2432-CONT-CHECK-HIRE-DATE-ANL.
              IF (HOLD-HIREDATE
                GREATER EMPLOY-BEGIN-DATE-ANNUAL
                    OR HOLD-HIREDATE
                    EQUAL EMPLOY-BEGIN-DATE-ANNUAL)
                   AND
                (HOLD-HIREDATE
                LESS EMPLOY-END-DATE-ANNUAL
                   OR HOLD-HIREDATE
                   EQUAL EMPLOY-END-DATE-ANNUAL)
               NEXT SENTENCE
              ELSE
               MOVE INTEGRITY-LITERAL TO
                      DATA-ELEMENT-FLAG
                       (13  EDIT-COLUMN-INDEX)
               MOVE INTEGRITY-LITERAL TO
                      DATA-ELEMENT-FLAG
                       (14  EDIT-COLUMN-INDEX)
               ADD 1
                 TO     DISTRICT-INT-CNT (9)
               MOVE 1 TO REJECT-RECORD-FLAG.

Clone Abstraction

Parameter Count: 3

Parameter Bindings

        [[#24bae600]].
           IF (HOLD-HIREDATE GREATER [[#24bae500]]
                 OR HOLD-HIREDATE EQUAL [[#24bae500]])
                AND (HOLD-HIREDATE LESS [[#24bae3c0]]
                       OR HOLD-HIREDATE EQUAL [[#24bae3c0]])
             NEXT SENTENCE
           ELSE
             MOVE INTEGRITY-LITERAL TO DATA-ELEMENT-FLAG (13
                                                       EDIT-COLUMN-INDEX
                                                         )
             MOVE INTEGRITY-LITERAL TO DATA-ELEMENT-FLAG (14
                                                       EDIT-COLUMN-INDEX
                                                         )
             ADD 1
               TO DISTRICT-INT-CNT (9)
             MOVE 1 TO REJECT-RECORD-FLAG.

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
1	1	`[[#24bae600]]`	* * 2432-CONT-CHECK-HIRE-DATE-ANL
1	2	`[[#24bae600]]`	* * 2430-CHECK-HIRE-DATE. IF NEW-HIRE * IF TERM-CODE * IN RUNTIME-PARAMETER-AREA * IS EQUAL TO '9' * PERFORM 2431-CONT-CHECK-HIRE-DATE-FC * ELSE * PERFORM 2432-CONT-CHECK-HIRE-DATE-ANL. * * 2431-CONT-CHECK-HIRE-DATE-FC
2	1	`[[#24bae500]]`	EMPLOY-BEGIN-DATE-ANNUAL
2	2	`[[#24bae500]]`	EMPLOY-BEGIN-DATE-FIRSTCEN
3	1	`[[#24bae3c0]]`	EMPLOY-END-DATE-ANNUAL
3	2	`[[#24bae3c0]]`	EMPLOY-END-DATE-FIRSTCEN