CloneSet108


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
27	2	5	0.964	paragraph

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	27	3191	CCCC4.COB
2	27	3241	CCCC9.COB

Clone Instance
1

Line Count
27

Source Line
3191

Source File

CCCC4.COB

      *
      *
       2000-PROCESS-EJ-DATA.
           IF COLLEGE-ID
                   IN EJ-RECORD
                   IS NOT EQUAL TO SPACES
               IF COLLEGE-ID
                       IN EJ-RECORD
                       IS NOT EQUAL TO HOLD-COLLEGE-ID
                   PERFORM 2200-PROCESS-CNTL-BREAK.
           ADD 1
             TO     TOTAL-COLLEGE-RECORDS-READ.
           PERFORM 2100-VALIDATE-ID-FIELDS.
           PERFORM 2300-VALIDATE-DATA.
           IF (REJECT-RECORD
                 OR             REASONABLE-RECORD)
                IF  PRINT-ALL-PAGES
                      PERFORM 2500-FILL-ERROR-MATRIX
                ELSE
               IF  (REPORT-PAGE-COUNTER IS GREATER PRT-PAGE-MAXIMUM
                      OR   REPORT-PAGE-COUNTER IS EQUAL PRT-PAGE-MAXIMUM
                   )
                     AND   PAGE-FULL
                   MOVE SPACES TO EDIT-ERROR-TABLE
               ELSE PERFORM 2500-FILL-ERROR-MATRIX.
           IF  NOT REJECT-RECORD
               PERFORM 8600-WRITE-EJ-RECORD
           ELSE
               ADD 1
                 TO     TOTAL-COLLEGE-RECORDS-REJECT.
           MOVE ZERO TO DATA-VALIDATION-FLAGS.
           PERFORM 8000-READ-EJ-FILE.

Clone Instance
2

Line Count
27

Source Line
3241

Source File

CCCC9.COB

      *
      *
       2000-PROCESS-EOPS-DATA.
           IF COLLEGE-ID
                   IN STUDENT-EOPS-RECORD
                   IS NOT EQUAL TO SPACES
               IF COLLEGE-ID
                       IN STUDENT-EOPS-RECORD
                       IS NOT EQUAL TO HOLD-COLLEGE-ID
                   PERFORM 2200-PROCESS-CNTL-BREAK.
           ADD 1
             TO     TOTAL-COLLEGE-RECORDS-READ.
           PERFORM 2100-VALIDATE-ID-FIELDS.
           PERFORM 2300-VALIDATE-DATA.
           IF  (REJECT-RECORD
                  OR             REASONABLE-MARK)
               IF  PRINT-ALL-PAGES
                       PERFORM 2500-FILL-ERROR-MATRIX
               ELSE
               IF  (REPORT-PAGE-COUNTER IS GREATER PRT-PAGE-MAXIMUM
                      OR   REPORT-PAGE-COUNTER IS EQUAL PRT-PAGE-MAXIMUM
                   )
                     AND   PAGE-FULL
                   MOVE SPACES TO EDIT-ERROR-TABLE
               ELSE PERFORM 2500-FILL-ERROR-MATRIX.
           IF  NOT REJECT-RECORD
               PERFORM 8600-WRITE-EOPS-RECORD
           ELSE
               ADD 1
                 TO     TOTAL-COLLEGE-RECORDS-REJECT.
           MOVE ZERO TO DATA-VALIDATION-FLAGS.
           PERFORM 8000-READ-EOPS-FILE.

Clone Abstraction

Parameter Count: 5

Parameter Bindings

        [[#24b7cbe0]].
           IF COLLEGE-ID
                IN [[#24b7cb60]]IS NOT EQUAL TO SPACES
             IF COLLEGE-ID
                  IN [[#24b7cb60]]IS NOT EQUAL TO HOLD-COLLEGE-ID
               PERFORM 2200-PROCESS-CNTL-BREAK.
           ADD 1
             TO TOTAL-COLLEGE-RECORDS-READ.
           PERFORM 2100-VALIDATE-ID-FIELDS.
           PERFORM 2300-VALIDATE-DATA.
           IF (REJECT-RECORD
                 OR [[#24b7cac0]])
             IF PRINT-ALL-PAGES
               PERFORM 2500-FILL-ERROR-MATRIX
             ELSE
               IF (REPORT-PAGE-COUNTER IS GREATER PRT-PAGE-MAXIMUM
                     OR REPORT-PAGE-COUNTER IS EQUAL PRT-PAGE-MAXIMUM)
                    AND PAGE-FULL
                 MOVE SPACES TO EDIT-ERROR-TABLE
               ELSE
                 PERFORM 2500-FILL-ERROR-MATRIX.
           IF NOT REJECT-RECORD
             PERFORM [[#24b7ca20]]
           ELSE
             ADD 1
               TO TOTAL-COLLEGE-RECORDS-REJECT.
           MOVE ZERO TO DATA-VALIDATION-FLAGS.
           PERFORM [[#24b7c980]].

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
1	1	`[[#24b7cbe0]]`	* * 2000-PROCESS-EOPS-DATA
1	2	`[[#24b7cbe0]]`	* * 2000-PROCESS-EJ-DATA
2	1	`[[#24b7cb60]]`	STUDENT-EOPS-RECORD
2	2	`[[#24b7cb60]]`	EJ-RECORD
3	1	`[[#24b7cac0]]`	REASONABLE-MARK
3	2	`[[#24b7cac0]]`	REASONABLE-RECORD
4	1	`[[#24b7ca20]]`	8600-WRITE-EOPS-RECORD
4	2	`[[#24b7ca20]]`	8600-WRITE-EJ-RECORD
5	1	`[[#24b7c980]]`	8000-READ-EOPS-FILE
5	2	`[[#24b7c980]]`	8000-READ-EJ-FILE