CloneSet142


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
20230.957paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1202734
CCCC3.COB
2202756
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 AbstractionParameter Count: 3Parameter 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
11[[#24bae600]]
      *
      *
       2432-CONT-CHECK-HIRE-DATE-ANL 
12[[#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 
21[[#24bae500]]
       EMPLOY-BEGIN-DATE-ANNUAL 
22[[#24bae500]]
       EMPLOY-BEGIN-DATE-FIRSTCEN 
31[[#24bae3c0]]
       EMPLOY-END-DATE-ANNUAL 
32[[#24bae3c0]]
       EMPLOY-END-DATE-FIRSTCEN