| Previous CloneSet | Next CloneSet | Back to Main Report |
| Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
|---|---|---|---|---|
| 9 | 52 | 2 | 0.958 | imperative_statement_list[3] |
| Clone Abstraction | Parameter Bindings |
| Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
|---|---|---|---|
| 1 | 9 | 4178 | CCCC1.COB |
| 2 | 9 | 4203 | CCCC1.COB |
| 3 | 9 | 4225 | CCCC1.COB |
| 4 | 9 | 4242 | CCCC1.COB |
| 5 | 9 | 4255 | CCCC1.COB |
| 6 | 9 | 4277 | CCCC1.COB |
| 7 | 9 | 4290 | CCCC1.COB |
| 8 | 9 | 4303 | CCCC1.COB |
| 9 | 9 | 4327 | CCCC1.COB |
| 10 | 9 | 4348 | CCCC1.COB |
| 11 | 9 | 4369 | CCCC1.COB |
| 12 | 9 | 4391 | CCCC1.COB |
| 13 | 9 | 4404 | CCCC1.COB |
| 14 | 9 | 4426 | CCCC1.COB |
| 15 | 9 | 4439 | CCCC1.COB |
| 16 | 9 | 4455 | CCCC1.COB |
| 17 | 9 | 4912 | CCCC10.COB |
| 18 | 9 | 4955 | CCCC10.COB |
| 19 | 9 | 4969 | CCCC10.COB |
| 20 | 12 | 5062 | CCCC10.COB |
| 21 | 9 | 5121 | CCCC10.COB |
| 22 | 9 | 5168 | CCCC10.COB |
| 23 | 9 | 5368 | CCCC10.COB |
| 24 | 9 | 5415 | CCCC10.COB |
| 25 | 9 | 4118 | CCCC11.COB |
| 26 | 9 | 4145 | CCCC11.COB |
| 27 | 9 | 4172 | CCCC11.COB |
| 28 | 9 | 4199 | CCCC11.COB |
| 29 | 9 | 4462 | CCCC2.COB |
| 30 | 9 | 4478 | CCCC2.COB |
| 31 | 9 | 4494 | CCCC2.COB |
| 32 | 9 | 4511 | CCCC2.COB |
| 33 | 9 | 4541 | CCCC2.COB |
| 34 | 9 | 4557 | CCCC2.COB |
| 35 | 9 | 4573 | CCCC2.COB |
| 36 | 9 | 4589 | CCCC2.COB |
| 37 | 9 | 4605 | CCCC2.COB |
| 38 | 9 | 4621 | CCCC2.COB |
| 39 | 9 | 4636 | CCCC2.COB |
| 40 | 9 | 3688 | CCCC4.COB |
| 41 | 9 | 3703 | CCCC4.COB |
| 42 | 9 | 3719 | CCCC4.COB |
| 43 | 9 | 3732 | CCCC4.COB |
| 44 | 9 | 3787 | CCCC4.COB |
| 45 | 9 | 3445 | CCCC8.COB |
| 46 | 9 | 3467 | CCCC8.COB |
| 47 | 9 | 3963 | CCCC9.COB |
| 48 | 9 | 3980 | CCCC9.COB |
| 49 | 9 | 3996 | CCCC9.COB |
| 50 | 9 | 4011 | CCCC9.COB |
| 51 | 9 | 4028 | CCCC9.COB |
| 52 | 9 | 4045 | CCCC9.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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
******************************************************************
* 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)
|
| ||||
******************************************************************
* 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)
|
| ||||
******************************************************************
* 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)
|
| ||||
******************************************************************
* 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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| ||||
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)
|
| |||
******************************************************************
* 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 Index | Clone Instance | Parameter Name | Value |
|---|---|---|---|
| 1 | 1 | [[#22ab6120]] | 25 |
| 1 | 2 | [[#22ab6120]] | 9 |
| 1 | 3 | [[#22ab6120]] | 9 |
| 1 | 4 | [[#22ab6120]] | 2 |
| 1 | 5 | [[#22ab6120]] | 2 |
| 1 | 6 | [[#22ab6120]] | 2 |
| 1 | 7 | [[#22ab6120]] | 18 |
| 1 | 8 | [[#22ab6120]] | 8 |
| 1 | 9 | [[#22ab6120]] | 8 |
| 1 | 10 | [[#22ab6120]] | 8 |
| 1 | 11 | [[#22ab6120]] | 8 |
| 1 | 12 | [[#22ab6120]] | 7 |
| 1 | 13 | [[#22ab6120]] | 5 |
| 1 | 14 | [[#22ab6120]] | 7 |
| 1 | 15 | [[#22ab6120]] | 9 |
| 1 | 16 | [[#22ab6120]] | 9 |
| 1 | 17 | [[#22ab6120]] | 7 |
| 1 | 18 | [[#22ab6120]] | 7 |
| 1 | 19 | [[#22ab6120]] | 5 |
| 1 | 20 | [[#22ab6120]] | 5 |
| 1 | 21 | [[#22ab6120]] | 3 |
| 1 | 22 | [[#22ab6120]] | 9 |
| 1 | 23 | [[#22ab6120]] | 6 |
| 1 | 24 | [[#22ab6120]] | 6 |
| 1 | 25 | [[#22ab6120]] | 14 |
| 1 | 26 | [[#22ab6120]] | 13 |
| 1 | 27 | [[#22ab6120]] | 12 |
| 1 | 28 | [[#22ab6120]] | 10 |
| 1 | 29 | [[#22ab6120]] | 11 |
| 1 | 30 | [[#22ab6120]] | 11 |
| 1 | 31 | [[#22ab6120]] | 11 |
| 1 | 32 | [[#22ab6120]] | 11 |
| 1 | 33 | [[#22ab6120]] | 11 |
| 1 | 34 | [[#22ab6120]] | 11 |
| 1 | 35 | [[#22ab6120]] | 7 |
| 1 | 36 | [[#22ab6120]] | 14 |
| 1 | 37 | [[#22ab6120]] | 6 |
| 1 | 38 | [[#22ab6120]] | 18 |
| 1 | 39 | [[#22ab6120]] | 10 |
| 1 | 40 | [[#22ab6120]] | 7 |
| 1 | 41 | [[#22ab6120]] | 9 |
| 1 | 42 | [[#22ab6120]] | 18 |
| 1 | 43 | [[#22ab6120]] | 6 |
| 1 | 44 | [[#22ab6120]] | 8 |
| 1 | 45 | [[#22ab6120]] | 9 |
| 1 | 46 | [[#22ab6120]] | 7 |
| 1 | 47 | [[#22ab6120]] | 7 |
| 1 | 48 | [[#22ab6120]] | 8 |
| 1 | 49 | [[#22ab6120]] | 8 |
| 1 | 50 | [[#22ab6120]] | 8 |
| 1 | 51 | [[#22ab6120]] | 7 |
| 1 | 52 | [[#22ab6120]] | 9 |
| 2 | 1 | [[#22a68600]] | 9 |
| 2 | 2 | [[#22a68600]] | 24 |
| 2 | 3 | [[#22a68600]] | 23 |
| 2 | 4 | [[#22a68600]] | 22 |
| 2 | 5 | [[#22a68600]] | 21 |
| 2 | 6 | [[#22a68600]] | 20 |
| 2 | 7 | [[#22a68600]] | 19 |
| 2 | 8 | [[#22a68600]] | 12 |
| 2 | 9 | [[#22a68600]] | 11 |
| 2 | 10 | [[#22a68600]] | 10 |
| 2 | 11 | [[#22a68600]] | 9 |
| 2 | 12 | [[#22a68600]] | 8 |
| 2 | 13 | [[#22a68600]] | 11 |
| 2 | 14 | [[#22a68600]] | 11 |
| 2 | 15 | [[#22a68600]] | 11 |
| 2 | 16 | [[#22a68600]] | 10 |
| 2 | 17 | [[#22a68600]] | 10 |
| 2 | 18 | [[#22a68600]] | 9 |
| 2 | 19 | [[#22a68600]] | 9 |
| 2 | 20 | [[#22a68600]] | 6 |
| 2 | 21 | [[#22a68600]] | 5 |
| 2 | 22 | [[#22a68600]] | 5 |
| 2 | 23 | [[#22a68600]] | 5 |
| 2 | 24 | [[#22a68600]] | 8 |
| 2 | 25 | [[#22a68600]] | 10 |
| 2 | 26 | [[#22a68600]] | 10 |
| 2 | 27 | [[#22a68600]] | 10 |
| 2 | 28 | [[#22a68600]] | 11 |
| 2 | 29 | [[#22a68600]] | 7 |
| 2 | 30 | [[#22a68600]] | 17 |
| 2 | 31 | [[#22a68600]] | 16 |
| 2 | 32 | [[#22a68600]] | 15 |
| 2 | 33 | [[#22a68600]] | 14 |
| 2 | 34 | [[#22a68600]] | 12 |
| 2 | 35 | [[#22a68600]] | 27 |
| 2 | 36 | [[#22a68600]] | 9 |
| 2 | 37 | [[#22a68600]] | 9 |
| 2 | 38 | [[#22a68600]] | 19 |
| 2 | 39 | [[#22a68600]] | 11 |
| 2 | 40 | [[#22a68600]] | 11 |
| 2 | 41 | [[#22a68600]] | 5 |
| 2 | 42 | [[#22a68600]] | 19 |
| 2 | 43 | [[#22a68600]] | 5 |
| 2 | 44 | [[#22a68600]] | 9 |
| 2 | 45 | [[#22a68600]] | 24 |
| 2 | 46 | [[#22a68600]] | 8 |
| 2 | 47 | [[#22a68600]] | 8 |
| 2 | 48 | [[#22a68600]] | 12 |
| 2 | 49 | [[#22a68600]] | 10 |
| 2 | 50 | [[#22a68600]] | 9 |
| 2 | 51 | [[#22a68600]] | 9 |
| 2 | 52 | [[#22a68600]] | 23 |