CloneSet50


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
33	3	6	0.957	paragraph

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	33	6101	CCCC15.COB
2	33	6203	CCCC15.COB
3	33	6305	CCCC15.COB

Clone Instance
1

Line Count
33

Source Line
6101

Source File

CCCC15.COB

      *
      *
       8400-PRINT-SECTION-REPORT.
           IF PRINT-RECORD-COUNT GREATER PRINT-RECORD-LIMIT
                AND                                       NOT PRINT-ALL
                NEXT SENTENCE
           ELSE
           IF PAGE-IS-FULL
               MOVE REPORT-ID TO PROGRAM-NAME
               PERFORM 8500-PRINT-HEADERS
               WRITE PRINT-RECORD
                 FROM                  REPORT-TITLE-LINE-3A
                       AFTER ADVANCING 2 LINES
               MOVE SPACES TO PRINT-RECORD
               WRITE PRINT-RECORD AFTER 1 LINE
               MOVE ZERO TO TABLE-SEARCH-FLAG
               SET SECTION-ERROR-ROW-INDEX
                 TO                           1
               SET SECTION-ERROR-LITERAL-INDEX
                 TO                               1
               PERFORM 8410-PRINT-SECTION-DETAIL
                       UNTIL TABLE-SEARCH-COMPLETED
           ELSE WRITE PRINT-RECORD
                  FROM                  REPORT-COLUMN-LINE-1
                        AFTER ADVANCING 2 LINES
                MOVE SPACES TO PRINT-RECORD
                WRITE PRINT-RECORD AFTER 1 LINE
                MOVE ZERO TO TABLE-SEARCH-FLAG
                SET SECTION-ERROR-ROW-INDEX
                  TO                           1
                SET SECTION-ERROR-LITERAL-INDEX
                  TO                               1
                PERFORM 8410-PRINT-SECTION-DETAIL
                        UNTIL TABLE-SEARCH-COMPLETED
                MOVE 99 TO REPORT-LINE-COUNTER.
           MOVE SPACES TO SECTION-ERROR-TABLE.
           SET SECTION-ERROR-COLUMN-INDEX
             TO                              1.
           IF PRINT-ALL
                NEXT SENTENCE
           ELSE
                ADD 1
                  TO     PRINT-RECORD-COUNT.

Clone Instance
2

Line Count
33

Source Line
6203

Source File

CCCC15.COB

      *
      *
       8400-PRINT-SESSION-REPORT.
           IF PRINT-RECORD-COUNT GREATER PRINT-RECORD-LIMIT
                AND                                       NOT PRINT-ALL
                NEXT SENTENCE
           ELSE
           IF PAGE-IS-FULL
               MOVE REPORT-ID TO PROGRAM-NAME
               PERFORM 8500-PRINT-HEADERS
               WRITE PRINT-RECORD
                 FROM                  REPORT-TITLE-LINE-3A
                       AFTER ADVANCING 2 LINES
               MOVE SPACES TO PRINT-RECORD
               WRITE PRINT-RECORD AFTER 1 LINE
               MOVE ZERO TO TABLE-SEARCH-FLAG
               SET SESSION-ERROR-ROW-INDEX
                 TO                           1
               SET SESSION-ERROR-LITERAL-INDEX
                 TO                               1
               PERFORM 8410-PRINT-SESSION-DETAIL
                       UNTIL TABLE-SEARCH-COMPLETED
           ELSE WRITE PRINT-RECORD
                  FROM                  REPORT-COLUMN-LINE-1
                        AFTER ADVANCING 2 LINES
                MOVE SPACES TO PRINT-RECORD
                WRITE PRINT-RECORD AFTER 1 LINE
                MOVE ZERO TO TABLE-SEARCH-FLAG
                SET SESSION-ERROR-ROW-INDEX
                  TO                           1
                SET SESSION-ERROR-LITERAL-INDEX
                  TO                               1
                PERFORM 8410-PRINT-SESSION-DETAIL
                        UNTIL TABLE-SEARCH-COMPLETED
                MOVE 99 TO REPORT-LINE-COUNTER.
           MOVE SPACES TO SESSION-ERROR-TABLE.
           SET SESSION-ERROR-COLUMN-INDEX
             TO                              1.
           IF PRINT-ALL
                NEXT SENTENCE
           ELSE
                ADD 1
                  TO     PRINT-RECORD-COUNT.

Clone Instance
3

Line Count
33

Source Line
6305

Source File

