CloneSet77


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
27310.962sentence_list[13]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1275151
CCCC14.COB
2285469
CCCC2.COB
3284878
CCCC9.COB
Clone Instance
1
Line Count
27
Source Line
5151
Source File
CCCC14.COB

           MOVE DISTRICT-NAME
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX) TO
                      COLLEGE-NAME
                   IN REPORT-TITLE-LINE-3.
           MOVE 4 TO HEADER-CONTROL-FLAG.
           MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
           IF  SINGLE-COLLEGE-DISTRICT
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
               MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID
           ELSE
               MOVE DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA TO
                      REPORT-CLG-DIST-ID.
           MOVE SUMMARY-PROGRAM-NAME TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO                              1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS.
           MOVE 7 TO HEADER-CONTROL-FLAG.
           MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT.


Clone Instance
2
Line Count
28
Source Line
5469
Source File
CCCC2.COB

           MOVE DISTRICT-NAME
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX) TO
                      COLLEGE-NAME
                   IN REPORT-TITLE-LINE-3.
           MOVE 4 TO HEADER-CONTROL-FLAG.
           MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
           IF  SINGLE-COLLEGE-DISTRICT
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
               MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID
           ELSE
               MOVE DISTRICT-ID
                       IN RUNTIME-PARAMETER-AREA TO
                          REPORT-CLG-DIST-ID.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO                              1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS.
           MOVE 7 TO HEADER-CONTROL-FLAG.
           MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT.


Clone Instance
3
Line Count
28
Source Line
4878
Source File
CCCC9.COB

           MOVE DISTRICT-NAME
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX) TO
                      COLLEGE-NAME
                   IN REPORT-TITLE-LINE-3.
           MOVE 4 TO HEADER-CONTROL-FLAG.
           MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
           IF  SINGLE-COLLEGE-DISTRICT
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
               MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID
           ELSE
           MOVE DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA TO
                      REPORT-CLG-DIST-ID.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO                              1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS.
           MOVE 7 TO HEADER-CONTROL-FLAG.
           MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT.


Clone AbstractionParameter Count: 1Parameter Bindings

           MOVE DISTRICT-NAME
                  IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) TO
                                                            COLLEGE-NAME
                                                              IN
                                                     REPORT-TITLE-LINE-3
           .
           MOVE 4 TO HEADER-CONTROL-FLAG.
           MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
           IF SINGLE-COLLEGE-DISTRICT
                IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX)
             MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID
           ELSE
             MOVE DISTRICT-ID
                    IN RUNTIME-PARAMETER-AREA TO REPORT-CLG-DIST-ID.
           MOVE [[#24b4ba80]]TO PROGRAM-NAME
                                  IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO 1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO 1.
           PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS
             UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS.
           MOVE 7 TO HEADER-CONTROL-FLAG.
           MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24b4ba80]]
           SUMMARY-PROGRAM-NAME 
12[[#24b4ba80]]
           SUMMARY-PROGRAM-NAME
             IN PROGRAM-LITERAL-AND-WORK 
13[[#24b4ba80]]
           SUMMARY-PROGRAM-NAME
             IN PROGRAM-LITERAL-AND-WORK