CloneSet91


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
31	2	1	0.994	paragraph

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	30	3737	CCCC12.COB
2	31	3948	CCCC6.COB

Clone Instance
1

Line Count
30

Source Line
3737

Source File

CCCC12.COB

      *
      *
       8200-PRINT-COLLEGE-TOTALS.
           MOVE 2 TO HEADER-CONTROL-FLAG.
           MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE HOLD-COLLEGE-ID 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 COLLEGE-ELEMENT-ROW-INDEX
             TO                             1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8210-PRINT-CLG-ELEMENT-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           MOVE 6 TO HEADER-CONTROL-FLAG.
           MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE HOLD-COLLEGE-ID 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.
           WRITE PRINT-RECORD-2
             FROM       BLANK-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET TOTAL-COLLEGE-INDEX
             TO                       1.
           SET TOTAL-DESCRIPTION-INDEX
             TO                           1.
           PERFORM 8230-PRINT-COLLEGE-SUM-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.

Clone Instance
2

Line Count
31

Source Line
3948

Source File

CCCC6.COB

      *
      *
       8200-PRINT-COLLEGE-TOTALS.
           MOVE 2 TO HEADER-CONTROL-FLAG.
           MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE HOLD-COLLEGE-ID 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 COLLEGE-ELEMENT-ROW-INDEX
             TO                             1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8210-PRINT-CLG-ELEMENT-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
      *    PERFORM 8220-PRINT-CLG-INTGRTY-TOTALS.
           MOVE 6 TO HEADER-CONTROL-FLAG.
           MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE HOLD-COLLEGE-ID 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.
           WRITE PRINT-RECORD-2
             FROM       BLANK-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-TOTAL-INDEX
             TO                       1.
           SET TOTAL-DESCRIPTION-INDEX
             TO                           1.
           PERFORM 8230-PRINT-COLLEGE-SUM-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.

Clone Abstraction

Parameter Count: 1

Parameter Bindings

      *
      *
       8200-PRINT-COLLEGE-TOTALS.
           MOVE 2 TO HEADER-CONTROL-FLAG.
           MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE HOLD-COLLEGE-ID 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 COLLEGE-ELEMENT-ROW-INDEX
             TO 1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO 1.
           PERFORM 8210-PRINT-CLG-ELEMENT-TOTALS
             UNTIL TABLE-SEARCH-COMPLETED.
      *    PERFORM 8220-PRINT-CLG-INTGRTY-TOTALS.
           MOVE 6 TO HEADER-CONTROL-FLAG.
           MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE HOLD-COLLEGE-ID 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.
           WRITE PRINT-RECORD-2
             FROM BLANK-LINE
             AFTER ADVANCING 1 LINE.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET [[#24b61820]]
             TO 1.
           SET TOTAL-DESCRIPTION-INDEX
             TO 1.
           PERFORM 8230-PRINT-COLLEGE-SUM-TOTALS
             UNTIL TABLE-SEARCH-COMPLETED.

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
1	1	`[[#24b61820]]`	COLLEGE-TOTAL-INDEX
1	2	`[[#24b61820]]`	TOTAL-COLLEGE-INDEX