CloneSet19


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
56930.989paragraph_list[2]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1674684
CCCC1.COB
2564371
CCCC11.COB
3563773
CCCC13.COB
4564581
CCCC14.COB
5564827
CCCC2.COB
6563920
CCCC4.COB
7563509
CCCC5.COB
8563981
CCCC6.COB
9563582
CCCC8.COB
Clone Instance
1
Line Count
67
Source Line
4684
Source File
CCCC1.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.


Clone Instance
2
Line Count
56
Source Line
4371
Source File
CCCC11.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-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.


Clone Instance
3
Line Count
56
Source Line
3773
Source File
CCCC13.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-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.


Clone Instance
4
Line Count
56
Source Line
4581
Source File
CCCC14.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-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.


Clone Instance
5
Line Count
56
Source Line
4827
Source File
CCCC2.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-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.


Clone Instance
6
Line Count
56
Source Line
3920
Source File
CCCC4.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-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.


Clone Instance
7
Line Count
56
Source Line
3509
Source File
CCCC5.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-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.


Clone Instance
8
Line Count
56
Source Line
3981
Source File
CCCC6.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-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.


Clone Instance
9
Line Count
56
Source Line
3582
Source File
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-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.


Clone AbstractionParameter Count: 3Parameter Bindings

      *
      *
       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 Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#22a691a0]]
       ELEMENT-ROWS-1-10-12 
12[[#22a691a0]]
       ELEMENT-ROWS-1-13 
13[[#22a691a0]]
       ELEMENT-ROWS-1-5-OR-9-18 
14[[#22a691a0]]
       ELEMENT-ROWS-1-10 
15[[#22a691a0]]
       ELEMENT-ROWS-1-8 
16[[#22a691a0]]
       ELEMENT-ROWS-1-6 
17[[#22a691a0]]
       ELEMENT-ROWS-1-12 
18[[#22a691a0]]
       ELEMENT-ROWS-1-11 
19[[#22a691a0]]
       ELEMENT-ROWS-1-25 
21[[#22a68b00]]
       ELEMENT-ROWS-1-12 
22[[#22a68b00]]
       ELEMENT-ROWS-1-13 
23[[#22a68b00]]
       ELEMENT-ROWS-1-6-OR-8-16 
24[[#22a68b00]]
       ELEMENT-ROWS-1-10 
25[[#22a68b00]]
       ELEMENT-ROWS-1-9 
26[[#22a68b00]]
       ELEMENT-ROWS-1-7 
27[[#22a68b00]]
       ELEMENT-ROWS-1-11 
28[[#22a68b00]]
       ELEMENT-ROWS-1-9 
29[[#22a68b00]]
       ELEMENT-ROWS-1-25 
31[[#22a690c0]]
       ELEMENT-ROWS-1-12 
32[[#22a690c0]]
       ELEMENT-ROWS-1-13 
33[[#22a690c0]]
       ELEMENT-ROWS-1-16 
34[[#22a690c0]]
       ELEMENT-ROWS-1-10 
35[[#22a690c0]]
       ELEMENT-ROWS-1-9 
36[[#22a690c0]]
       ELEMENT-ROWS-1-7 
37[[#22a690c0]]
       ELEMENT-ROWS-1-12 
38[[#22a690c0]]
       ELEMENT-ROWS-1-11 
39[[#22a690c0]]
       ELEMENT-ROWS-1-25