CloneSet50


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
33360.957paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1336101
CCCC15.COB
2336203
CCCC15.COB
3336305
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 AbstractionParameter Count: 6Parameter 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
11[[#24b037c0]]
      *
      *
       8400-PRINT-SECTION-REPORT 
12[[#24b037c0]]
      *
      *
       8400-PRINT-SESSION-REPORT 
13[[#24b037c0]]
      *
      *
       8400-PRINT-ASSIGN-REPORT 
21[[#24b03920]]
       SECTION-ERROR-ROW-INDEX 
22[[#24b03920]]
       SESSION-ERROR-ROW-INDEX 
23[[#24b03920]]
       ASSIGN-ERROR-ROW-INDEX 
31[[#24b02f60]]
       SECTION-ERROR-LITERAL-INDEX 
32[[#24b02f60]]
       SESSION-ERROR-LITERAL-INDEX 
33[[#24b02f60]]
       ASSIGN-ERROR-LITERAL-INDEX 
41[[#24b03900]]
       8410-PRINT-SECTION-DETAIL 
42[[#24b03900]]
       8410-PRINT-SESSION-DETAIL 
43[[#24b03900]]
       8410-PRINT-ASSIGN-DETAIL 
51[[#24b03860]]
       SECTION-ERROR-TABLE 
52[[#24b03860]]
       SESSION-ERROR-TABLE 
53[[#24b03860]]
       ASSIGN-ERROR-TABLE 
61[[#24b03760]]
       SECTION-ERROR-COLUMN-INDEX 
62[[#24b03760]]
       SESSION-ERROR-COLUMN-INDEX 
63[[#24b03760]]
       ASSIGN-ERROR-COLUMN-INDEX