CloneSet218


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
6	2	2	0.961	paragraph

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	6	2323	CCCC3.COB
2	6	3892	CCCC7.COB

Clone Instance
1

Line Count
6

Source Line
2323

Source File

CCCC3.COB

      *2150-CONTINUE-IDENTITY-CHECK.
      *    MOVE EMPLOYEE-IDENTIFIER-STATUS
      *            IN EMPLOYEE-DATA-RECORD
      *        TO CHECK-ID-STATUS.
      *    IF ID-STATUS-VALID
      *        PERFORM 2160-VALIDATE-ID-FORMAT
      *    ELSE
      *        MOVE VALIDITY-LITERAL
      *            TO DATA-ELEMENT-FLAG
      *                (5, EDIT-COLUMN-INDEX)
      *        ADD 1 TO DISTRICT-COUNT (5, 1)
      *        MOVE 1 TO REJECT-RECORD-FLAG.
      *
      *
      *2160-VALIDATE-ID-FORMAT.
      *    IF EMPLOYEE-ID-IS-SSN
      *            AND EMPLOYEE-IDENTIFIER
      *            IN EMPLOYEE-DATA-RECORD
      *            IS NOT NUMERIC
      *        PERFORM 2170-ERROR-IN-ID-SETUP.
      *
      *
       2170-ERROR-IN-ID-SETUP.
           MOVE VALIDITY-LITERAL TO
                  DATA-ELEMENT-FLAG
                   (1  EDIT-COLUMN-INDEX).
           ADD 1
             TO     DISTRICT-COUNT (1  1).
           MOVE 1 TO REJECT-RECORD-FLAG.

Clone Instance
2

Line Count
6

Source Line
3892

Source File

CCCC7.COB

      *
      *
       2180-ERROR-IN-ID-SETUP.
           MOVE VALIDITY-LITERAL TO
                  DATA-ELEMENT-FLAG
                   (1  EDIT-COLUMN-INDEX).
           ADD 1
             TO     ERROR-COUNT (1  1).
           MOVE 1 TO REJECT-RECORD-FLAG.

Clone Abstraction

Parameter Count: 2

Parameter Bindings

        [[#24bfa320]].
           MOVE VALIDITY-LITERAL TO DATA-ELEMENT-FLAG (1
                                                       EDIT-COLUMN-INDEX
                                                      ).
           ADD 1
             TO [[#24bfaac0]](1
                              1).
           MOVE 1 TO REJECT-RECORD-FLAG.

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
1	1	`[[#24bfa320]]`	* * 2180-ERROR-IN-ID-SETUP
1	2	`[[#24bfa320]]`	2150-CONTINUE-IDENTITY-CHECK. MOVE EMPLOYEE-IDENTIFIER-STATUS * IN EMPLOYEE-DATA-RECORD * TO CHECK-ID-STATUS. * IF ID-STATUS-VALID * PERFORM 2160-VALIDATE-ID-FORMAT * ELSE * MOVE VALIDITY-LITERAL * TO DATA-ELEMENT-FLAG * (5, EDIT-COLUMN-INDEX) * ADD 1 TO DISTRICT-COUNT (5, 1) * MOVE 1 TO REJECT-RECORD-FLAG. * * 2160-VALIDATE-ID-FORMAT. IF EMPLOYEE-ID-IS-SSN * AND EMPLOYEE-IDENTIFIER * IN EMPLOYEE-DATA-RECORD * IS NOT NUMERIC * PERFORM 2170-ERROR-IN-ID-SETUP. * * 2170-ERROR-IN-ID-SETUP
2	1	`[[#24bfaac0]]`	ERROR-COUNT
2	2	`[[#24bfaac0]]`	DISTRICT-COUNT