CloneSet56


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
16	6	3	0.959	sentence_list[4]

Clone Abstraction

Parameter Bindings


CCCC1.COB
CCCC12.COB
CCCC13.COB
CCCC14.COB
CCCC5.COB
CCCC8.COB

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	16	3292	CCCC1.COB
2	16	3101	CCCC12.COB
3	16	3129	CCCC13.COB
4	16	3650	CCCC14.COB
5	16	3069	CCCC5.COB
6	16	3013	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 Abstraction

Parameter Count: 3

Parameter 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
1	1	`[[#24b03dc0]]`	2600-FILL-ERROR-MATRIX
1	2	`[[#24b03dc0]]`	2500-FILL-ERROR-MATRIX
1	3	`[[#24b03dc0]]`	2600-FILL-ERROR-MATRIX
1	4	`[[#24b03dc0]]`	2500-FILL-ERROR-MATRIX
1	5	`[[#24b03dc0]]`	2600-FILL-ERROR-MATRIX
1	6	`[[#24b03dc0]]`	2500-FILL-ERROR-MATRIX
2	1	`[[#24b03f80]]`	8600-WRITE-COURSE-DATA
2	2	`[[#24b03f80]]`	8600-WRITE-PBS-RECORD
2	3	`[[#24b03f80]]`	8600-WRITE-DSPS-RECORDS
2	4	`[[#24b03f80]]`	8600-WRITE-SV-RECORD
2	5	`[[#24b03f80]]`	8600-WRITE-PRG-AWARD-RECORD
2	6	`[[#24b03f80]]`	8600-WRITE-STUDENT-ENRL-RECORD
3	1	`[[#24b217c0]]`	8000-READ-COURSE-INV-DATA
3	2	`[[#24b217c0]]`	8000-READ-PBS-FILE
3	3	`[[#24b217c0]]`	8000-READ-STUDENT-DSPS-DATA
3	4	`[[#24b217c0]]`	8000-READ-SV-FILE
3	5	`[[#24b217c0]]`	8000-READ-PROGRAM-AWARD-DATA
3	6	`[[#24b217c0]]`	8000-READ-ENRL-FILE