CloneSet46


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
131020.971sentence_list[3]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1144629
CCCC1.COB
2134317
CCCC11.COB
3143715
CCCC12.COB
4133719
CCCC13.COB
5134529
CCCC14.COB
6134757
CCCC2.COB
7133455
CCCC5.COB
8133927
CCCC6.COB
9143527
CCCC8.COB
10134246
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 AbstractionParameter Count: 2Parameter 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
11[[#22a5cae0]]
       10 
12[[#22a5cae0]]
       26 
13[[#22a5cae0]]
       12 
14[[#22a5cae0]]
       8 
15[[#22a5cae0]]
       11 
16[[#22a5cae0]]
       16 
17[[#22a5cae0]]
       17 
18[[#22a5cae0]]
       14 
19[[#22a5cae0]]
       13 
110[[#22a5cae0]]
       10 
21[[#24b0f4c0]]
       8400-PRINT-REPORT 
22[[#24b0f4c0]]
       8400-PRINT-ERROR-REPORT 
23[[#24b0f4c0]]
       8400-PRINT-REPORT 
24[[#24b0f4c0]]
       8400-PRINT-REPORT 
25[[#24b0f4c0]]
       8400-PRINT-ERROR-REPORT 
26[[#24b0f4c0]]
       8400-PRINT-REPORT 
27[[#24b0f4c0]]
       8400-PRINT-REPORT 
28[[#24b0f4c0]]
       8400-PRINT-REPORT 
29[[#24b0f4c0]]
       8400-PRINT-REPORT 
210[[#24b0f4c0]]
       8400-PRINT-ERROR-REPORT