CloneSet159


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
16240.950sentence
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1164791
CCCC15.COB
2164832
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 AbstractionParameter Count: 4Parameter 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
11[[#24bc65a0]]
       8 
12[[#24bc65a0]]
       9 
21[[#24bc64e0]]
       SESSION-BEGIN-DATE 
22[[#24bc64e0]]
       SESSION-END-DATE 
31[[#24bc6440]]
       XF02-FLAG 
32[[#24bc6440]]
       XF03-FLAG 
41[[#24bc63c0]]
       2311CA-VALIDATE-BEGIN-DATE 
42[[#24bc63c0]]
       2311CA-VALIDATE-END-DATE