| Previous CloneSet | Next CloneSet | Back to Main Report |
| Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
|---|---|---|---|---|
| 125 | 2 | 3 | 0.956 | paragraph_list[4] |
| Clone Abstraction | Parameter Bindings |
| Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
|---|---|---|---|
| 1 | 125 | 4260 | CCCC12.COB |
| 2 | 147 | 4517 | CCCC6.COB |
| ||||
*
*
8800-PRINT-DISTRICT-TOTALS.
MOVE DISTRICT-NAME
IN DISTRICT-CODE-ENTRY
(DISTRICT-CODE-INDEX) TO
COLLEGE-NAME
IN REPORT-TITLE-LINE-3.
MOVE 4 TO HEADER-CONTROL-FLAG.
MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
IF SINGLE-COLLEGE-DISTRICT
IN DISTRICT-CODE-ENTRY
(DISTRICT-CODE-INDEX)
MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID
ELSE
MOVE DISTRICT-ID
IN RUNTIME-PARAMETER-AREA TO
REPORT-CLG-DIST-ID.
MOVE SUMMARY-PROGRAM-NAME
IN PROGRAM-LITERAL-AND-WORK TO
PROGRAM-NAME
IN HEADER-REPORT-ID.
PERFORM 85002-PRINT-HEADERS.
MOVE ZERO TO TABLE-SEARCH-FLAG.
SET DISTRICT-ELEMENT-ROW-INDEX
TO 1.
SET EDIT-ERROR-LITERAL-INDEX
TO 1.
PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS
UNTIL TABLE-SEARCH-COMPLETED.
MOVE 7 TO HEADER-CONTROL-FLAG.
MOVE SUM3-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.
WRITE PRINT-RECORD-2
FROM BLANK-LINE
AFTER ADVANCING 1 LINE.
MOVE ZERO TO TABLE-SEARCH-FLAG.
SET TOTAL-DISTRICT-INDEX
TO 1.
SET TOTAL-DESCRIPTION-INDEX
TO 1.
PERFORM 8830-PRINT-DISTRICT-SUM-TOTALS
UNTIL TABLE-SEARCH-COMPLETED.
*
*
8810-PRINT-DIST-ELEMENT-TOTALS.
MOVE EDIT-ERROR-LITERAL-AREA
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
ELEMENT-LITERAL-AREA.
SET DISTRICT-ELEMENT-COLUMN-INDEX
TO 1.
SET ELEMENT-COLUMN-INDEX
TO 1.
MOVE ZERO TO PRINT-LINE-FLAG.
PERFORM 8811-FILL-DIST-PRINT-LINE
UNTIL PRINT-LINE-FILLED.
WRITE PRINT-RECORD-2
FROM ELEMENT-TOTAL-DETAIL-LINE
AFTER ADVANCING 1 LINE.
MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE.
SET ORIGINAL-INDEX-VALUE
TO DISTRICT-ELEMENT-ROW-INDEX.
SEARCH DISTRICT-ELEMENT-TOTALS-ROWS
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO DISTRICT-ELEMENT-ROW-INDEX
NEXT SENTENCE.
SET EDIT-ERROR-LITERAL-INDEX
TO DISTRICT-ELEMENT-ROW-INDEX.
*
*
8811-FILL-DIST-PRINT-LINE.
SET ELEMENT-TABLE-ROW-ID
TO DISTRICT-ELEMENT-ROW-INDEX.
SET ELEMENT-TABLE-COLUMN-ID
TO DISTRICT-ELEMENT-COLUMN-INDEX.
IF (ELEMENT-ROWS-1-5
AND ELEMENT-COLUMN-2)
OR (ELEMENT-ROWS-7-9
AND ELEMENT-COLUMN-2)
OR (ELEMENT-ROWS-1-9
AND ELEMENT-COLUMN-3)
OR (ELEMENT-ROWS-1-9
AND ELEMENT-COLUMN-4)
MOVE NOT-APPLICABLE-LITERAL TO
ELEMENT-N-A
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX)
ELSE MOVE DISTRICT-ELEMENT-TOTAL
IN DISTRICT-ELEMNT-TOTALS-COLUMNS
(DISTRICT-ELEMENT-ROW-INDEX
DISTRICT-ELEMENT-COLUMN-INDEX) TO
ELEMENT-TOTAL
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX).
SET ORIGINAL-INDEX-VALUE
TO DISTRICT-ELEMENT-COLUMN-INDEX.
SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS
AT END
MOVE 1 TO PRINT-LINE-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO DISTRICT-ELEMENT-COLUMN-INDEX
NEXT SENTENCE.
SET ELEMENT-COLUMN-INDEX
TO DISTRICT-ELEMENT-COLUMN-INDEX.
*
*
8830-PRINT-DISTRICT-SUM-TOTALS.
MOVE TOTAL-DESCRIPTION
IN TOTAL-DESCRIPTION-ENTRY
(TOTAL-DESCRIPTION-INDEX) TO
TOTAL-DESCRIPTION
IN TOTAL-DETAIL-LINE.
MOVE DISTRICT-TOTAL
IN TOTAL-DISTRICT-ENTRY
(TOTAL-DISTRICT-INDEX) TO
TOTAL-FIELD
IN TOTAL-DETAIL-LINE.
WRITE PRINT-RECORD-2
FROM TOTAL-DETAIL-LINE
AFTER ADVANCING 1 LINE.
SET ORIGINAL-INDEX-VALUE
TO TOTAL-DISTRICT-INDEX.
SEARCH TOTAL-DISTRICT-ENTRY
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO TOTAL-DISTRICT-INDEX
SET TOTAL-DESCRIPTION-INDEX
TO TOTAL-DISTRICT-INDEX.
|
| ||||
* MOVE ASMNT-RAW-SCORE
* IN STUDENT-ASSESSMENT-RECORD
* TO ASMNT-RAW-SCORE
* IN EDITED-STUDENT-ASSESSMENT-RECD.
*
*
8800-PRINT-DISTRICT-TOTALS.
MOVE DISTRICT-NAME
IN DISTRICT-CODE-ENTRY
(DISTRICT-CODE-INDEX) TO
COLLEGE-NAME
IN REPORT-TITLE-LINE-3.
MOVE 4 TO HEADER-CONTROL-FLAG.
MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
IF SINGLE-COLLEGE-DISTRICT
IN DISTRICT-CODE-ENTRY
(DISTRICT-CODE-INDEX)
MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID
ELSE
MOVE DISTRICT-ID
IN RUNTIME-PARAMETER-AREA TO
REPORT-CLG-DIST-ID.
MOVE SUMMARY-PROGRAM-NAME
IN PROGRAM-LITERAL-AND-WORK TO
PROGRAM-NAME
IN HEADER-REPORT-ID.
PERFORM 85002-PRINT-HEADERS.
MOVE ZERO TO TABLE-SEARCH-FLAG.
SET DISTRICT-ELEMENT-ROW-INDEX
TO 1.
SET EDIT-ERROR-LITERAL-INDEX
TO 1.
PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS
UNTIL TABLE-SEARCH-COMPLETED.
* PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS.
MOVE 7 TO HEADER-CONTROL-FLAG.
MOVE SUM3-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.
WRITE PRINT-RECORD-2
FROM BLANK-LINE
AFTER ADVANCING 1 LINE.
MOVE ZERO TO TABLE-SEARCH-FLAG.
SET DISTRICT-TOTAL-INDEX
TO 1.
SET TOTAL-DESCRIPTION-INDEX
TO 1.
PERFORM 8830-PRINT-DISTRICT-SUM-TOTALS
UNTIL TABLE-SEARCH-COMPLETED.
*
*
8810-PRINT-DIST-ELEMENT-TOTALS.
MOVE EDIT-ERROR-LITERAL-AREA
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
ELEMENT-LITERAL-AREA.
SET DISTRICT-ELEMENT-COLUMN-INDEX
TO 1.
SET ELEMENT-COLUMN-INDEX
TO 1.
MOVE ZERO TO PRINT-LINE-FLAG.
PERFORM 8811-FILL-DIST-PRINT-LINE
UNTIL PRINT-LINE-FILLED.
WRITE PRINT-RECORD-2
FROM ELEMENT-TOTAL-DETAIL-LINE
AFTER ADVANCING 1 LINE.
MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE.
SET ORIGINAL-INDEX-VALUE
TO DISTRICT-ELEMENT-ROW-INDEX.
SEARCH DISTRICT-ELEMENT-TOTALS-ROWS
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO DISTRICT-ELEMENT-ROW-INDEX
NEXT SENTENCE.
SET EDIT-ERROR-LITERAL-INDEX
TO DISTRICT-ELEMENT-ROW-INDEX.
*
*
8811-FILL-DIST-PRINT-LINE.
SET ELEMENT-TABLE-ROW-ID
TO DISTRICT-ELEMENT-ROW-INDEX.
SET ELEMENT-TABLE-COLUMN-ID
TO DISTRICT-ELEMENT-COLUMN-INDEX.
IF (ELEMENT-ROWS-1-8
AND ELEMENT-COLUMN-2)
OR (ELEMENT-ROWS-1-9
AND ELEMENT-COLUMN-3)
OR (ELEMENT-ROWS-1-9
AND ELEMENT-COLUMN-4)
MOVE NOT-APPLICABLE-LITERAL TO
ELEMENT-N-A
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX)
ELSE MOVE DISTRICT-ELEMENT-TOTAL
IN DISTRICT-ELEMNT-TOTALS-COLUMNS
(DISTRICT-ELEMENT-ROW-INDEX
DISTRICT-ELEMENT-COLUMN-INDEX) TO
ELEMENT-TOTAL
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX).
SET ORIGINAL-INDEX-VALUE
TO DISTRICT-ELEMENT-COLUMN-INDEX.
SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS
AT END
MOVE 1 TO PRINT-LINE-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO DISTRICT-ELEMENT-COLUMN-INDEX
NEXT SENTENCE.
SET ELEMENT-COLUMN-INDEX
TO DISTRICT-ELEMENT-COLUMN-INDEX.
*
*
*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.
* MOVE SPACES TO PRINT-RECORD-2.
* MOVE DIST-INTEGRITY-ERR-2-TOTAL TO INTEGRITY-TOTAL.
* MOVE INTEGRITY-ERR-2-DESC TO INTEGRITY-DESCRIPTION.
* WRITE PRINT-RECORD-2
* FROM INTEGRITY-TOTAL-DETAIL-LINE
* AFTER ADVANCING 2 LINES.
*
*
8830-PRINT-DISTRICT-SUM-TOTALS.
MOVE TOTAL-DESCRIPTION
IN TOTAL-DESCRIPTION-ENTRY
(TOTAL-DESCRIPTION-INDEX) TO
TOTAL-DESCRIPTION
IN TOTAL-DETAIL-LINE.
MOVE DISTRICT-TOTAL
IN DISTRICT-TOTAL-ENTRY
(DISTRICT-TOTAL-INDEX) TO
TOTAL-FIELD
IN TOTAL-DETAIL-LINE.
WRITE PRINT-RECORD-2
FROM TOTAL-DETAIL-LINE
AFTER ADVANCING 1 LINE.
SET ORIGINAL-INDEX-VALUE
TO DISTRICT-TOTAL-INDEX.
SEARCH DISTRICT-TOTAL-ENTRY
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO DISTRICT-TOTAL-INDEX
SET TOTAL-DESCRIPTION-INDEX
TO DISTRICT-TOTAL-INDEX.
|
| |||
* MOVE ASMNT-RAW-SCORE
* IN STUDENT-ASSESSMENT-RECORD
* TO ASMNT-RAW-SCORE
* IN EDITED-STUDENT-ASSESSMENT-RECD.
*
*
8800-PRINT-DISTRICT-TOTALS.
MOVE DISTRICT-NAME
IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) TO
COLLEGE-NAME
IN
REPORT-TITLE-LINE-3
.
MOVE 4 TO HEADER-CONTROL-FLAG.
MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
IF SINGLE-COLLEGE-DISTRICT
IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX)
MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID
ELSE
MOVE DISTRICT-ID
IN RUNTIME-PARAMETER-AREA TO REPORT-CLG-DIST-ID.
MOVE SUMMARY-PROGRAM-NAME
IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME
IN HEADER-REPORT-ID.
PERFORM 85002-PRINT-HEADERS.
MOVE ZERO TO TABLE-SEARCH-FLAG.
SET DISTRICT-ELEMENT-ROW-INDEX
TO 1.
SET EDIT-ERROR-LITERAL-INDEX
TO 1.
PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS
UNTIL TABLE-SEARCH-COMPLETED.
* PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS.
MOVE 7 TO HEADER-CONTROL-FLAG.
MOVE SUM3-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.
WRITE PRINT-RECORD-2
FROM BLANK-LINE
AFTER ADVANCING 1 LINE.
MOVE ZERO TO TABLE-SEARCH-FLAG.
SET [[#22a758e0]]
TO 1.
SET TOTAL-DESCRIPTION-INDEX
TO 1.
PERFORM 8830-PRINT-DISTRICT-SUM-TOTALS
UNTIL TABLE-SEARCH-COMPLETED.
*
*
8810-PRINT-DIST-ELEMENT-TOTALS.
MOVE EDIT-ERROR-LITERAL-AREA
IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX)
TO ELEMENT-LITERAL-AREA.
SET DISTRICT-ELEMENT-COLUMN-INDEX
TO 1.
SET ELEMENT-COLUMN-INDEX
TO 1.
MOVE ZERO TO PRINT-LINE-FLAG.
PERFORM 8811-FILL-DIST-PRINT-LINE
UNTIL PRINT-LINE-FILLED.
WRITE PRINT-RECORD-2
FROM ELEMENT-TOTAL-DETAIL-LINE
AFTER ADVANCING 1 LINE.
MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE.
SET ORIGINAL-INDEX-VALUE
TO DISTRICT-ELEMENT-ROW-INDEX.
SEARCH DISTRICT-ELEMENT-TOTALS-ROWS
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
DISTRICT-ELEMENT-ROW-INDEX
NEXT SENTENCE.
SET EDIT-ERROR-LITERAL-INDEX
TO DISTRICT-ELEMENT-ROW-INDEX.
*
*
8811-FILL-DIST-PRINT-LINE.
SET ELEMENT-TABLE-ROW-ID
TO DISTRICT-ELEMENT-ROW-INDEX.
SET ELEMENT-TABLE-COLUMN-ID
TO DISTRICT-ELEMENT-COLUMN-INDEX.
IF [[#22a75820]]
OR (ELEMENT-ROWS-1-9
AND ELEMENT-COLUMN-3)
OR (ELEMENT-ROWS-1-9
AND ELEMENT-COLUMN-4)
MOVE NOT-APPLICABLE-LITERAL TO ELEMENT-N-A
IN ELEMENT-COLUMNS (
ELEMENT-COLUMN-INDEX
)
ELSE
MOVE DISTRICT-ELEMENT-TOTAL
IN DISTRICT-ELEMNT-TOTALS-COLUMNS (
DISTRICT-ELEMENT-ROW-INDEX
DISTRICT-ELEMENT-COLUMN-INDEX
) TO ELEMENT-TOTAL
IN
ELEMENT-COLUMNS
(
ELEMENT-COLUMN-INDEX
).
SET ORIGINAL-INDEX-VALUE
TO DISTRICT-ELEMENT-COLUMN-INDEX.
SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS
AT END
MOVE 1 TO PRINT-LINE-FLAG
WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
DISTRICT-ELEMENT-COLUMN-INDEX
NEXT SENTENCE.
SET ELEMENT-COLUMN-INDEX
TO DISTRICT-ELEMENT-COLUMN-INDEX.
*
*
*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.
* MOVE SPACES TO PRINT-RECORD-2.
* MOVE DIST-INTEGRITY-ERR-2-TOTAL TO INTEGRITY-TOTAL.
* MOVE INTEGRITY-ERR-2-DESC TO INTEGRITY-DESCRIPTION.
* WRITE PRINT-RECORD-2
* FROM INTEGRITY-TOTAL-DETAIL-LINE
* AFTER ADVANCING 2 LINES.
*
*
8830-PRINT-DISTRICT-SUM-TOTALS.
MOVE TOTAL-DESCRIPTION
IN TOTAL-DESCRIPTION-ENTRY (TOTAL-DESCRIPTION-INDEX)TO
TOTAL-DESCRIPTION
IN
TOTAL-DETAIL-LINE
.
MOVE DISTRICT-TOTAL
IN [[#22a756e0]]( [[#22a758e0]]) TO TOTAL-FIELD
IN
TOTAL-DETAIL-LINE
.
WRITE PRINT-RECORD-2
FROM TOTAL-DETAIL-LINE
AFTER ADVANCING 1 LINE.
SET ORIGINAL-INDEX-VALUE
TO [[#22a758e0]].
SEARCH [[#22a756e0]]
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO [[#22a758e0]]
SET TOTAL-DESCRIPTION-INDEX
TO [[#22a758e0]].
|
| CloneAbstraction |
| Parameter Index | Clone Instance | Parameter Name | Value |
|---|---|---|---|
| 1 | 1 | [[#22a758e0]] | TOTAL-DISTRICT-INDEX |
| 1 | 2 | [[#22a758e0]] | DISTRICT-TOTAL-INDEX |
| 2 | 1 | [[#22a75820]] | (ELEMENT-ROWS-1-5
AND ELEMENT-COLUMN-2)
OR (ELEMENT-ROWS-7-9
AND ELEMENT-COLUMN-2) |
| 2 | 2 | [[#22a75820]] | (ELEMENT-ROWS-1-8
AND ELEMENT-COLUMN-2) |
| 3 | 1 | [[#22a756e0]] | TOTAL-DISTRICT-ENTRY |
| 3 | 2 | [[#22a756e0]] | DISTRICT-TOTAL-ENTRY |