CloneSet119


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
15401.000sentence_list[3]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1153116
CCCC1.COB
2152925
CCCC12.COB
3153336
CCCC2.COB
4152851
CCCC8.COB
Clone Instance
1
Line Count
15
Source Line
3116
Source File
CCCC1.COB

           IF  TERM-CHECK IS EQUAL TO ZEROS
                 OR   TERM-CHECK IS NOT NUMERIC
               MOVE 1 TO TERM-ID-FLAG
           ELSE
               PERFORM 1110-VALIDATE-TERM-ID.
           IF  DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS EQUAL TO ZEROS
                 OR   DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS NOT NUMERIC
               MOVE 1 TO DISTRICT-ID-FLAG
           ELSE
               PERFORM 1140-VALIDATE-DISTRICT-ID.
           MOVE SPACES TO RUNTIME-PARAMETER-TABLE.


Clone Instance
2
Line Count
15
Source Line
2925
Source File
CCCC12.COB

           IF  TERM-CHECK IS EQUAL TO ZEROS
                 OR   TERM-CHECK IS NOT NUMERIC
               MOVE 1 TO TERM-ID-FLAG
           ELSE
               PERFORM 1110-VALIDATE-TERM-ID.
           IF  DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS EQUAL TO ZEROS
                 OR   DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS NOT NUMERIC
               MOVE 1 TO DISTRICT-ID-FLAG
           ELSE
               PERFORM 1140-VALIDATE-DISTRICT-ID.
           MOVE SPACES TO RUNTIME-PARAMETER-TABLE.


Clone Instance
3
Line Count
15
Source Line
3336
Source File
CCCC2.COB

           IF  TERM-CHECK IS EQUAL TO ZEROS
                 OR   TERM-CHECK IS NOT NUMERIC
               MOVE 1 TO TERM-ID-FLAG
           ELSE
               PERFORM 1110-VALIDATE-TERM-ID.
           IF  DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS EQUAL TO ZEROS
                 OR   DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS NOT NUMERIC
               MOVE 1 TO DISTRICT-ID-FLAG
           ELSE
               PERFORM 1140-VALIDATE-DISTRICT-ID.
               MOVE SPACES TO RUNTIME-PARAMETER-TABLE.


Clone Instance
4
Line Count
15
Source Line
2851
Source File
CCCC8.COB

           IF  TERM-CHECK IS EQUAL TO ZEROS
                 OR   TERM-CHECK IS NOT NUMERIC
               MOVE 1 TO TERM-ID-FLAG
           ELSE
               PERFORM 1110-VALIDATE-TERM-ID.
           IF  DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS EQUAL TO ZEROS
                 OR   DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS NOT NUMERIC
               MOVE 1 TO DISTRICT-ID-FLAG
           ELSE
               PERFORM 1140-VALIDATE-DISTRICT-ID.
           MOVE SPACES TO RUNTIME-PARAMETER-TABLE.


Clone AbstractionParameter Count: 0Parameter Bindings

           IF TERM-CHECK IS EQUAL TO ZEROS
                OR TERM-CHECK IS NOT NUMERIC
             MOVE 1 TO TERM-ID-FLAG
           ELSE
             PERFORM 1110-VALIDATE-TERM-ID.
           IF DISTRICT-ID
                IN RUNTIME-PARAMETER-AREA IS EQUAL TO ZEROS
                OR DISTRICT-ID
                     IN RUNTIME-PARAMETER-AREA IS NOT NUMERIC
             MOVE 1 TO DISTRICT-ID-FLAG
           ELSE
             PERFORM 1140-VALIDATE-DISTRICT-ID.
           MOVE SPACES TO RUNTIME-PARAMETER-TABLE.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
None