CloneSet108


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
27250.964paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1273191
CCCC4.COB
2273241
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 AbstractionParameter Count: 5Parameter 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
11[[#24b7cbe0]]
      *
      *
       2000-PROCESS-EOPS-DATA 
12[[#24b7cbe0]]
      *
      *
       2000-PROCESS-EJ-DATA 
21[[#24b7cb60]]
       STUDENT-EOPS-RECORD 
22[[#24b7cb60]]
       EJ-RECORD 
31[[#24b7cac0]]
       REASONABLE-MARK 
32[[#24b7cac0]]
       REASONABLE-RECORD 
41[[#24b7ca20]]
       8600-WRITE-EOPS-RECORD 
42[[#24b7ca20]]
       8600-WRITE-EJ-RECORD 
51[[#24b7c980]]
       8000-READ-EOPS-FILE 
52[[#24b7c980]]
       8000-READ-EJ-FILE