CloneSet77


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
27	3	1	0.962	sentence_list[13]

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	27	5151	CCCC14.COB
2	28	5469	CCCC2.COB
3	28	4878	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 Abstraction

Parameter Count: 1

Parameter 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
1	1	`[[#24b4ba80]]`	SUMMARY-PROGRAM-NAME
1	2	`[[#24b4ba80]]`	SUMMARY-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK
1	3	`[[#24b4ba80]]`	SUMMARY-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK