CloneSet153


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
24201.000paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1244092
CCCC2.COB
2243486
CCCC6.COB
Clone Instance
1
Line Count
24
Source Line
4092
Source File
CCCC2.COB

      *
      *
       2243-WRITE-SUM3-TOTALS.
           MOVE SPACES TO REPORT-TOTALS-RECORD3.
           MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE HOLD-COLLEGE-ID TO  REPORT-CLG-DIST-ID.
           MOVE SUMMARY-PROGRAM-NAME TO
                      TOTALS-ID3
                   IN REPORT-TOTALS-RECORD3.
           MOVE TOTAL-COLLEGE-RECORDS-READ TO
                      READ-TOTALS
                   IN REPORT-TOTALS-RECORD3.
           MOVE TOTAL-COLLEGE-RECORDS-REJECT TO
                      REJECTED-TOTALS
                   IN REPORT-TOTALS-RECORD3.
           ACCEPT DATE-FLAG
                   IN REPORT-TOTALS-RECORD3
             FROM DATE.
           ACCEPT HOLD-TIME
                   IN PROGRAM-LITERAL-AND-WORK
             FROM TIME.
           MOVE HH-MM
                   IN HOLD-TIME TO
                      TIME-FLAG
                   IN REPORT-TOTALS-RECORD3.
           WRITE  REPORT-TOTALS-RECORD3.


Clone Instance
2
Line Count
24
Source Line
3486
Source File
CCCC6.COB

      *
      *
      *2242-WRITE-SUM2-TOTALS.
      *    MOVE SUM2-PROGRAM-LIT TO REPORT-ID-LIT.
      *    MOVE HOLD-COLLEGE-ID  TO REPORT-CLG-DIST-ID.
      *    MOVE SUMMARY-PROGRAM-NAME
      *            TO TOTALS-ID2
      *            IN REPORT-TOTALS-RECORD2.
      *    MOVE '01' TO INTEGRITY-ERROR-CODE.
      *    MOVE CLG-INTEGRITY-ERR-1-TOTAL TO INTEGRITY-ERROR-COUNT.
      *    WRITE REPORT-TOTALS-RECORD2.
      *    MOVE SUM2-PROGRAM-LIT TO REPORT-ID-LIT.
      *    MOVE HOLD-COLLEGE-ID  TO REPORT-CLG-DIST-ID.
      *    MOVE SUMMARY-PROGRAM-NAME
      *            TO TOTALS-ID2
      *            IN REPORT-TOTALS-RECORD2.
      *    MOVE '02' TO INTEGRITY-ERROR-CODE.
      *    MOVE CLG-INTEGRITY-ERR-2-TOTAL TO INTEGRITY-ERROR-COUNT.
      *    WRITE REPORT-TOTALS-RECORD2.
      *
      *
       2243-WRITE-SUM3-TOTALS.
           MOVE SPACES TO REPORT-TOTALS-RECORD3.
           MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE HOLD-COLLEGE-ID TO  REPORT-CLG-DIST-ID.
           MOVE SUMMARY-PROGRAM-NAME TO
                      TOTALS-ID3
                   IN REPORT-TOTALS-RECORD3.
           MOVE TOTAL-COLLEGE-RECORDS-READ TO
                      READ-TOTALS
                   IN REPORT-TOTALS-RECORD3.
           MOVE TOTAL-COLLEGE-RECORDS-REJECT TO
                      REJECTED-TOTALS
                   IN REPORT-TOTALS-RECORD3.
           ACCEPT DATE-FLAG
                   IN REPORT-TOTALS-RECORD3
             FROM DATE.
           ACCEPT HOLD-TIME
                   IN PROGRAM-LITERAL-AND-WORK
             FROM TIME.
           MOVE HH-MM
                   IN HOLD-TIME TO
                      TIME-FLAG
                   IN REPORT-TOTALS-RECORD3.
           WRITE  REPORT-TOTALS-RECORD3.


Clone AbstractionParameter Count: 0Parameter Bindings

      *
      *
      *2242-WRITE-SUM2-TOTALS.
      *    MOVE SUM2-PROGRAM-LIT TO REPORT-ID-LIT.
      *    MOVE HOLD-COLLEGE-ID  TO REPORT-CLG-DIST-ID.
      *    MOVE SUMMARY-PROGRAM-NAME
      *            TO TOTALS-ID2
      *            IN REPORT-TOTALS-RECORD2.
      *    MOVE '01' TO INTEGRITY-ERROR-CODE.
      *    MOVE CLG-INTEGRITY-ERR-1-TOTAL TO INTEGRITY-ERROR-COUNT.
      *    WRITE REPORT-TOTALS-RECORD2.
      *    MOVE SUM2-PROGRAM-LIT TO REPORT-ID-LIT.
      *    MOVE HOLD-COLLEGE-ID  TO REPORT-CLG-DIST-ID.
      *    MOVE SUMMARY-PROGRAM-NAME
      *            TO TOTALS-ID2
      *            IN REPORT-TOTALS-RECORD2.
      *    MOVE '02' TO INTEGRITY-ERROR-CODE.
      *    MOVE CLG-INTEGRITY-ERR-2-TOTAL TO INTEGRITY-ERROR-COUNT.
      *    WRITE REPORT-TOTALS-RECORD2.
      *
      *
       2243-WRITE-SUM3-TOTALS.
           MOVE SPACES TO REPORT-TOTALS-RECORD3.
           MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID.
           MOVE SUMMARY-PROGRAM-NAME TO TOTALS-ID3
                                          IN REPORT-TOTALS-RECORD3.
           MOVE TOTAL-COLLEGE-RECORDS-READ TO READ-TOTALS
                                                IN REPORT-TOTALS-RECORD3
           .
           MOVE TOTAL-COLLEGE-RECORDS-REJECT TO REJECTED-TOTALS
                                                  IN
                                                  REPORT-TOTALS-RECORD3.
           ACCEPT DATE-FLAG
                    IN REPORT-TOTALS-RECORD3
             FROM DATE.
           ACCEPT HOLD-TIME
                    IN PROGRAM-LITERAL-AND-WORK
             FROM TIME.
           MOVE HH-MM
                  IN HOLD-TIME TO TIME-FLAG
                                    IN REPORT-TOTALS-RECORD3.
           WRITE REPORT-TOTALS-RECORD3.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
None