CloneSet46


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
13	10	2	0.971	sentence_list[3]

Clone Abstraction

Parameter Bindings


CCCC1.COB
CCCC11.COB
CCCC12.COB
CCCC13.COB
CCCC14.COB
CCCC2.COB
CCCC5.COB
CCCC6.COB
CCCC8.COB
CCCC9.COB

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	14	4629	CCCC1.COB
2	13	4317	CCCC11.COB
3	14	3715	CCCC12.COB
4	13	3719	CCCC13.COB
5	13	4529	CCCC14.COB
6	13	4757	CCCC2.COB
7	13	3455	CCCC5.COB
8	13	3927	CCCC6.COB
9	14	3527	CCCC8.COB
10	13	4246	CCCC9.COB

Clone Instance
1

Line Count
14

Source Line
4629

Source File

CCCC1.COB

           IF REJECT-RECORD
               MOVE REJECTED-MESSAGE TO
                          DATA-ELEMENT
                       IN EDIT-ERROR-TABLE-COLUMNS
                       (26 EDIT-ERROR-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       EDIT-ERROR-COLUMN-INDEX.
           SEARCH EDIT-ERROR-TABLE-COLUMNS
           AT END
               PERFORM 8400-PRINT-ERROR-REPORT
               SET EDIT-ERROR-COLUMN-INDEX
                 TO                           1
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX
               NEXT SENTENCE.

Clone Instance
2

Line Count
13

Source Line
4317

Source File

CCCC11.COB

           IF REJECT-RECORD
               MOVE REJECTED-MESSAGE TO DATA-ELEMENT
                       IN EDIT-ERROR-TABLE-COLUMNS
                       (17 EDIT-ERROR-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       EDIT-ERROR-COLUMN-INDEX.
           SEARCH EDIT-ERROR-TABLE-COLUMNS
           AT END
               PERFORM 8400-PRINT-REPORT
               SET EDIT-ERROR-COLUMN-INDEX
                 TO                           1
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX
               NEXT SENTENCE.

Clone Instance
3

Line Count
14

Source Line
3715

Source File

CCCC12.COB

           IF REJECT-RECORD
               MOVE REJECTED-MESSAGE TO
                          DATA-ELEMENT
                       IN EDIT-ERROR-TABLE-COLUMNS
                       (10 EDIT-ERROR-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       EDIT-ERROR-COLUMN-INDEX.
           SEARCH EDIT-ERROR-TABLE-COLUMNS
           AT END
               PERFORM 8400-PRINT-ERROR-REPORT
               SET EDIT-ERROR-COLUMN-INDEX
                 TO                           1
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX
               NEXT SENTENCE.

Clone Instance
4

Line Count
13

Source Line
3719

Source File

CCCC13.COB

           IF REJECT-RECORD
               MOVE REJECTED-MESSAGE TO DATA-ELEMENT
                       IN EDIT-ERROR-TABLE-COLUMNS
                       (14 EDIT-ERROR-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       EDIT-ERROR-COLUMN-INDEX.
           SEARCH EDIT-ERROR-TABLE-COLUMNS
           AT END
               PERFORM 8400-PRINT-REPORT
               SET EDIT-ERROR-COLUMN-INDEX
                 TO                           1
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX
               NEXT SENTENCE.

Clone Instance
5

Line Count
13

Source Line
4529

Source File

CCCC14.COB

           IF REJECT-RECORD
               MOVE REJECTED-MESSAGE TO DATA-ELEMENT
                       IN EDIT-ERROR-TABLE-COLUMNS
                       (13 EDIT-ERROR-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       EDIT-ERROR-COLUMN-INDEX.
           SEARCH EDIT-ERROR-TABLE-COLUMNS
           AT END
               PERFORM 8400-PRINT-REPORT
               SET EDIT-ERROR-COLUMN-INDEX
                 TO                           1
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX
               NEXT SENTENCE.

Clone Instance
6

Line Count
13

Source Line
4757

Source File

CCCC2.COB

           IF REJECT-RECORD
               MOVE REJECTED-MESSAGE TO DATA-ELEMENT
                       IN EDIT-ERROR-TABLE-COLUMNS
                       (12 EDIT-ERROR-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       EDIT-ERROR-COLUMN-INDEX.
           SEARCH EDIT-ERROR-TABLE-COLUMNS
           AT END
               PERFORM 8400-PRINT-REPORT
               SET EDIT-ERROR-COLUMN-INDEX
                 TO                           1
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX
               NEXT SENTENCE.

Clone Instance
7

Line Count
13

Source Line
3455

Source File

CCCC5.COB

           IF REJECT-RECORD
               MOVE REJECTED-MESSAGE TO DATA-ELEMENT
                       IN EDIT-ERROR-TABLE-COLUMNS
                       (8 EDIT-ERROR-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       EDIT-ERROR-COLUMN-INDEX.
           SEARCH EDIT-ERROR-TABLE-COLUMNS
           AT END
               PERFORM 8400-PRINT-REPORT
               SET EDIT-ERROR-COLUMN-INDEX
                 TO                           1
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX
               NEXT SENTENCE.

Clone Instance
8

Line Count
13

Source Line
3927

Source File

CCCC6.COB

      *    MOVE ASMNT-RAW-SCORE
      *            IN STUDENT-ASSESSMENT-RECORD
      *            TO DATA-ELEMENT
      *            IN EDIT-ERROR-TABLE-COLUMNS
      *            (11 EDIT-ERROR-COLUMN-INDEX).
           IF REJECT-RECORD
               MOVE REJECTED-MESSAGE TO DATA-ELEMENT
                       IN EDIT-ERROR-TABLE-COLUMNS
                       (10 EDIT-ERROR-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       EDIT-ERROR-COLUMN-INDEX.
           SEARCH EDIT-ERROR-TABLE-COLUMNS
           AT END
               PERFORM 8400-PRINT-REPORT
               SET EDIT-ERROR-COLUMN-INDEX
                 TO                           1
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX
               NEXT SENTENCE.

Clone Instance
9

Line Count
14

Source Line
3527

Source File

CCCC8.COB

           IF REJECT-RECORD
               MOVE REJECTED-MESSAGE TO
                          DATA-ELEMENT
                       IN EDIT-ERROR-TABLE-COLUMNS
                       (11 EDIT-ERROR-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       EDIT-ERROR-COLUMN-INDEX.
           SEARCH EDIT-ERROR-TABLE-COLUMNS
           AT END
               PERFORM 8400-PRINT-ERROR-REPORT
               SET EDIT-ERROR-COLUMN-INDEX
                 TO                           1
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX
               NEXT SENTENCE.

Clone Instance
10

Line Count
13

Source Line
4246

Source File

CCCC9.COB

           IF REJECT-RECORD
               MOVE REJECTED-MESSAGE TO DATA-ELEMENT
                       IN EDIT-ERROR-TABLE-COLUMNS
                       (16 EDIT-ERROR-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       EDIT-ERROR-COLUMN-INDEX.
           SEARCH EDIT-ERROR-TABLE-COLUMNS
           AT END
               PERFORM 8400-PRINT-REPORT
               SET EDIT-ERROR-COLUMN-INDEX
                 TO                           1
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX
               NEXT SENTENCE.

Clone Abstraction

Parameter Count: 2

Parameter Bindings

      *    MOVE ASMNT-RAW-SCORE
      *            IN STUDENT-ASSESSMENT-RECORD
      *            TO DATA-ELEMENT
      *            IN EDIT-ERROR-TABLE-COLUMNS
      *            (11 EDIT-ERROR-COLUMN-INDEX).
           IF REJECT-RECORD
             MOVE REJECTED-MESSAGE TO DATA-ELEMENT
                                        IN EDIT-ERROR-TABLE-COLUMNS (
                                                           [[#22a5cae0]]
                                                 EDIT-ERROR-COLUMN-INDEX
                                                                    ).
           SET ORIGINAL-INDEX-VALUE
             TO EDIT-ERROR-COLUMN-INDEX.
           SEARCH EDIT-ERROR-TABLE-COLUMNS
             AT END
               PERFORM [[#24b0f4c0]]
               SET EDIT-ERROR-COLUMN-INDEX
                 TO 1
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
                  EDIT-ERROR-COLUMN-INDEX
               NEXT SENTENCE.

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
1	1	`[[#22a5cae0]]`	10
1	2	`[[#22a5cae0]]`	26
1	3	`[[#22a5cae0]]`	12
1	4	`[[#22a5cae0]]`	8
1	5	`[[#22a5cae0]]`	11
1	6	`[[#22a5cae0]]`	16
1	7	`[[#22a5cae0]]`	17
1	8	`[[#22a5cae0]]`	14
1	9	`[[#22a5cae0]]`	13
1	10	`[[#22a5cae0]]`	10
2	1	`[[#24b0f4c0]]`	8400-PRINT-REPORT
2	2	`[[#24b0f4c0]]`	8400-PRINT-ERROR-REPORT
2	3	`[[#24b0f4c0]]`	8400-PRINT-REPORT
2	4	`[[#24b0f4c0]]`	8400-PRINT-REPORT
2	5	`[[#24b0f4c0]]`	8400-PRINT-ERROR-REPORT
2	6	`[[#24b0f4c0]]`	8400-PRINT-REPORT
2	7	`[[#24b0f4c0]]`	8400-PRINT-REPORT
2	8	`[[#24b0f4c0]]`	8400-PRINT-REPORT
2	9	`[[#24b0f4c0]]`	8400-PRINT-REPORT
2	10	`[[#24b0f4c0]]`	8400-PRINT-ERROR-REPORT