CloneSet18


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
95220.958imperative_statement_list[3]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
194178
CCCC1.COB
294203
CCCC1.COB
394225
CCCC1.COB
494242
CCCC1.COB
594255
CCCC1.COB
694277
CCCC1.COB
794290
CCCC1.COB
894303
CCCC1.COB
994327
CCCC1.COB
1094348
CCCC1.COB
1194369
CCCC1.COB
1294391
CCCC1.COB
1394404
CCCC1.COB
1494426
CCCC1.COB
1594439
CCCC1.COB
1694455
CCCC1.COB
1794912
CCCC10.COB
1894955
CCCC10.COB
1994969
CCCC10.COB
20125062
CCCC10.COB
2195121
CCCC10.COB
2295168
CCCC10.COB
2395368
CCCC10.COB
2495415
CCCC10.COB
2594118
CCCC11.COB
2694145
CCCC11.COB
2794172
CCCC11.COB
2894199
CCCC11.COB
2994462
CCCC2.COB
3094478
CCCC2.COB
3194494
CCCC2.COB
3294511
CCCC2.COB
3394541
CCCC2.COB
3494557
CCCC2.COB
3594573
CCCC2.COB
3694589
CCCC2.COB
3794605
CCCC2.COB
3894621
CCCC2.COB
3994636
CCCC2.COB
4093688
CCCC4.COB
4193703
CCCC4.COB
4293719
CCCC4.COB
4393732
CCCC4.COB
4493787
CCCC4.COB
4593445
CCCC8.COB
4693467
CCCC8.COB
4793963
CCCC9.COB
4893980
CCCC9.COB
4993996
CCCC9.COB
5094011
CCCC9.COB
5194028
CCCC9.COB
5294045
CCCC9.COB
Clone Instance
1
Line Count
9
Source Line
4178
Source File
CCCC1.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (8 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (9 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
2
Line Count
9
Source Line
4203
Source File
CCCC1.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (8 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (10 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
3
Line Count
9
Source Line
4225
Source File
CCCC1.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (8 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (11 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
4
Line Count
9
Source Line
4242
Source File
CCCC1.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (8 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (12 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
5
Line Count
9
Source Line
4255
Source File
CCCC1.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (8 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (12 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
6
Line Count
9
Source Line
4277
Source File
CCCC1.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (18 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (19 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
7
Line Count
9
Source Line
4290
Source File
CCCC1.COB

                      MOVE 1 TO REJECT-RECORD-FLAG
                      MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (18 EDIT-ERROR-COLUMN-INDEX)
                      MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (19 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
8
Line Count
9
Source Line
4303
Source File
CCCC1.COB

                      MOVE 1 TO REJECT-RECORD-FLAG
                      MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (18 EDIT-ERROR-COLUMN-INDEX)
                      MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (19 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
9
Line Count
9
Source Line
4327
Source File
CCCC1.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (2 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (20 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
10
Line Count
9
Source Line
4348
Source File
CCCC1.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (2 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (21 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
11
Line Count
9
Source Line
4369
Source File
CCCC1.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (2 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (22 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
12
Line Count
9
Source Line
4391
Source File
CCCC1.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (9 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (23 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
13
Line Count
9
Source Line
4404
Source File
CCCC1.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (9 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (23 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
14
Line Count
9
Source Line
4426
Source File
CCCC1.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (9 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (24 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
15
Line Count
9
Source Line
4439
Source File
CCCC1.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (9 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (24 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
16
Line Count
9
Source Line
4455
Source File
CCCC1.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (25 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (9 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
17
Line Count
9
Source Line
4912
Source File
CCCC10.COB

               MOVE 1 TO REJECT-RECORD-FLAG
               MOVE INTEGRITY-LITERAL TO
                          VALIDATION-FLAG
                       IN EDIT-ERROR-TABLE-COLUMNS
                       (7 EDIT-ERROR-COLUMN-INDEX)
               MOVE INTEGRITY-LITERAL TO
                          VALIDATION-FLAG
                       IN EDIT-ERROR-TABLE-COLUMNS
                       (27 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
18
Line Count
9
Source Line
4955
Source File
CCCC10.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (7 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (8 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
19
Line Count
9
Source Line
4969
Source File
CCCC10.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (7 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (8 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
20
Line Count
12
Source Line
5062
Source File
CCCC10.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
      *            ADD 1 TO ERROR-COUNT (11, 3)
      *            ADD 1 TO ERROR-COUNT (12, 3)
      *            MOVE 1 TO REASONABLE-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (11 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (12 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
21
Line Count
9
Source Line
5121
Source File
CCCC10.COB

      ******************************************************************
      *  THIS NEXT SECTION COMMENTED OUT 8/95                          *
      ******************************************************************
      *     THIS REASONABLENESS CHK TO BE FOR 93-94 DATA ONLY
      *          IF RECEIVED-GROUP-B-AWARD
      *            MOVE REASONABLENESS-LITERAL
      *                    TO VALIDATION-FLAG
      *                    IN EDIT-ERROR-TABLE-COLUMNS
      *                    (11 EDIT-ERROR-COLUMN-INDEX)
      *            MOVE REASONABLENESS-LITERAL
      *                    TO VALIDATION-FLAG
      *                    IN EDIT-ERROR-TABLE-COLUMNS
      *                    (14 EDIT-ERROR-COLUMN-INDEX)
      *            ADD 1 TO ERROR-COUNT (11, 3)
      *            ADD 1 TO ERROR-COUNT (14, 3)
      *            IF AWARDS-COUNT > 0
      *                PERFORM 23499-FLAG-RES-ERR-B-AWARDS
      *                    VARYING HOLD-AWARD-INDEX
      *                    FROM 1 BY 1
      *                    UNTIL HOLD-AWARD-INDEX > AWARDS-COUNT
      *            ELSE
      *                NEXT SENTENCE
      *          ELSE
                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (11 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (14 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
22
Line Count
9
Source Line
5168
Source File
CCCC10.COB

      ******************************************************************
      *  THIS NEXT SECTION COMMENTED OUT 8/95                          *
      ******************************************************************
      *        IF INCOME-1-UNKNOWN
      *     THIS REASONABLENESS CHK TO BE FOR 93-94 DATA ONLY
      *          IF RECEIVED-GROUP-B-AWARD
      *            MOVE REASONABLENESS-LITERAL
      *                    TO VALIDATION-FLAG
      *                    IN EDIT-ERROR-TABLE-COLUMNS
      *                    (11 EDIT-ERROR-COLUMN-INDEX)
      *            MOVE REASONABLENESS-LITERAL
      *                    TO VALIDATION-FLAG
      *                    IN EDIT-ERROR-TABLE-COLUMNS
      *                    (15 EDIT-ERROR-COLUMN-INDEX)
      *            ADD 1 TO ERROR-COUNT (11, 3)
      *            ADD 1 TO ERROR-COUNT (15, 3)
      *            IF AWARDS-COUNT > 0
      *                PERFORM 23499-FLAG-RES-ERR-B-AWARDS
      *                    VARYING HOLD-AWARD-INDEX
      *                    FROM 1 BY 1
      *                    UNTIL HOLD-AWARD-INDEX > AWARDS-COUNT
      *            ELSE
      *                NEXT SENTENCE
      *          ELSE
                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (11 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (15 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
23
Line Count
9
Source Line
5368
Source File
CCCC10.COB

      ******************************************************************
      *  THIS NEXT SECTION COMMENTED OUT 8/95                          *
      ******************************************************************
      *        IF INCOME-1-UNKNOWN
      *     THIS REASONABLENESS CHK TO BE FOR 93-94 DATA ONLY
      *          IF RECEIVED-GROUP-B-AWARD
      *            MOVE REASONABLENESS-LITERAL
      *                    TO VALIDATION-FLAG
      *                    IN EDIT-ERROR-TABLE-COLUMNS
      *                    (11 EDIT-ERROR-COLUMN-INDEX)
      *            MOVE REASONABLENESS-LITERAL
      *                    TO VALIDATION-FLAG
      *                    IN EDIT-ERROR-TABLE-COLUMNS
      *                    (16 EDIT-ERROR-COLUMN-INDEX)
      *            ADD 1 TO ERROR-COUNT (11, 3)
      *            ADD 1 TO ERROR-COUNT (16, 3)
      *            IF AWARDS-COUNT > 0
      *                PERFORM 23499-FLAG-RES-ERR-B-AWARDS
      *                    VARYING HOLD-AWARD-INDEX
      *                    FROM 1 BY 1
      *                    UNTIL HOLD-AWARD-INDEX > AWARDS-COUNT
      *            ELSE
      *                NEXT SENTENCE
      *          ELSE
                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (11 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (16 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
24
Line Count
9
Source Line
5415
Source File
CCCC10.COB

      ******************************************************************
      *  THIS NEXT SECTION COMMENTED OUT 8/95                          *
      ******************************************************************
      *        IF INCOME-1-UNKNOWN
      *     THIS REASONABLENESS CHK TO BE FOR 93-94 DATA ONLY
      *          IF RECEIVED-GROUP-B-AWARD
      *            MOVE REASONABLENESS-LITERAL
      *                    TO VALIDATION-FLAG
      *                    IN EDIT-ERROR-TABLE-COLUMNS
      *                    (11 EDIT-ERROR-COLUMN-INDEX)
      *            MOVE REASONABLENESS-LITERAL
      *                    TO VALIDATION-FLAG
      *                    IN EDIT-ERROR-TABLE-COLUMNS
      *                    (17 EDIT-ERROR-COLUMN-INDEX)
      *            ADD 1 TO ERROR-COUNT (11, 3)
      *            ADD 1 TO ERROR-COUNT (17, 3)
      *            IF AWARDS-COUNT > 0
      *                PERFORM 23499-FLAG-RES-ERR-B-AWARDS
      *                    VARYING HOLD-AWARD-INDEX
      *                    FROM 1 BY 1
      *                    UNTIL HOLD-AWARD-INDEX > AWARDS-COUNT
      *            ELSE
      *                NEXT SENTENCE
      *          ELSE
                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (11 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (17 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
25
Line Count
9
Source Line
4118
Source File
CCCC11.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (6 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (9 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
26
Line Count
9
Source Line
4145
Source File
CCCC11.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (7 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (9 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
27
Line Count
9
Source Line
4172
Source File
CCCC11.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (8 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (9 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
28
Line Count
9
Source Line
4199
Source File
CCCC11.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (14 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (9 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
29
Line Count
9
Source Line
4462
Source File
CCCC2.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (5 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (6 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
30
Line Count
9
Source Line
4478
Source File
CCCC2.COB

                 MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (5 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (9 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
31
Line Count
9
Source Line
4494
Source File
CCCC2.COB

                 MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (7 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (9 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
32
Line Count
9
Source Line
4511
Source File
CCCC2.COB

                 MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (7 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (10 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
33
Line Count
9
Source Line
4541
Source File
CCCC2.COB

                 MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (9 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (10 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
34
Line Count
9
Source Line
4557
Source File
CCCC2.COB

                 MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (7 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (11 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
35
Line Count
9
Source Line
4573
Source File
CCCC2.COB

                 MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (9 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (11 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
36
Line Count
9
Source Line
4589
Source File
CCCC2.COB

                 MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (7 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (11 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
37
Line Count
9
Source Line
4605
Source File
CCCC2.COB

                 MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (8 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (10 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
38
Line Count
9
Source Line
4621
Source File
CCCC2.COB

                 MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (5 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (11 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
39
Line Count
9
Source Line
4636
Source File
CCCC2.COB

                 MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (7 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (8 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
40
Line Count
9
Source Line
3688
Source File
CCCC4.COB

            MOVE 1 TO REJECT-RECORD-FLAG
            MOVE INTEGRITY-LITERAL TO
                     VALIDATION-FLAG
                  IN EDIT-ERROR-TABLE-COLUMNS
                  (6 EDIT-ERROR-COLUMN-INDEX)
            MOVE INTEGRITY-LITERAL TO
                     VALIDATION-FLAG
                  IN EDIT-ERROR-TABLE-COLUMNS
                  (5 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
41
Line Count
9
Source Line
3703
Source File
CCCC4.COB

            MOVE 1 TO REJECT-RECORD-FLAG
            MOVE INTEGRITY-LITERAL TO
                     VALIDATION-FLAG
                  IN EDIT-ERROR-TABLE-COLUMNS
                  (6 EDIT-ERROR-COLUMN-INDEX)
            MOVE INTEGRITY-LITERAL TO
                     VALIDATION-FLAG
                  IN EDIT-ERROR-TABLE-COLUMNS
                  (5 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
42
Line Count
9
Source Line
3719
Source File
CCCC4.COB

               MOVE 1 TO REJECT-RECORD-FLAG
               MOVE INTEGRITY-LITERAL TO
                         VALIDATION-FLAG
                      IN EDIT-ERROR-TABLE-COLUMNS
                      (9 EDIT-ERROR-COLUMN-INDEX)
               MOVE INTEGRITY-LITERAL TO
                         VALIDATION-FLAG
                      IN EDIT-ERROR-TABLE-COLUMNS
                      (5 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
43
Line Count
9
Source Line
3732
Source File
CCCC4.COB

               MOVE 1 TO REJECT-RECORD-FLAG
               MOVE INTEGRITY-LITERAL TO
                         VALIDATION-FLAG
                      IN EDIT-ERROR-TABLE-COLUMNS
                      (9 EDIT-ERROR-COLUMN-INDEX)
               MOVE INTEGRITY-LITERAL TO
                         VALIDATION-FLAG
                      IN EDIT-ERROR-TABLE-COLUMNS
                      (5 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
44
Line Count
9
Source Line
3787
Source File
CCCC4.COB

           MOVE 1 TO REJECT-RECORD-FLAG
           MOVE INTEGRITY-LITERAL TO
                     VALIDATION-FLAG
                  IN EDIT-ERROR-TABLE-COLUMNS
                  (3 EDIT-ERROR-COLUMN-INDEX)
           MOVE INTEGRITY-LITERAL TO
                     VALIDATION-FLAG
                  IN EDIT-ERROR-TABLE-COLUMNS
                  (5 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
45
Line Count
9
Source Line
3445
Source File
CCCC8.COB

                   MOVE 1 TO REJECT-RECORD-FLAG
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (6 EDIT-ERROR-COLUMN-INDEX)
                   MOVE INTEGRITY-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (8 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
46
Line Count
9
Source Line
3467
Source File
CCCC8.COB

              MOVE 1 TO REJECT-RECORD-FLAG
              MOVE INTEGRITY-LITERAL TO
                      VALIDATION-FLAG
                   IN EDIT-ERROR-TABLE-COLUMNS
                   (8 EDIT-ERROR-COLUMN-INDEX)
              MOVE INTEGRITY-LITERAL TO
                      VALIDATION-FLAG
                   IN EDIT-ERROR-TABLE-COLUMNS
                   (9 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
47
Line Count
9
Source Line
3963
Source File
CCCC9.COB

               MOVE 1 TO REJECT-RECORD-FLAG
               MOVE INTEGRITY-LITERAL TO
                      VALIDATION-FLAG
                   IN EDIT-ERROR-TABLE-COLUMNS
                   (11 EDIT-ERROR-COLUMN-INDEX)
                MOVE INTEGRITY-LITERAL TO
                      VALIDATION-FLAG
                IN EDIT-ERROR-TABLE-COLUMNS
                (7 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
48
Line Count
9
Source Line
3980
Source File
CCCC9.COB

                         MOVE 1 TO REJECT-RECORD-FLAG
                         MOVE INTEGRITY-LITERAL TO
                                VALIDATION-FLAG
                             IN EDIT-ERROR-TABLE-COLUMNS
                            (10 EDIT-ERROR-COLUMN-INDEX)
                         MOVE INTEGRITY-LITERAL TO
                               VALIDATION-FLAG
                         IN EDIT-ERROR-TABLE-COLUMNS
                         (11 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
49
Line Count
9
Source Line
3996
Source File
CCCC9.COB

                     MOVE 1 TO REJECT-RECORD-FLAG
                     MOVE INTEGRITY-LITERAL TO
                            VALIDATION-FLAG
                         IN EDIT-ERROR-TABLE-COLUMNS
                         (10 EDIT-ERROR-COLUMN-INDEX)
                     MOVE INTEGRITY-LITERAL TO
                            VALIDATION-FLAG
                         IN EDIT-ERROR-TABLE-COLUMNS
                         (11 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
50
Line Count
9
Source Line
4011
Source File
CCCC9.COB

           MOVE 1 TO REJECT-RECORD-FLAG
           MOVE INTEGRITY-LITERAL TO
                  VALIDATION-FLAG
               IN EDIT-ERROR-TABLE-COLUMNS
               (12 EDIT-ERROR-COLUMN-INDEX)
           MOVE INTEGRITY-LITERAL TO
                  VALIDATION-FLAG
               IN EDIT-ERROR-TABLE-COLUMNS
               (10 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
51
Line Count
9
Source Line
4028
Source File
CCCC9.COB

           MOVE 1 TO REJECT-RECORD-FLAG
           MOVE INTEGRITY-LITERAL TO
                  VALIDATION-FLAG
               IN EDIT-ERROR-TABLE-COLUMNS
               (13 EDIT-ERROR-COLUMN-INDEX)
           MOVE INTEGRITY-LITERAL TO
                  VALIDATION-FLAG
               IN EDIT-ERROR-TABLE-COLUMNS
               (10 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
52
Line Count
9
Source Line
4045
Source File
CCCC9.COB

           MOVE 1 TO REJECT-RECORD-FLAG
           MOVE INTEGRITY-LITERAL TO
                  VALIDATION-FLAG
               IN EDIT-ERROR-TABLE-COLUMNS
               (14 EDIT-ERROR-COLUMN-INDEX)
           MOVE INTEGRITY-LITERAL TO
                  VALIDATION-FLAG
               IN EDIT-ERROR-TABLE-COLUMNS
               (10 EDIT-ERROR-COLUMN-INDEX)


Clone AbstractionParameter Count: 2Parameter Bindings

      ******************************************************************
      *  THIS NEXT SECTION COMMENTED OUT 8/95                          *
      ******************************************************************
      *        IF INCOME-1-UNKNOWN
      *     THIS REASONABLENESS CHK TO BE FOR 93-94 DATA ONLY
      *          IF RECEIVED-GROUP-B-AWARD
      *            MOVE REASONABLENESS-LITERAL
      *                    TO VALIDATION-FLAG
      *                    IN EDIT-ERROR-TABLE-COLUMNS
      *                    (11 EDIT-ERROR-COLUMN-INDEX)
      *            MOVE REASONABLENESS-LITERAL
      *                    TO VALIDATION-FLAG
      *                    IN EDIT-ERROR-TABLE-COLUMNS
      *                    (17 EDIT-ERROR-COLUMN-INDEX)
      *                    (16 EDIT-ERROR-COLUMN-INDEX)
      *                    (15 EDIT-ERROR-COLUMN-INDEX)
      *                    (14 EDIT-ERROR-COLUMN-INDEX)
      *            ADD 1 TO ERROR-COUNT (11, 3)
      *            ADD 1 TO ERROR-COUNT (17, 3)
      *            ADD 1 TO ERROR-COUNT (16, 3)
      *            ADD 1 TO ERROR-COUNT (15, 3)
      *            ADD 1 TO ERROR-COUNT (14, 3)
      *            IF AWARDS-COUNT > 0
      *                PERFORM 23499-FLAG-RES-ERR-B-AWARDS
      *                    VARYING HOLD-AWARD-INDEX
      *                    FROM 1 BY 1
      *                    UNTIL HOLD-AWARD-INDEX > AWARDS-COUNT
      *            ELSE
      *                NEXT SENTENCE
      *          ELSE
           MOVE 1 TO REJECT-RECORD-FLAG
      *            ADD 1 TO ERROR-COUNT (11, 3)
      *            ADD 1 TO ERROR-COUNT (12, 3)
      *            MOVE 1 TO REASONABLE-FLAG
           MOVE INTEGRITY-LITERAL TO VALIDATION-FLAG
                                       IN EDIT-ERROR-TABLE-COLUMNS (
                                                           [[#22ab6120]]
                                                 EDIT-ERROR-COLUMN-INDEX
                                                                   )
           MOVE INTEGRITY-LITERAL TO VALIDATION-FLAG
                                       IN EDIT-ERROR-TABLE-COLUMNS (
                                                           [[#22a68600]]
                                                 EDIT-ERROR-COLUMN-INDEX
                                                                   )
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#22ab6120]]
       25 
12[[#22ab6120]]
       9 
13[[#22ab6120]]
       9 
14[[#22ab6120]]
       2 
15[[#22ab6120]]
       2 
16[[#22ab6120]]
       2 
17[[#22ab6120]]
       18 
18[[#22ab6120]]
       8 
19[[#22ab6120]]
       8 
110[[#22ab6120]]
       8 
111[[#22ab6120]]
       8 
112[[#22ab6120]]
       7 
113[[#22ab6120]]
       5 
114[[#22ab6120]]
       7 
115[[#22ab6120]]
       9 
116[[#22ab6120]]
       9 
117[[#22ab6120]]
       7 
118[[#22ab6120]]
       7 
119[[#22ab6120]]
       5 
120[[#22ab6120]]
       5 
121[[#22ab6120]]
       3 
122[[#22ab6120]]
       9 
123[[#22ab6120]]
       6 
124[[#22ab6120]]
       6 
125[[#22ab6120]]
       14 
126[[#22ab6120]]
       13 
127[[#22ab6120]]
       12 
128[[#22ab6120]]
       10 
129[[#22ab6120]]
       11 
130[[#22ab6120]]
       11 
131[[#22ab6120]]
       11 
132[[#22ab6120]]
       11 
133[[#22ab6120]]
       11 
134[[#22ab6120]]
       11 
135[[#22ab6120]]
       7 
136[[#22ab6120]]
       14 
137[[#22ab6120]]
       6 
138[[#22ab6120]]
       18 
139[[#22ab6120]]
       10 
140[[#22ab6120]]
       7 
141[[#22ab6120]]
       9 
142[[#22ab6120]]
       18 
143[[#22ab6120]]
       6 
144[[#22ab6120]]
       8 
145[[#22ab6120]]
       9 
146[[#22ab6120]]
       7 
147[[#22ab6120]]
       7 
148[[#22ab6120]]
       8 
149[[#22ab6120]]
       8 
150[[#22ab6120]]
       8 
151[[#22ab6120]]
       7 
152[[#22ab6120]]
       9 
21[[#22a68600]]
       9 
22[[#22a68600]]
       24 
23[[#22a68600]]
       23 
24[[#22a68600]]
       22 
25[[#22a68600]]
       21 
26[[#22a68600]]
       20 
27[[#22a68600]]
       19 
28[[#22a68600]]
       12 
29[[#22a68600]]
       11 
210[[#22a68600]]
       10 
211[[#22a68600]]
       9 
212[[#22a68600]]
       8 
213[[#22a68600]]
       11 
214[[#22a68600]]
       11 
215[[#22a68600]]
       11 
216[[#22a68600]]
       10 
217[[#22a68600]]
       10 
218[[#22a68600]]
       9 
219[[#22a68600]]
       9 
220[[#22a68600]]
       6 
221[[#22a68600]]
       5 
222[[#22a68600]]
       5 
223[[#22a68600]]
       5 
224[[#22a68600]]
       8 
225[[#22a68600]]
       10 
226[[#22a68600]]
       10 
227[[#22a68600]]
       10 
228[[#22a68600]]
       11 
229[[#22a68600]]
       7 
230[[#22a68600]]
       17 
231[[#22a68600]]
       16 
232[[#22a68600]]
       15 
233[[#22a68600]]
       14 
234[[#22a68600]]
       12 
235[[#22a68600]]
       27 
236[[#22a68600]]
       9 
237[[#22a68600]]
       9 
238[[#22a68600]]
       19 
239[[#22a68600]]
       11 
240[[#22a68600]]
       11 
241[[#22a68600]]
       5 
242[[#22a68600]]
       19 
243[[#22a68600]]
       5 
244[[#22a68600]]
       9 
245[[#22a68600]]
       24 
246[[#22a68600]]
       8 
247[[#22a68600]]
       8 
248[[#22a68600]]
       12 
249[[#22a68600]]
       10 
250[[#22a68600]]
       9 
251[[#22a68600]]
       9 
252[[#22a68600]]
       23