CloneSet176


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
14	2	0	1.000	paragraph

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	14	4408	CCCC13.COB
2	14	4120	CCCC5.COB

Clone Instance
1

Line Count
14

Source Line
4408

Source File

CCCC13.COB

      *
      *
       8820-PRINT-DIST-INTGRTY-TOTALS.
           MOVE 5 TO HEADER-CONTROL-FLAG.
           MOVE SUM2-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-1-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-1-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.

Clone Instance
2

Line Count
14

Source Line
4120

Source File

CCCC5.COB

      *
      *
       8820-PRINT-DIST-INTGRTY-TOTALS.
           MOVE 5 TO HEADER-CONTROL-FLAG.
           MOVE SUM2-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-1-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-1-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.

Clone Abstraction

Parameter Count: 0

Parameter Bindings

      *
      *
       8820-PRINT-DIST-INTGRTY-TOTALS.
           MOVE 5 TO HEADER-CONTROL-FLAG.
           MOVE SUM2-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE SUMMARY-PROGRAM-NAME
                  IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME
                                                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-1-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-1-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM INTEGRITY-TOTAL-DETAIL-LINE
             AFTER ADVANCING 2 LINES.

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
None