CloneSet159


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
16	2	4	0.950	sentence

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	16	4791	CCCC15.COB
2	16	4832	CCCC15.COB

Clone Instance
1

Line Count
16

Source Line
4791

Source File

CCCC15.COB

           IF DATE-IS-UNKNOWN
               ADD 1
                 TO     SESSION-COUNT (8  2)
               IF (MEETING-DAY-ENTRY
                       IN SESSION-INPUT-DATA-RECORD (8)
                       IS EQUAL TO '1'
                     OR   MEETING-DAY-ENTRY
                       IN SESSION-INPUT-DATA-RECORD (9)
                       IS EQUAL TO '1')
                   MOVE UNKNOWN-DATE TO
                              SESSION-BEGIN-DATE
                           IN SESSION-INPUT-DATA-RECORD
                   MOVE 1 TO XF02-FLAG
               ELSE
                   PERFORM 2311CA-VALIDATE-BEGIN-DATE
           ELSE PERFORM 2311CA-VALIDATE-BEGIN-DATE.

Clone Instance
2

Line Count
16

Source Line
4832

Source File

CCCC15.COB

           IF DATE-IS-UNKNOWN
               ADD 1
                 TO     SESSION-COUNT (9  2)
               IF (MEETING-DAY-ENTRY
                       IN SESSION-INPUT-DATA-RECORD (8)
                       IS EQUAL TO '1'
                     OR   MEETING-DAY-ENTRY
                       IN SESSION-INPUT-DATA-RECORD (9)
                       IS EQUAL TO '1')
                   MOVE UNKNOWN-DATE TO
                              SESSION-END-DATE
                           IN SESSION-INPUT-DATA-RECORD
                   MOVE 1 TO XF03-FLAG
               ELSE
                   PERFORM 2311CA-VALIDATE-END-DATE
           ELSE PERFORM 2311CA-VALIDATE-END-DATE.

Clone Abstraction

Parameter Count: 4

Parameter Bindings

           IF DATE-IS-UNKNOWN
             ADD 1
               TO SESSION-COUNT ( [[#24bc65a0]]
                                 2)
             IF (MEETING-DAY-ENTRY
                   IN SESSION-INPUT-DATA-RECORD (8) IS EQUAL TO '1'
                   OR MEETING-DAY-ENTRY
                        IN SESSION-INPUT-DATA-RECORD (9) IS EQUAL TO '1'
                )
               MOVE UNKNOWN-DATE TO [[#24bc64e0]]
                                     IN SESSION-INPUT-DATA-RECORD
               MOVE 1 TO [[#24bc6440]]
             ELSE
               PERFORM [[#24bc63c0]]
           ELSE
             PERFORM [[#24bc63c0]].

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
1	1	`[[#24bc65a0]]`	8
1	2	`[[#24bc65a0]]`	9
2	1	`[[#24bc64e0]]`	SESSION-BEGIN-DATE
2	2	`[[#24bc64e0]]`	SESSION-END-DATE
3	1	`[[#24bc6440]]`	XF02-FLAG
3	2	`[[#24bc6440]]`	XF03-FLAG
4	1	`[[#24bc63c0]]`	2311CA-VALIDATE-BEGIN-DATE
4	2	`[[#24bc63c0]]`	2311CA-VALIDATE-END-DATE