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 |