| Previous CloneSet | Next CloneSet | Back to Main Report |
| Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
|---|---|---|---|---|
| 41 | 11 | 0 | 1.000 | paragraph |
| Clone Abstraction | Parameter Bindings |
| Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
|---|---|---|---|
| 1 | 41 | 3534 | CCCC1.COB |
| 2 | 41 | 3530 | CCCC11.COB |
| 3 | 41 | 3308 | CCCC12.COB |
| 4 | 41 | 3344 | CCCC13.COB |
| 5 | 41 | 3891 | CCCC14.COB |
| 6 | 41 | 3897 | CCCC2.COB |
| 7 | 41 | 3430 | CCCC4.COB |
| 8 | 41 | 3284 | CCCC5.COB |
| 9 | 41 | 3424 | CCCC6.COB |
| 10 | 43 | 3229 | CCCC8.COB |
| 11 | 41 | 3472 | CCCC9.COB |
| ||||
*
*
2241-WRITE-SUM1-TOTALS.
MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID.
MOVE SUMMARY-PROGRAM-NAME TO
TOTALS-ID1
IN REPORT-TOTALS-RECORD1.
MOVE EDIT-ERROR-LITERAL-2
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
DED-NUMBER.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 1) TO
EXCEPT-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 2) TO
UNKNOWN-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 3) TO
REASON-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 4) TO
GRP3-COUNT
IN REPORT-TOTALS-RECORD1.
WRITE REPORT-TOTALS-RECORD1.
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.
|
| ||||
*
*
2241-WRITE-SUM1-TOTALS.
MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID.
MOVE SUMMARY-PROGRAM-NAME TO
TOTALS-ID1
IN REPORT-TOTALS-RECORD1.
MOVE EDIT-ERROR-LITERAL-2
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
DED-NUMBER.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 1) TO
EXCEPT-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 2) TO
UNKNOWN-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 3) TO
REASON-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 4) TO
GRP3-COUNT
IN REPORT-TOTALS-RECORD1.
WRITE REPORT-TOTALS-RECORD1.
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.
|
| ||||
*
*
2241-WRITE-SUM1-TOTALS.
MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID.
MOVE SUMMARY-PROGRAM-NAME TO
TOTALS-ID1
IN REPORT-TOTALS-RECORD1.
MOVE EDIT-ERROR-LITERAL-2
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
DED-NUMBER.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 1) TO
EXCEPT-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 2) TO
UNKNOWN-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 3) TO
REASON-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 4) TO
GRP3-COUNT
IN REPORT-TOTALS-RECORD1.
WRITE REPORT-TOTALS-RECORD1.
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.
|
| ||||
*
*
2241-WRITE-SUM1-TOTALS.
MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID.
MOVE SUMMARY-PROGRAM-NAME TO
TOTALS-ID1
IN REPORT-TOTALS-RECORD1.
MOVE EDIT-ERROR-LITERAL-2
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
DED-NUMBER.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 1) TO
EXCEPT-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 2) TO
UNKNOWN-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 3) TO
REASON-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 4) TO
GRP3-COUNT
IN REPORT-TOTALS-RECORD1.
WRITE REPORT-TOTALS-RECORD1.
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.
|
| ||||
*
*
2241-WRITE-SUM1-TOTALS.
MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID.
MOVE SUMMARY-PROGRAM-NAME TO
TOTALS-ID1
IN REPORT-TOTALS-RECORD1.
MOVE EDIT-ERROR-LITERAL-2
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
DED-NUMBER.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 1) TO
EXCEPT-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 2) TO
UNKNOWN-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 3) TO
REASON-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 4) TO
GRP3-COUNT
IN REPORT-TOTALS-RECORD1.
WRITE REPORT-TOTALS-RECORD1.
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.
|
| ||||
*
*
2241-WRITE-SUM1-TOTALS.
MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID.
MOVE SUMMARY-PROGRAM-NAME TO
TOTALS-ID1
IN REPORT-TOTALS-RECORD1.
MOVE EDIT-ERROR-LITERAL-2
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
DED-NUMBER.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 1) TO
EXCEPT-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 2) TO
UNKNOWN-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 3) TO
REASON-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 4) TO
GRP3-COUNT
IN REPORT-TOTALS-RECORD1.
WRITE REPORT-TOTALS-RECORD1.
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.
|
| ||||
*
*
2241-WRITE-SUM1-TOTALS.
MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID.
MOVE SUMMARY-PROGRAM-NAME TO
TOTALS-ID1
IN REPORT-TOTALS-RECORD1.
MOVE EDIT-ERROR-LITERAL-2
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
DED-NUMBER.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 1) TO
EXCEPT-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 2) TO
UNKNOWN-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 3) TO
REASON-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 4) TO
GRP3-COUNT
IN REPORT-TOTALS-RECORD1.
WRITE REPORT-TOTALS-RECORD1.
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.
|
| ||||
*
*
2241-WRITE-SUM1-TOTALS.
MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID.
MOVE SUMMARY-PROGRAM-NAME TO
TOTALS-ID1
IN REPORT-TOTALS-RECORD1.
MOVE EDIT-ERROR-LITERAL-2
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
DED-NUMBER.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 1) TO
EXCEPT-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 2) TO
UNKNOWN-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 3) TO
REASON-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 4) TO
GRP3-COUNT
IN REPORT-TOTALS-RECORD1.
WRITE REPORT-TOTALS-RECORD1.
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.
|
| ||||
*
*
2241-WRITE-SUM1-TOTALS.
MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID.
MOVE SUMMARY-PROGRAM-NAME TO
TOTALS-ID1
IN REPORT-TOTALS-RECORD1.
MOVE EDIT-ERROR-LITERAL-2
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
DED-NUMBER.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 1) TO
EXCEPT-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 2) TO
UNKNOWN-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 3) TO
REASON-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 4) TO
GRP3-COUNT
IN REPORT-TOTALS-RECORD1.
WRITE REPORT-TOTALS-RECORD1.
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.
|
| ||||
*
*
2241-WRITE-SUM1-TOTALS.
MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID.
MOVE SUMMARY-PROGRAM-NAME TO
TOTALS-ID1
IN REPORT-TOTALS-RECORD1.
MOVE EDIT-ERROR-LITERAL-2
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
DED-NUMBER.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 1) TO
EXCEPT-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 2) TO
UNKNOWN-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 3) TO
REASON-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 4) TO
GRP3-COUNT
IN REPORT-TOTALS-RECORD1.
WRITE REPORT-TOTALS-RECORD1.
*
*
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.
|
| ||||
*
*
2241-WRITE-SUM1-TOTALS.
MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID.
MOVE SUMMARY-PROGRAM-NAME TO
TOTALS-ID1
IN REPORT-TOTALS-RECORD1.
MOVE EDIT-ERROR-LITERAL-2
IN EDIT-ERROR-LITERAL-ENTRY
(EDIT-ERROR-LITERAL-INDEX) TO
DED-NUMBER.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 1) TO
EXCEPT-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 2) TO
UNKNOWN-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 3) TO
REASON-COUNT
IN REPORT-TOTALS-RECORD1.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(COLLEGE-ELEMENT-ROW-INDEX 4) TO
GRP3-COUNT
IN REPORT-TOTALS-RECORD1.
WRITE REPORT-TOTALS-RECORD1.
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.
|
| |||
*
*
2241-WRITE-SUM1-TOTALS.
MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID.
MOVE SUMMARY-PROGRAM-NAME TO TOTALS-ID1
IN REPORT-TOTALS-RECORD1.
MOVE EDIT-ERROR-LITERAL-2
IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX)
TO DED-NUMBER.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS (
COLLEGE-ELEMENT-ROW-INDEX
1 ) TO EXCEPT-COUNT
IN
REPORT-TOTALS-RECORD1
.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS (
COLLEGE-ELEMENT-ROW-INDEX
2 ) TO UNKNOWN-COUNT
IN
REPORT-TOTALS-RECORD1
.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS (
COLLEGE-ELEMENT-ROW-INDEX
3 ) TO REASON-COUNT
IN
REPORT-TOTALS-RECORD1
.
MOVE COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS (
COLLEGE-ELEMENT-ROW-INDEX
4 ) TO GRP3-COUNT
IN
REPORT-TOTALS-RECORD1
.
WRITE REPORT-TOTALS-RECORD1.
*
*
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.
|
| CloneAbstraction |
| Parameter Index | Clone Instance | Parameter Name | Value |
|---|---|---|---|
| None | |||