CloneSet120


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
16410.987paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1163630
CCCC10.COB
2163771
CCCC15.COB
3163366
CCCC2.COB
4163070
CCCC6.COB
Clone Instance
1
Line Count
16
Source Line
3630
Source File
CCCC10.COB

      *
      *
       1110-VALIDATE-TERM-ID.
           SET TERM-IDENTIFIER-INDEX
             TO                         1.
           SEARCH TERM-IDENTIFIER-ENTRY
                   IN TERM-IDENTIFIER-TABLE
           AT END
               MOVE 1 TO GI03-FLAG
           WHEN TERM-CODE
                   IN TERM-IDENTIFIER-ENTRY
                   (TERM-IDENTIFIER-INDEX)
                   IS EQUAL TO TERM-CODE
                   IN RUNTIME-PARAMETER-AREA
               MOVE TERM-TITLE
                       IN TERM-IDENTIFIER-ENTRY
                       (TERM-IDENTIFIER-INDEX) TO
                          TERM-TITLE
                       IN REPORT-TITLE-LINE-2.


Clone Instance
2
Line Count
16
Source Line
3771
Source File
CCCC15.COB

      *
      *
       1110-VALIDATE-TERM-ID.
           SET TERM-IDENTIFIER-INDEX
             TO                         1.
           SEARCH TERM-IDENTIFIER-ENTRY
                   IN TERM-IDENTIFIER-TABLE
           AT END
               MOVE 1 TO GI03-FLAG
           WHEN TERM-CODE
                   IN TERM-IDENTIFIER-ENTRY
                   (TERM-IDENTIFIER-INDEX)
                   IS EQUAL TO TERM-CODE
                   IN RUNTIME-PARAMETER-AREA
               MOVE TERM-TITLE
                       IN TERM-IDENTIFIER-ENTRY
                       (TERM-IDENTIFIER-INDEX) TO
                      TERM-TITLE
                       IN REPORT-TITLE-LINE-2.


Clone Instance
3
Line Count
16
Source Line
3366
Source File
CCCC2.COB

      *
      *
       1110-VALIDATE-TERM-ID.
           SET TERM-IDENTIFIER-INDEX
             TO                         1.
           SEARCH TERM-IDENTIFIER-ENTRY
                   IN TERM-IDENTIFIER-TABLE
           AT END
               MOVE 1 TO TERM-ID-FLAG
           WHEN TERM-CODE
                   IN TERM-IDENTIFIER-ENTRY
                   (TERM-IDENTIFIER-INDEX)
                   IS EQUAL TO TERM-CODE
                   IN RUNTIME-PARAMETER-AREA
               MOVE TERM-TITLE
                       IN TERM-IDENTIFIER-ENTRY
                       (TERM-IDENTIFIER-INDEX) TO
                          TERM-TITLE
                       IN REPORT-TITLE-LINE-2.


Clone Instance
4
Line Count
16
Source Line
3070
Source File
CCCC6.COB

      *
      *
       1110-VALIDATE-TERM-ID.
           SET TERM-IDENTIFIER-INDEX
             TO                         1.
           SEARCH TERM-IDENTIFIER-ENTRY
                   IN TERM-IDENTIFIER-TABLE
           AT END
               MOVE 1 TO TERM-ID-FLAG
           WHEN TERM-CODE
                   IN TERM-IDENTIFIER-ENTRY
                   (TERM-IDENTIFIER-INDEX)
                   IS EQUAL TO TERM-CODE
                   IN RUNTIME-PARAMETER-AREA
               MOVE TERM-TITLE
                       IN TERM-IDENTIFIER-ENTRY
                       (TERM-IDENTIFIER-INDEX) TO
                          TERM-TITLE
                       IN REPORT-TITLE-LINE-2.


Clone AbstractionParameter Count: 1Parameter Bindings

      *
      *
       1110-VALIDATE-TERM-ID.
           SET TERM-IDENTIFIER-INDEX
             TO 1.
           SEARCH TERM-IDENTIFIER-ENTRY
                    IN TERM-IDENTIFIER-TABLE
             AT END
               MOVE 1 TO [[#24b8ed40]]
             WHEN TERM-CODE
                    IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) IS
                  EQUAL TO TERM-CODE
                             IN RUNTIME-PARAMETER-AREA
               MOVE TERM-TITLE
                      IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX)TO
                                                              TERM-TITLE
                                                                IN
                                                     REPORT-TITLE-LINE-2
           .
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24b8ed40]]
       TERM-ID-FLAG 
12[[#24b8ed40]]
       GI03-FLAG 
13[[#24b8ed40]]
       GI03-FLAG 
14[[#24b8ed40]]
       TERM-ID-FLAG