CloneSet91


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
31210.994paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1303737
CCCC12.COB
2313948
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 AbstractionParameter Count: 1Parameter 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
11[[#24b61820]]
       COLLEGE-TOTAL-INDEX 
12[[#24b61820]]
       TOTAL-COLLEGE-INDEX