CloneSet56


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
16630.959sentence_list[4]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1163292
CCCC1.COB
2163101
CCCC12.COB
3163129
CCCC13.COB
4163650
CCCC14.COB
5163069
CCCC5.COB
6163013
CCCC8.COB
Clone Instance
1
Line Count
16
Source Line
3292
Source File
CCCC1.COB

      *    PERFORM 2500-ACCUMULATE-UNKNOWNS.
           IF  REJECT-RECORD
               IF  PRINT-ALL-PAGES
                       PERFORM 2600-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 2600-FILL-ERROR-MATRIX.
           IF  NOT REJECT-RECORD
               PERFORM 8600-WRITE-COURSE-DATA
           ELSE
               ADD 1
                 TO     TOTAL-COLLEGE-RECORDS-REJECT.
           MOVE ZERO TO DATA-VALIDATION-FLAGS.
           PERFORM 8000-READ-COURSE-INV-DATA.


Clone Instance
2
Line Count
16
Source Line
3101
Source File
CCCC12.COB

           IF  REJECT-RECORD
               IF  PRINT-ALL-PAGES
                       PERFORM 2600-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 2600-FILL-ERROR-MATRIX.
           IF  NOT REJECT-RECORD
               PERFORM 8600-WRITE-PRG-AWARD-RECORD
           ELSE
               ADD 1
                 TO     TOTAL-COLLEGE-RECORDS-REJECT.
           MOVE ZERO TO DATA-VALIDATION-FLAGS.
           PERFORM 8000-READ-PROGRAM-AWARD-DATA.


Clone Instance
3
Line Count
16
Source Line
3129
Source File
CCCC13.COB

      *    PERFORM 2400-ACCUMULATE-UNKNOWNS.
           IF  REJECT-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-SV-RECORD
           ELSE
               ADD 1
                 TO     TOTAL-COLLEGE-RECORDS-REJECT.
           MOVE ZERO TO DATA-VALIDATION-FLAGS.
           PERFORM 8000-READ-SV-FILE.


Clone Instance
4
Line Count
16
Source Line
3650
Source File
CCCC14.COB

           IF  REJECT-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-STUDENT-ENRL-RECORD
           ELSE
               ADD 1
                 TO     TOTAL-COLLEGE-RECORDS-REJECT.
           MOVE ZERO TO DATA-VALIDATION-FLAGS.
           PERFORM 8000-READ-ENRL-FILE.


Clone Instance
5
Line Count
16
Source Line
3069
Source File
CCCC5.COB

           IF  REJECT-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-PBS-RECORD
           ELSE
               ADD 1
                 TO     TOTAL-COLLEGE-RECORDS-REJECT.
           MOVE ZERO TO DATA-VALIDATION-FLAGS.
           PERFORM 8000-READ-PBS-FILE.


Clone Instance
6
Line Count
16
Source Line
3013
Source File
CCCC8.COB

           IF  REJECT-RECORD
               IF  PRINT-ALL-PAGES
                   PERFORM 2600-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 2600-FILL-ERROR-MATRIX.
           IF  NOT REJECT-RECORD
               PERFORM 8600-WRITE-DSPS-RECORDS
           ELSE
               ADD 1
                 TO     TOTAL-COLLEGE-RECORDS-REJECT.
           MOVE ZERO TO DATA-VALIDATION-FLAGS.
           PERFORM 8000-READ-STUDENT-DSPS-DATA.


Clone AbstractionParameter Count: 3Parameter Bindings

      *    PERFORM 2500-ACCUMULATE-UNKNOWNS.
      *    PERFORM 2400-ACCUMULATE-UNKNOWNS.
           IF REJECT-RECORD
             IF PRINT-ALL-PAGES
               PERFORM [[#24b03dc0]]
             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 [[#24b03dc0]].
           IF NOT REJECT-RECORD
             PERFORM [[#24b03f80]]
           ELSE
             ADD 1
               TO TOTAL-COLLEGE-RECORDS-REJECT.
           MOVE ZERO TO DATA-VALIDATION-FLAGS.
           PERFORM [[#24b217c0]].
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24b03dc0]]
       2600-FILL-ERROR-MATRIX 
12[[#24b03dc0]]
       2500-FILL-ERROR-MATRIX 
13[[#24b03dc0]]
       2600-FILL-ERROR-MATRIX 
14[[#24b03dc0]]
       2500-FILL-ERROR-MATRIX 
15[[#24b03dc0]]
       2600-FILL-ERROR-MATRIX 
16[[#24b03dc0]]
       2500-FILL-ERROR-MATRIX 
21[[#24b03f80]]
       8600-WRITE-COURSE-DATA 
22[[#24b03f80]]
       8600-WRITE-PBS-RECORD 
23[[#24b03f80]]
       8600-WRITE-DSPS-RECORDS 
24[[#24b03f80]]
       8600-WRITE-SV-RECORD 
25[[#24b03f80]]
       8600-WRITE-PRG-AWARD-RECORD 
26[[#24b03f80]]
       8600-WRITE-STUDENT-ENRL-RECORD 
31[[#24b217c0]]
       8000-READ-COURSE-INV-DATA 
32[[#24b217c0]]
       8000-READ-PBS-FILE 
33[[#24b217c0]]
       8000-READ-STUDENT-DSPS-DATA 
34[[#24b217c0]]
       8000-READ-SV-FILE 
35[[#24b217c0]]
       8000-READ-PROGRAM-AWARD-DATA 
36[[#24b217c0]]
       8000-READ-ENRL-FILE