| Previous CloneSet | Next CloneSet | Back to Main Report |
| Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
|---|---|---|---|---|
| 53 | 2 | 0 | 1.000 | paragraph_list[3] |
| Clone Abstraction | Parameter Bindings |
| Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
|---|---|---|---|
| 1 | 53 | 3843 | CCCC3.COB |
| 2 | 53 | 6039 | CCCC7.COB |
| ||||
*
*
9200-PRINT-TOTAL-LINES.
MOVE TOTAL-DESCRIPTION
IN TOTAL-DESCRIPTIONS-ENTRY
(TOTAL-DESCRIPTIONS-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.
MOVE SPACES TO TOTAL-DETAIL-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
PERFORM 9250-BUMP-DESCRIPTOR-INDEX.
*
*
9250-BUMP-DESCRIPTOR-INDEX.
SEARCH TOTAL-DESCRIPTIONS-ENTRY
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN TOTAL-DESCRIPTIONS-INDEX
IS EQUAL TO DISTRICT-TOTAL-INDEX
NEXT SENTENCE.
*
*
9300-PRINT-ERROR-TOTALS.
MOVE DATA-ELEMENT-LITERAL
(EDIT-ERROR-LITERAL-INDEX) TO
ELEMENT-LITERAL-AREA.
SET ELEMENT-COLUMN-INDEX
TO 1.
SET DISTRICT-COUNT-COL-INDEX
TO 1.
PERFORM 9310-FILL-ELEMENT-TOTAL-LINE
UNTIL ELEMENT-COLUMN-INDEX GREATER 4.
WRITE PRINT-RECORD-2
FROM ELEMENT-TOTAL-DETAIL-LINE
AFTER ADVANCING 1 LINE.
SET ORIGINAL-INDEX-VALUE
TO DISTRICT-COUNT-ROW-INDEX.
SEARCH DISTRICT-ERROR-COUNT-ROWS
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO DISTRICT-COUNT-ROW-INDEX
PERFORM 9350-BUMP-DESCRIPTOR-INDEX.
|
| ||||
*
*
9200-PRINT-TOTAL-LINES.
MOVE TOTAL-DESCRIPTION
IN TOTAL-DESCRIPTIONS-ENTRY
(TOTAL-DESCRIPTIONS-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.
MOVE SPACES TO TOTAL-DETAIL-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
PERFORM 9250-BUMP-DESCRIPTOR-INDEX.
*
*
9250-BUMP-DESCRIPTOR-INDEX.
SEARCH TOTAL-DESCRIPTIONS-ENTRY
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN TOTAL-DESCRIPTIONS-INDEX
IS EQUAL TO DISTRICT-TOTAL-INDEX
NEXT SENTENCE.
*
*
9300-PRINT-ERROR-TOTALS.
MOVE DATA-ELEMENT-LITERAL
(EDIT-ERROR-LITERAL-INDEX) TO
ELEMENT-LITERAL-AREA.
SET ELEMENT-COLUMN-INDEX
TO 1.
SET DISTRICT-COUNT-COL-INDEX
TO 1.
PERFORM 9310-FILL-ELEMENT-TOTAL-LINE
UNTIL ELEMENT-COLUMN-INDEX GREATER 4.
WRITE PRINT-RECORD-2
FROM ELEMENT-TOTAL-DETAIL-LINE
AFTER ADVANCING 1 LINE.
SET ORIGINAL-INDEX-VALUE
TO DISTRICT-COUNT-ROW-INDEX.
SEARCH DISTRICT-ERROR-COUNT-ROWS
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO DISTRICT-COUNT-ROW-INDEX
PERFORM 9350-BUMP-DESCRIPTOR-INDEX.
|
| |||
*
*
9200-PRINT-TOTAL-LINES.
MOVE TOTAL-DESCRIPTION
IN TOTAL-DESCRIPTIONS-ENTRY (TOTAL-DESCRIPTIONS-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.
MOVE SPACES TO TOTAL-DETAIL-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
PERFORM 9250-BUMP-DESCRIPTOR-INDEX.
*
*
9250-BUMP-DESCRIPTOR-INDEX.
SEARCH TOTAL-DESCRIPTIONS-ENTRY
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN TOTAL-DESCRIPTIONS-INDEX IS EQUAL TO
DISTRICT-TOTAL-INDEX
NEXT SENTENCE.
*
*
9300-PRINT-ERROR-TOTALS.
MOVE DATA-ELEMENT-LITERAL (EDIT-ERROR-LITERAL-INDEX) TO
ELEMENT-LITERAL-AREA
.
SET ELEMENT-COLUMN-INDEX
TO 1.
SET DISTRICT-COUNT-COL-INDEX
TO 1.
PERFORM 9310-FILL-ELEMENT-TOTAL-LINE
UNTIL ELEMENT-COLUMN-INDEX GREATER 4.
WRITE PRINT-RECORD-2
FROM ELEMENT-TOTAL-DETAIL-LINE
AFTER ADVANCING 1 LINE.
SET ORIGINAL-INDEX-VALUE
TO DISTRICT-COUNT-ROW-INDEX.
SEARCH DISTRICT-ERROR-COUNT-ROWS
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
DISTRICT-COUNT-ROW-INDEX
PERFORM 9350-BUMP-DESCRIPTOR-INDEX.
|
| CloneAbstraction |
| Parameter Index | Clone Instance | Parameter Name | Value |
|---|---|---|---|
| None | |||