| Previous CloneSet | Next CloneSet | Back to Main Report |
| Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
|---|---|---|---|---|
| 56 | 9 | 3 | 0.989 | paragraph_list[2] |
| Clone Abstraction | Parameter Bindings |
| Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
|---|---|---|---|
| 1 | 67 | 4684 | CCCC1.COB |
| 2 | 56 | 4371 | CCCC11.COB |
| 3 | 56 | 3773 | CCCC13.COB |
| 4 | 56 | 4581 | CCCC14.COB |
| 5 | 56 | 4827 | CCCC2.COB |
| 6 | 56 | 3920 | CCCC4.COB |
| 7 | 56 | 3509 | CCCC5.COB |
| 8 | 56 | 3981 | CCCC6.COB |
| 9 | 56 | 3582 | CCCC8.COB |
| ||||
*
*
8210-PRINT-CLG-ELEMENT-TOTALS.
MOVE EDIT-ERROR-LITERAL-AREA
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
ELEMENT-LITERAL-AREA.
SET COLLEGE-ELEMENT-COLUMN-INDEX
TO 1.
SET ELEMENT-COLUMN-INDEX
TO 1.
MOVE ZERO TO PRINT-LINE-FLAG.
PERFORM 8211-FILL-CLG-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 COLLEGE-ELEMENT-ROW-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX
NEXT SENTENCE.
SET EDIT-ERROR-LITERAL-INDEX
TO COLLEGE-ELEMENT-ROW-INDEX.
*
*
8211-FILL-CLG-PRINT-LINE.
SET ELEMENT-TABLE-ROW-ID
TO COLLEGE-ELEMENT-ROW-INDEX.
SET ELEMENT-TABLE-COLUMN-ID
TO COLLEGE-ELEMENT-COLUMN-INDEX.
IF (ELEMENT-ROWS-1-25
AND ELEMENT-COLUMN-2)
OR
(ELEMENT-ROWS-1-25
AND ELEMENT-COLUMN-3)
OR
(ELEMENT-ROWS-1-25
AND ELEMENT-COLUMN-4)
* OR
* (ELEMENT-ROWS-13
* AND ELEMENT-COLUMN-4)
* OR
* (ELEMENT-ROWS-17
* AND ELEMENT-COLUMN-4)
MOVE NOT-APPLICABLE-LITERAL TO
ELEMENT-N-A
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX)
ELSE
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX
COLLEGE-ELEMENT-COLUMN-INDEX) TO
ELEMENT-TOTAL
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX).
SET ORIGINAL-INDEX-VALUE
TO COLLEGE-ELEMENT-COLUMN-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
AT END
MOVE 1 TO PRINT-LINE-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX
NEXT SENTENCE.
SET ELEMENT-COLUMN-INDEX
TO COLLEGE-ELEMENT-COLUMN-INDEX.
|
| ||||
*
*
8210-PRINT-CLG-ELEMENT-TOTALS.
MOVE EDIT-ERROR-LITERAL-AREA
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
ELEMENT-LITERAL-AREA.
SET COLLEGE-ELEMENT-COLUMN-INDEX
TO 1.
SET ELEMENT-COLUMN-INDEX
TO 1.
MOVE ZERO TO PRINT-LINE-FLAG.
PERFORM 8211-FILL-CLG-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 COLLEGE-ELEMENT-ROW-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX
NEXT SENTENCE.
SET EDIT-ERROR-LITERAL-INDEX
TO COLLEGE-ELEMENT-ROW-INDEX.
*
*
8211-FILL-CLG-PRINT-LINE.
SET ELEMENT-TABLE-ROW-ID
TO COLLEGE-ELEMENT-ROW-INDEX.
SET ELEMENT-TABLE-COLUMN-ID
TO COLLEGE-ELEMENT-COLUMN-INDEX.
IF (ELEMENT-ROWS-1-5-OR-9-18
AND ELEMENT-COLUMN-2)
OR (ELEMENT-ROWS-1-6-OR-8-16
AND ELEMENT-COLUMN-3)
OR (ELEMENT-ROWS-1-16
AND ELEMENT-COLUMN-4)
MOVE NOT-APPLICABLE-LITERAL TO
ELEMENT-N-A
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX)
ELSE MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX
COLLEGE-ELEMENT-COLUMN-INDEX) TO
ELEMENT-TOTAL
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX).
SET ORIGINAL-INDEX-VALUE
TO COLLEGE-ELEMENT-COLUMN-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
AT END
MOVE 1 TO PRINT-LINE-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX
NEXT SENTENCE.
SET ELEMENT-COLUMN-INDEX
TO COLLEGE-ELEMENT-COLUMN-INDEX.
|
| ||||
*
*
8210-PRINT-CLG-ELEMENT-TOTALS.
MOVE EDIT-ERROR-LITERAL-AREA
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
ELEMENT-LITERAL-AREA.
SET COLLEGE-ELEMENT-COLUMN-INDEX
TO 1.
SET ELEMENT-COLUMN-INDEX
TO 1.
MOVE ZERO TO PRINT-LINE-FLAG.
PERFORM 8211-FILL-CLG-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 COLLEGE-ELEMENT-ROW-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX
NEXT SENTENCE.
SET EDIT-ERROR-LITERAL-INDEX
TO COLLEGE-ELEMENT-ROW-INDEX.
*
*
8211-FILL-CLG-PRINT-LINE.
SET ELEMENT-TABLE-ROW-ID
TO COLLEGE-ELEMENT-ROW-INDEX.
SET ELEMENT-TABLE-COLUMN-ID
TO COLLEGE-ELEMENT-COLUMN-INDEX.
IF (ELEMENT-ROWS-1-13
AND ELEMENT-COLUMN-2)
OR (ELEMENT-ROWS-1-13
AND ELEMENT-COLUMN-3)
OR (ELEMENT-ROWS-1-13
AND ELEMENT-COLUMN-4)
MOVE NOT-APPLICABLE-LITERAL TO
ELEMENT-N-A
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX)
ELSE MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX
COLLEGE-ELEMENT-COLUMN-INDEX) TO
ELEMENT-TOTAL
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX).
SET ORIGINAL-INDEX-VALUE
TO COLLEGE-ELEMENT-COLUMN-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
AT END
MOVE 1 TO PRINT-LINE-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX
NEXT SENTENCE.
SET ELEMENT-COLUMN-INDEX
TO COLLEGE-ELEMENT-COLUMN-INDEX.
|
| ||||
*
*
8210-PRINT-CLG-ELEMENT-TOTALS.
MOVE EDIT-ERROR-LITERAL-AREA
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
ELEMENT-LITERAL-AREA.
SET COLLEGE-ELEMENT-COLUMN-INDEX
TO 1.
SET ELEMENT-COLUMN-INDEX
TO 1.
MOVE ZERO TO PRINT-LINE-FLAG.
PERFORM 8211-FILL-CLG-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 COLLEGE-ELEMENT-ROW-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX
NEXT SENTENCE.
SET EDIT-ERROR-LITERAL-INDEX
TO COLLEGE-ELEMENT-ROW-INDEX.
*
*
8211-FILL-CLG-PRINT-LINE.
SET ELEMENT-TABLE-ROW-ID
TO COLLEGE-ELEMENT-ROW-INDEX.
SET ELEMENT-TABLE-COLUMN-ID
TO COLLEGE-ELEMENT-COLUMN-INDEX.
IF (ELEMENT-ROWS-1-10-12
AND ELEMENT-COLUMN-2)
OR (ELEMENT-ROWS-1-12
AND ELEMENT-COLUMN-3)
OR (ELEMENT-ROWS-1-12
AND ELEMENT-COLUMN-4)
MOVE NOT-APPLICABLE-LITERAL TO
ELEMENT-N-A
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX)
ELSE MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX
COLLEGE-ELEMENT-COLUMN-INDEX) TO
ELEMENT-TOTAL
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX).
SET ORIGINAL-INDEX-VALUE
TO COLLEGE-ELEMENT-COLUMN-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
AT END
MOVE 1 TO PRINT-LINE-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX
NEXT SENTENCE.
SET ELEMENT-COLUMN-INDEX
TO COLLEGE-ELEMENT-COLUMN-INDEX.
|
| ||||
*
*
8210-PRINT-CLG-ELEMENT-TOTALS.
MOVE EDIT-ERROR-LITERAL-AREA
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
ELEMENT-LITERAL-AREA.
SET COLLEGE-ELEMENT-COLUMN-INDEX
TO 1.
SET ELEMENT-COLUMN-INDEX
TO 1.
MOVE ZERO TO PRINT-LINE-FLAG.
PERFORM 8211-FILL-CLG-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 COLLEGE-ELEMENT-ROW-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX
NEXT SENTENCE.
SET EDIT-ERROR-LITERAL-INDEX
TO COLLEGE-ELEMENT-ROW-INDEX.
*
*
8211-FILL-CLG-PRINT-LINE.
SET ELEMENT-TABLE-ROW-ID
TO COLLEGE-ELEMENT-ROW-INDEX.
SET ELEMENT-TABLE-COLUMN-ID
TO COLLEGE-ELEMENT-COLUMN-INDEX.
IF (ELEMENT-ROWS-1-11
AND ELEMENT-COLUMN-2)
OR (ELEMENT-ROWS-1-9
AND ELEMENT-COLUMN-3)
OR (ELEMENT-ROWS-1-11
AND ELEMENT-COLUMN-4)
MOVE NOT-APPLICABLE-LITERAL TO
ELEMENT-N-A
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX)
ELSE MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX
COLLEGE-ELEMENT-COLUMN-INDEX) TO
ELEMENT-TOTAL
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX).
SET ORIGINAL-INDEX-VALUE
TO COLLEGE-ELEMENT-COLUMN-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
AT END
MOVE 1 TO PRINT-LINE-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX
NEXT SENTENCE.
SET ELEMENT-COLUMN-INDEX
TO COLLEGE-ELEMENT-COLUMN-INDEX.
|
| ||||
*
*
8210-PRINT-CLG-ELEMENT-TOTALS.
MOVE EDIT-ERROR-LITERAL-AREA
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
ELEMENT-LITERAL-AREA.
SET COLLEGE-ELEMENT-COLUMN-INDEX
TO 1.
SET ELEMENT-COLUMN-INDEX
TO 1.
MOVE ZERO TO PRINT-LINE-FLAG.
PERFORM 8211-FILL-CLG-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 COLLEGE-ELEMENT-ROW-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX
NEXT SENTENCE.
SET EDIT-ERROR-LITERAL-INDEX
TO COLLEGE-ELEMENT-ROW-INDEX.
*
*
8211-FILL-CLG-PRINT-LINE.
SET ELEMENT-TABLE-ROW-ID
TO COLLEGE-ELEMENT-ROW-INDEX.
SET ELEMENT-TABLE-COLUMN-ID
TO COLLEGE-ELEMENT-COLUMN-INDEX.
IF (ELEMENT-ROWS-1-12
AND ELEMENT-COLUMN-2)
OR (ELEMENT-ROWS-1-11
AND ELEMENT-COLUMN-3)
OR (ELEMENT-ROWS-1-12
AND ELEMENT-COLUMN-4)
MOVE NOT-APPLICABLE-LITERAL TO
ELEMENT-N-A
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX)
ELSE MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX
COLLEGE-ELEMENT-COLUMN-INDEX) TO
ELEMENT-TOTAL
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX).
SET ORIGINAL-INDEX-VALUE
TO COLLEGE-ELEMENT-COLUMN-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
AT END
MOVE 1 TO PRINT-LINE-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX
NEXT SENTENCE.
SET ELEMENT-COLUMN-INDEX
TO COLLEGE-ELEMENT-COLUMN-INDEX.
|
| ||||
*
*
8210-PRINT-CLG-ELEMENT-TOTALS.
MOVE EDIT-ERROR-LITERAL-AREA
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
ELEMENT-LITERAL-AREA.
SET COLLEGE-ELEMENT-COLUMN-INDEX
TO 1.
SET ELEMENT-COLUMN-INDEX
TO 1.
MOVE ZERO TO PRINT-LINE-FLAG.
PERFORM 8211-FILL-CLG-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 COLLEGE-ELEMENT-ROW-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX
NEXT SENTENCE.
SET EDIT-ERROR-LITERAL-INDEX
TO COLLEGE-ELEMENT-ROW-INDEX.
*
*
8211-FILL-CLG-PRINT-LINE.
SET ELEMENT-TABLE-ROW-ID
TO COLLEGE-ELEMENT-ROW-INDEX.
SET ELEMENT-TABLE-COLUMN-ID
TO COLLEGE-ELEMENT-COLUMN-INDEX.
IF (ELEMENT-ROWS-1-6
AND ELEMENT-COLUMN-2)
OR (ELEMENT-ROWS-1-7
AND ELEMENT-COLUMN-3)
OR (ELEMENT-ROWS-1-7
AND ELEMENT-COLUMN-4)
MOVE NOT-APPLICABLE-LITERAL TO
ELEMENT-N-A
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX)
ELSE MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX
COLLEGE-ELEMENT-COLUMN-INDEX) TO
ELEMENT-TOTAL
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX).
SET ORIGINAL-INDEX-VALUE
TO COLLEGE-ELEMENT-COLUMN-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
AT END
MOVE 1 TO PRINT-LINE-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX
NEXT SENTENCE.
SET ELEMENT-COLUMN-INDEX
TO COLLEGE-ELEMENT-COLUMN-INDEX.
|
| ||||
*
*
8210-PRINT-CLG-ELEMENT-TOTALS.
MOVE EDIT-ERROR-LITERAL-AREA
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
ELEMENT-LITERAL-AREA.
SET COLLEGE-ELEMENT-COLUMN-INDEX
TO 1.
SET ELEMENT-COLUMN-INDEX
TO 1.
MOVE ZERO TO PRINT-LINE-FLAG.
PERFORM 8211-FILL-CLG-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 COLLEGE-ELEMENT-ROW-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX
NEXT SENTENCE.
SET EDIT-ERROR-LITERAL-INDEX
TO COLLEGE-ELEMENT-ROW-INDEX.
*
*
8211-FILL-CLG-PRINT-LINE.
SET ELEMENT-TABLE-ROW-ID
TO COLLEGE-ELEMENT-ROW-INDEX.
SET ELEMENT-TABLE-COLUMN-ID
TO COLLEGE-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 COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX
COLLEGE-ELEMENT-COLUMN-INDEX) TO
ELEMENT-TOTAL
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX).
SET ORIGINAL-INDEX-VALUE
TO COLLEGE-ELEMENT-COLUMN-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
AT END
MOVE 1 TO PRINT-LINE-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX
NEXT SENTENCE.
SET ELEMENT-COLUMN-INDEX
TO COLLEGE-ELEMENT-COLUMN-INDEX.
|
| ||||
*
*
8210-PRINT-CLG-ELEMENT-TOTALS.
MOVE EDIT-ERROR-LITERAL-AREA
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
ELEMENT-LITERAL-AREA.
SET COLLEGE-ELEMENT-COLUMN-INDEX
TO 1.
SET ELEMENT-COLUMN-INDEX
TO 1.
MOVE ZERO TO PRINT-LINE-FLAG.
PERFORM 8211-FILL-CLG-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 COLLEGE-ELEMENT-ROW-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX
NEXT SENTENCE.
SET EDIT-ERROR-LITERAL-INDEX
TO COLLEGE-ELEMENT-ROW-INDEX.
*
*
8211-FILL-CLG-PRINT-LINE.
SET ELEMENT-TABLE-ROW-ID
TO COLLEGE-ELEMENT-ROW-INDEX.
SET ELEMENT-TABLE-COLUMN-ID
TO COLLEGE-ELEMENT-COLUMN-INDEX.
IF (ELEMENT-ROWS-1-10
AND ELEMENT-COLUMN-2)
OR(ELEMENT-ROWS-1-10
AND ELEMENT-COLUMN-3)
OR(ELEMENT-ROWS-1-10
AND ELEMENT-COLUMN-4)
MOVE NOT-APPLICABLE-LITERAL TO
ELEMENT-N-A
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX)
ELSE
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX
COLLEGE-ELEMENT-COLUMN-INDEX) TO
ELEMENT-TOTAL
IN ELEMENT-COLUMNS
(ELEMENT-COLUMN-INDEX).
SET ORIGINAL-INDEX-VALUE
TO COLLEGE-ELEMENT-COLUMN-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
AT END
MOVE 1 TO PRINT-LINE-FLAG
WHEN ORIGINAL-INDEX-VALUE
IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX
NEXT SENTENCE.
SET ELEMENT-COLUMN-INDEX
TO COLLEGE-ELEMENT-COLUMN-INDEX.
|
| |||
*
*
8210-PRINT-CLG-ELEMENT-TOTALS.
MOVE EDIT-ERROR-LITERAL-AREA
IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX)
TO ELEMENT-LITERAL-AREA.
SET COLLEGE-ELEMENT-COLUMN-INDEX
TO 1.
SET ELEMENT-COLUMN-INDEX
TO 1.
MOVE ZERO TO PRINT-LINE-FLAG.
PERFORM 8211-FILL-CLG-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 COLLEGE-ELEMENT-ROW-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
AT END
MOVE 1 TO TABLE-SEARCH-FLAG
WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
COLLEGE-ELEMENT-ROW-INDEX
NEXT SENTENCE.
SET EDIT-ERROR-LITERAL-INDEX
TO COLLEGE-ELEMENT-ROW-INDEX.
*
*
8211-FILL-CLG-PRINT-LINE.
SET ELEMENT-TABLE-ROW-ID
TO COLLEGE-ELEMENT-ROW-INDEX.
SET ELEMENT-TABLE-COLUMN-ID
TO COLLEGE-ELEMENT-COLUMN-INDEX.
IF ( [[#22a691a0]]
AND ELEMENT-COLUMN-2)
OR ( [[#22a68b00]]
AND ELEMENT-COLUMN-3)
OR ( [[#22a690c0]]
AND ELEMENT-COLUMN-4)
* OR
* (ELEMENT-ROWS-13
* AND ELEMENT-COLUMN-4)
* OR
* (ELEMENT-ROWS-17
* AND ELEMENT-COLUMN-4)
MOVE NOT-APPLICABLE-LITERAL TO ELEMENT-N-A
IN ELEMENT-COLUMNS (
ELEMENT-COLUMN-INDEX
)
ELSE
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS (
COLLEGE-ELEMENT-ROW-INDEX
COLLEGE-ELEMENT-COLUMN-INDEX
) TO ELEMENT-TOTAL
IN
ELEMENT-COLUMNS
(
ELEMENT-COLUMN-INDEX
).
SET ORIGINAL-INDEX-VALUE
TO COLLEGE-ELEMENT-COLUMN-INDEX.
SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
AT END
MOVE 1 TO PRINT-LINE-FLAG
WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
COLLEGE-ELEMENT-COLUMN-INDEX
NEXT SENTENCE.
SET ELEMENT-COLUMN-INDEX
TO COLLEGE-ELEMENT-COLUMN-INDEX.
|
| CloneAbstraction |
| Parameter Index | Clone Instance | Parameter Name | Value |
|---|---|---|---|
| 1 | 1 | [[#22a691a0]] | ELEMENT-ROWS-1-10-12 |
| 1 | 2 | [[#22a691a0]] | ELEMENT-ROWS-1-13 |
| 1 | 3 | [[#22a691a0]] | ELEMENT-ROWS-1-5-OR-9-18 |
| 1 | 4 | [[#22a691a0]] | ELEMENT-ROWS-1-10 |
| 1 | 5 | [[#22a691a0]] | ELEMENT-ROWS-1-8 |
| 1 | 6 | [[#22a691a0]] | ELEMENT-ROWS-1-6 |
| 1 | 7 | [[#22a691a0]] | ELEMENT-ROWS-1-12 |
| 1 | 8 | [[#22a691a0]] | ELEMENT-ROWS-1-11 |
| 1 | 9 | [[#22a691a0]] | ELEMENT-ROWS-1-25 |
| 2 | 1 | [[#22a68b00]] | ELEMENT-ROWS-1-12 |
| 2 | 2 | [[#22a68b00]] | ELEMENT-ROWS-1-13 |
| 2 | 3 | [[#22a68b00]] | ELEMENT-ROWS-1-6-OR-8-16 |
| 2 | 4 | [[#22a68b00]] | ELEMENT-ROWS-1-10 |
| 2 | 5 | [[#22a68b00]] | ELEMENT-ROWS-1-9 |
| 2 | 6 | [[#22a68b00]] | ELEMENT-ROWS-1-7 |
| 2 | 7 | [[#22a68b00]] | ELEMENT-ROWS-1-11 |
| 2 | 8 | [[#22a68b00]] | ELEMENT-ROWS-1-9 |
| 2 | 9 | [[#22a68b00]] | ELEMENT-ROWS-1-25 |
| 3 | 1 | [[#22a690c0]] | ELEMENT-ROWS-1-12 |
| 3 | 2 | [[#22a690c0]] | ELEMENT-ROWS-1-13 |
| 3 | 3 | [[#22a690c0]] | ELEMENT-ROWS-1-16 |
| 3 | 4 | [[#22a690c0]] | ELEMENT-ROWS-1-10 |
| 3 | 5 | [[#22a690c0]] | ELEMENT-ROWS-1-9 |
| 3 | 6 | [[#22a690c0]] | ELEMENT-ROWS-1-7 |
| 3 | 7 | [[#22a690c0]] | ELEMENT-ROWS-1-12 |
| 3 | 8 | [[#22a690c0]] | ELEMENT-ROWS-1-11 |
| 3 | 9 | [[#22a690c0]] | ELEMENT-ROWS-1-25 |