CloneSet119


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
15	4	0	1.000	sentence_list[3]

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	15	3116	CCCC1.COB
2	15	2925	CCCC12.COB
3	15	3336	CCCC2.COB
4	15	2851	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 Abstraction

Parameter Count: 0

Parameter 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