CCCC15.COB

      *
      *
       8400-PRINT-ASSIGN-REPORT.
           IF PRINT-RECORD-COUNT GREATER PRINT-RECORD-LIMIT
                AND                                       NOT PRINT-ALL
                NEXT SENTENCE
           ELSE
           IF PAGE-IS-FULL
               MOVE REPORT-ID TO PROGRAM-NAME
               PERFORM 8500-PRINT-HEADERS
               WRITE PRINT-RECORD
                 FROM                  REPORT-TITLE-LINE-3A
                       AFTER ADVANCING 2 LINES
               MOVE SPACES TO PRINT-RECORD
               WRITE PRINT-RECORD AFTER 1 LINE
               MOVE ZERO TO TABLE-SEARCH-FLAG
               SET ASSIGN-ERROR-ROW-INDEX
                 TO                          1
               SET ASSIGN-ERROR-LITERAL-INDEX
                 TO                              1
               PERFORM 8410-PRINT-ASSIGN-DETAIL
                       UNTIL TABLE-SEARCH-COMPLETED
           ELSE WRITE PRINT-RECORD
                  FROM                  REPORT-COLUMN-LINE-1
                        AFTER ADVANCING 2 LINES
                MOVE SPACES TO PRINT-RECORD
                WRITE PRINT-RECORD AFTER 1 LINE
                MOVE ZERO TO TABLE-SEARCH-FLAG
                SET ASSIGN-ERROR-ROW-INDEX
                  TO                          1
                SET ASSIGN-ERROR-LITERAL-INDEX
                  TO                              1
                PERFORM 8410-PRINT-ASSIGN-DETAIL
                        UNTIL TABLE-SEARCH-COMPLETED
                MOVE 99 TO REPORT-LINE-COUNTER.
           MOVE SPACES TO ASSIGN-ERROR-TABLE.
           SET ASSIGN-ERROR-COLUMN-INDEX
             TO                             1.
           IF PRINT-ALL
                NEXT SENTENCE
           ELSE
                ADD 1
                  TO     PRINT-RECORD-COUNT.

Clone Abstraction

Parameter Count: 6

Parameter Bindings

        [[#24b037c0]].
           IF PRINT-RECORD-COUNT GREATER PRINT-RECORD-LIMIT
                AND NOT PRINT-ALL
             NEXT SENTENCE
           ELSE
             IF PAGE-IS-FULL
               MOVE REPORT-ID TO PROGRAM-NAME
               PERFORM 8500-PRINT-HEADERS
               WRITE PRINT-RECORD
                 FROM REPORT-TITLE-LINE-3A
                 AFTER ADVANCING 2 LINES
               MOVE SPACES TO PRINT-RECORD
               WRITE PRINT-RECORD
                 AFTER 1 LINE
               MOVE ZERO TO TABLE-SEARCH-FLAG
               SET [[#24b03920]]
                 TO 1
               SET [[#24b02f60]]
                 TO 1
               PERFORM [[#24b03900]]
                 UNTIL TABLE-SEARCH-COMPLETED
             ELSE
               WRITE PRINT-RECORD
                 FROM REPORT-COLUMN-LINE-1
                 AFTER ADVANCING 2 LINES
               MOVE SPACES TO PRINT-RECORD
               WRITE PRINT-RECORD
                 AFTER 1 LINE
               MOVE ZERO TO TABLE-SEARCH-FLAG
               SET [[#24b03920]]
                 TO 1
               SET [[#24b02f60]]
                 TO 1
               PERFORM [[#24b03900]]
                 UNTIL TABLE-SEARCH-COMPLETED
               MOVE 99 TO REPORT-LINE-COUNTER.
           MOVE SPACES TO [[#24b03860]].
           SET [[#24b03760]]
             TO 1.
           IF PRINT-ALL
             NEXT SENTENCE
           ELSE
             ADD 1
               TO PRINT-RECORD-COUNT.

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
1	1	`[[#24b037c0]]`	* * 8400-PRINT-SECTION-REPORT
1	2	`[[#24b037c0]]`	* * 8400-PRINT-SESSION-REPORT
1	3	`[[#24b037c0]]`	* * 8400-PRINT-ASSIGN-REPORT
2	1	`[[#24b03920]]`	SECTION-ERROR-ROW-INDEX
2	2	`[[#24b03920]]`	SESSION-ERROR-ROW-INDEX
2	3	`[[#24b03920]]`	ASSIGN-ERROR-ROW-INDEX
3	1	`[[#24b02f60]]`	SECTION-ERROR-LITERAL-INDEX
3	2	`[[#24b02f60]]`	SESSION-ERROR-LITERAL-INDEX
3	3	`[[#24b02f60]]`	ASSIGN-ERROR-LITERAL-INDEX
4	1	`[[#24b03900]]`	8410-PRINT-SECTION-DETAIL
4	2	`[[#24b03900]]`	8410-PRINT-SESSION-DETAIL
4	3	`[[#24b03900]]`	8410-PRINT-ASSIGN-DETAIL
5	1	`[[#24b03860]]`	SECTION-ERROR-TABLE
5	2	`[[#24b03860]]`	SESSION-ERROR-TABLE
5	3	`[[#24b03860]]`	ASSIGN-ERROR-TABLE
6	1	`[[#24b03760]]`	SECTION-ERROR-COLUMN-INDEX
6	2	`[[#24b03760]]`	SESSION-ERROR-COLUMN-INDEX
6	3	`[[#24b03760]]`	ASSIGN-ERROR-COLUMN-INDEX