COBOL Style Checker Report for file C:/users/lakers/styletest.cob Problem found at Line 2 Column 8 File C:/users/lakers/styletest.cob Rule:CHECK-IDENTIFICATION-DIVISION-HAS-COMMENT Rule Group:Documentation Severity:4 IDENTIFICATION DIVISION has neither a leading comment nor REMARKS paragraph content. IDENTIFICATION DIVISION. PROGRAM-ID. FOO. Problem found at Line 107 Column 8 File C:/users/lakers/styletest.cob Rule:CHECK-IDENTIFICATION-DIVISION-HAS-COMMENT Rule Group:Documentation Severity:4 IDENTIFICATION DIVISION has neither a leading comment nor REMARKS paragraph content. IDENTIFICATION DIVISION. PROGRAM-ID. FOO2. Problem found at Line 107 Column 8 File C:/users/lakers/styletest.cob Rule:CHECK-AUTHOR-DECLARATION-IS-PRESENT Rule Group:Documentation Severity:5 No AUTHOR declaration found in IDENTIFICATION DIVISION IDENTIFICATION DIVISION. PROGRAM-ID. FOO2. Problem found at Line 46 Column 8 File C:/users/lakers/styletest.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment READ-STATEMENTS-1. READ A READ A END-READ. Problem found at Line 103 Column 8 File C:/users/lakers/styletest.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment TIME-TO-EXIT. EXIT. Problem found at Line 113 Column 8 File C:/users/lakers/styletest.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment LONEPARAGRAPH. EXIT. Problem found at Line 9 Column 16 File C:/users/lakers/styletest.cob Rule:CHECK-NUMERIC-DECLARATIONS-HAVE-VALUE-CLAUSES Rule Group:Data-declarations Severity:3 Numeric data declaration should have VALUE clause. 05 SW-KEY PIC S9 COMP-3. 88 NO-KEY-PASSED VALUE ZERO. 88 CONTRACT-KEY-ONLY VALUE +1. 88 PLAN-KEY-ONLY VALUE +2. 88 BOTH-KEYS-PASSED VALUE +3. Problem found at Line 14 Column 16 File C:/users/lakers/styletest.cob Rule:CHECK-NUMERIC-DECLARATIONS-HAVE-VALUE-CLAUSES Rule Group:Data-declarations Severity:3 Numeric data declaration should have VALUE clause. 05 SW-LOOP PIC S9 COMP-3. 88 BEGIN-LOOP VALUE +0. 88 LOOP-FINISHED VALUE +1. Problem found at Line 17 Column 16 File C:/users/lakers/styletest.cob Rule:CHECK-NUMERIC-DECLARATIONS-HAVE-VALUE-CLAUSES Rule Group:Data-declarations Severity:3 Numeric data declaration should have VALUE clause. 05 SW-CONTRIB-TYPE PIC S9 COMP-3. 88 CONTRIB-TYPE-NOT-FOUND VALUE +0. 88 CONTRIB-TYPE-FOUND VALUE +1. Problem found at Line 20 Column 16 File C:/users/lakers/styletest.cob Rule:CHECK-NUMERIC-DECLARATIONS-HAVE-VALUE-CLAUSES Rule Group:Data-declarations Severity:3 Numeric data declaration should have VALUE clause. 05 SW-CONTRIB-ID PIC S9 COMP-3. 88 CONTRIB-ID-NOT-FOUND VALUE +0. 88 CONTRIB-ID-FOUND VALUE +1. Problem found at Line 73 Column 16 File C:/users/lakers/styletest.cob Rule:FIND-NEGATED-88-VARIABLES Rule Group:Procedure-Division Severity:4 The 88 condition variable BEGIN-LOOP appears in a negated form BEGIN-LOOP IS NOT NEGATIVE Problem found at Line 79 Column 33 File C:/users/lakers/styletest.cob Rule:FIND-NEGATED-88-VARIABLES Rule Group:Procedure-Division Severity:4 The 88 condition variable BEGIN-LOOP appears in a negated form NOT BEGIN-LOOP Problem found at Line 83 Column 33 File C:/users/lakers/styletest.cob Rule:FIND-NEGATED-88-VARIABLES Rule Group:Procedure-Division Severity:4 The 88 condition variable BEGIN-LOOP appears in a negated form NOT BEGIN-LOOP THROUGH LOOP-FINISHED Problem found at Line 83 Column 33 File C:/users/lakers/styletest.cob Rule:FIND-NEGATED-88-VARIABLES Rule Group:Procedure-Division Severity:4 The 88 condition variable LOOP-FINISHED appears in a negated form NOT BEGIN-LOOP THROUGH LOOP-FINISHED Problem found at Line 87 Column 22 File C:/users/lakers/styletest.cob Rule:FIND-NEGATED-88-VARIABLES Rule Group:Procedure-Division Severity:4 The 88 condition variable BEGIN-LOOP appears in a negated form NOT BEGIN-LOOP Problem found at Line 90 Column 16 File C:/users/lakers/styletest.cob Rule:FIND-NEGATED-88-VARIABLES Rule Group:Procedure-Division Severity:4 The 88 condition variable BEGIN-LOOP appears in a negated form A NOT BEGIN-LOOP Problem found at Line 91 Column 16 File C:/users/lakers/styletest.cob Rule:FIND-NEGATED-88-VARIABLES Rule Group:Procedure-Division Severity:4 The 88 condition variable BEGIN-LOOP appears in a negated form A IS NOT BEGIN-LOOP Problem found at Line 102 Column 16 File C:/users/lakers/styletest.cob Rule:FIND-NEGATED-88-VARIABLES Rule Group:Procedure-Division Severity:4 The 88 condition variable LOOP-FINISHED appears in a negated form NOT LOOP-FINISHED Problem found at Line 59 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 EVALUATE without an END-EVALUATE * Check for END-EVALUATE on EVALUATE. EVALUATE A IS > B WHEN TRUE ADD B TO A GIVING B WHEN OTHER ADD 16 TO ZERO GIVING RETURN-CODE Problem found at Line 61 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 EVALUATE without an END-EVALUATE EVALUATE A IS > B WHEN TRUE ADD B TO A GIVING B EVALUATE A IS > B WHEN TRUE ADD B TO A GIVING B END-EVALUATE EVALUATE A IS > B WHEN TRUE ADD B TO A GIVING B WHEN OTHER ADD 1016 TO ZERO GIVING RETURN-CODE END-EVALUATE Problem found at Line 72 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF BEGIN-LOOP IS NEGATIVE ADD 1 TO A GIVING A IF BEGIN-LOOP IS NOT NEGATIVE ADD 1 TO A GIVING A IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF NOT LOOP-FINISHED AND A < B ADD 1 TO A GIVING A END-IF Problem found at Line 73 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF BEGIN-LOOP IS NOT NEGATIVE ADD 1 TO A GIVING A IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF NOT LOOP-FINISHED AND A < B ADD 1 TO A GIVING A END-IF Problem found at Line 74 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF NOT LOOP-FINISHED AND A < B ADD 1 TO A GIVING A END-IF Problem found at Line 75 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF NOT LOOP-FINISHED AND A < B ADD 1 TO A GIVING A END-IF Problem found at Line 37 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 24 TO +987654321011 GIVING A Suggest replacing: ADD 24 TO +987654321011 GIVING A with: ADD 24 TO +987654321011 GIVING A END-ADD Problem found at Line 38 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 4.6 TO .5 GIVING A Suggest replacing: ADD 4.6 TO .5 GIVING A with: ADD 4.6 TO .5 GIVING A END-ADD Problem found at Line 39 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO 0 GIVING A Suggest replacing: ADD 1 TO 0 GIVING A with: ADD 1 TO 0 GIVING A END-ADD Problem found at Line 40 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 98765432101 TO 0 GIVING A Suggest replacing: ADD 98765432101 TO 0 GIVING A with: ADD 98765432101 TO 0 GIVING A END-ADD Problem found at Line 41 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1.0 TO 0.0 GIVING A Suggest replacing: ADD 1.0 TO 0.0 GIVING A with: ADD 1.0 TO 0.0 GIVING A END-ADD Problem found at Line 42 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD -1.0 TO -0.0 GIVING A Suggest replacing: ADD -1.0 TO -0.0 GIVING A with: ADD -1.0 TO -0.0 GIVING A END-ADD Problem found at Line 43 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD -23424 TO -987654321011 GIVING A Suggest replacing: ADD -23424 TO -987654321011 GIVING A with: ADD -23424 TO -987654321011 GIVING A END-ADD Problem found at Line 44 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD +224 TO +1 GIVING A Suggest replacing: ADD +224 TO +1 GIVING A with: ADD +224 TO +1 GIVING A END-ADD Problem found at Line 45 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD +0 TO -9.6 GIVING A Suggest replacing: ADD +0 TO -9.6 GIVING A with: ADD +0 TO -9.6 GIVING A END-ADD Problem found at Line 47 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A Suggest replacing: READ A with: READ A END-READ Problem found at Line 51 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A NEXT RECORD Suggest replacing: READ A NEXT RECORD with: READ A NEXT RECORD END-READ Problem found at Line 53 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A INTO B Suggest replacing: READ A INTO B with: READ A INTO B END-READ Problem found at Line 55 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A NEXT RECORD INTO B Suggest replacing: READ A NEXT RECORD INTO B with: READ A NEXT RECORD INTO B END-READ Problem found at Line 59 Column 41 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD B TO A GIVING B Suggest replacing: ADD B TO A GIVING B with: ADD B TO A GIVING B END-ADD Problem found at Line 60 Column 27 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 16 TO ZERO GIVING RETURN-CODE Suggest replacing: ADD 16 TO ZERO GIVING RETURN-CODE with: ADD 16 TO ZERO GIVING RETURN-CODE END-ADD Problem found at Line 61 Column 41 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD B TO A GIVING B Suggest replacing: ADD B TO A GIVING B with: ADD B TO A GIVING B END-ADD Problem found at Line 62 Column 41 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD B TO A GIVING B Suggest replacing: ADD B TO A GIVING B with: ADD B TO A GIVING B END-ADD Problem found at Line 64 Column 41 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD B TO A GIVING B Suggest replacing: ADD B TO A GIVING B with: ADD B TO A GIVING B END-ADD Problem found at Line 65 Column 27 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1016 TO ZERO GIVING RETURN-CODE Suggest replacing: ADD 1016 TO ZERO GIVING RETURN-CODE with: ADD 1016 TO ZERO GIVING RETURN-CODE END-ADD Problem found at Line 72 Column 39 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 73 Column 43 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 74 Column 36 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 75 Column 43 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 76 Column 13 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED Suggest replacing: ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED with: ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED END-ADD Problem found at Line 77 Column 44 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 79 Column 48 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 82 Column 15 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 84 Column 15 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 85 Column 43 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 87 Column 47 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 89 Column 32 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 90 Column 33 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 91 Column 36 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 92 Column 32 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 93 Column 36 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 94 Column 39 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 95 Column 32 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 96 Column 36 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 97 Column 39 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 98 Column 36 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 99 Column 40 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 100 Column 43 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 101 Column 41 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 102 Column 44 File C:/users/lakers/styletest.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 103 Column 8 File C:/users/lakers/styletest.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT TIME-TO-EXIT. EXIT. Problem found at Line 113 Column 8 File C:/users/lakers/styletest.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT LONEPARAGRAPH. EXIT. Problem found at Line 102 Column 13 File C:/users/lakers/styletest.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF NOT LOOP-FINISHED AND A < B ADD 1 TO A GIVING A END-IF Suggest replacing: IF NOT LOOP-FINISHED AND A < B ADD 1 TO A GIVING A END-IF with: EVALUATE TRUE WHEN NOT LOOP-FINISHED AND A < B ADD 1 TO A GIVING A WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 61 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE A IS > B WHEN TRUE ADD B TO A GIVING B EVALUATE A IS > B WHEN TRUE ADD B TO A GIVING B END-EVALUATE EVALUATE A IS > B WHEN TRUE ADD B TO A GIVING B WHEN OTHER ADD 1016 TO ZERO GIVING RETURN-CODE END-EVALUATE Problem found at Line 62 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE A IS > B WHEN TRUE ADD B TO A GIVING B END-EVALUATE Problem found at Line 77 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE Problem found at Line 79 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE Problem found at Line 81 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE Problem found at Line 83 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE Problem found at Line 85 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE Problem found at Line 87 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE Problem found at Line 72 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP IS NEGATIVE ADD 1 TO A GIVING A IF BEGIN-LOOP IS NOT NEGATIVE ADD 1 TO A GIVING A IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF NOT LOOP-FINISHED AND A < B ADD 1 TO A GIVING A END-IF Problem found at Line 73 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP IS NOT NEGATIVE ADD 1 TO A GIVING A IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF NOT LOOP-FINISHED AND A < B ADD 1 TO A GIVING A END-IF Problem found at Line 74 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF NOT LOOP-FINISHED AND A < B ADD 1 TO A GIVING A END-IF Problem found at Line 75 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF NOT LOOP-FINISHED AND A < B ADD 1 TO A GIVING A END-IF Problem found at Line 89 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF Problem found at Line 90 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF Problem found at Line 91 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF Problem found at Line 92 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF Problem found at Line 93 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF Problem found at Line 94 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF Problem found at Line 95 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF Problem found at Line 96 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF Problem found at Line 97 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF Problem found at Line 98 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF Problem found at Line 99 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF Problem found at Line 100 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF Problem found at Line 101 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF Problem found at Line 102 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF NOT LOOP-FINISHED AND A < B ADD 1 TO A GIVING A END-IF Problem found at Line 47 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A Problem found at Line 48 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A END-READ Problem found at Line 51 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A NEXT RECORD Problem found at Line 52 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A NEXT RECORD END-READ Problem found at Line 53 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A INTO B Problem found at Line 54 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A INTO B END-READ Problem found at Line 55 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A NEXT RECORD INTO B Problem found at Line 56 Column 13 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A NEXT RECORD INTO B END-READ Problem found at Line 37 Column 17 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 24 Problem found at Line 37 Column 23 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value +987654321011 Problem found at Line 38 Column 17 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 4.6 Problem found at Line 38 Column 24 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value .5 Problem found at Line 40 Column 17 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 98765432101 Problem found at Line 42 Column 17 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value -1.0 Problem found at Line 43 Column 17 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value -23424 Problem found at Line 43 Column 27 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value -987654321011 Problem found at Line 44 Column 17 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value +224 Problem found at Line 45 Column 23 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value -9.6 Problem found at Line 60 Column 31 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 16 Problem found at Line 65 Column 31 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 1016 Problem found at Line 92 Column 29 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 93 Column 33 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 94 Column 36 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 95 Column 29 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 96 Column 33 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 97 Column 36 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 98 Column 33 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 99 Column 37 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 100 Column 40 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 101 Column 38 File C:/users/lakers/styletest.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 30 Column 16 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program T4 Problem found at Line 27 Column 16 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program T1 Problem found at Line 29 Column 16 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program T3 Problem found at Line 28 Column 16 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program T2 Problem found at Line 26 Column 12 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program SIM-TITLE Problem found at Line 19 Column 24 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program CONTRIB-TYPE-FOUND Problem found at Line 18 Column 24 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program CONTRIB-TYPE-NOT-FOUND Problem found at Line 17 Column 20 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program SW-CONTRIB-TYPE Problem found at Line 12 Column 24 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program PLAN-KEY-ONLY Problem found at Line 10 Column 24 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program NO-KEY-PASSED Problem found at Line 11 Column 24 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program CONTRACT-KEY-ONLY Problem found at Line 13 Column 24 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program BOTH-KEYS-PASSED Problem found at Line 9 Column 20 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program SW-KEY Problem found at Line 21 Column 24 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program CONTRIB-ID-NOT-FOUND Problem found at Line 22 Column 24 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program CONTRIB-ID-FOUND Problem found at Line 20 Column 20 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program SW-CONTRIB-ID Problem found at Line 14 Column 20 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program SW-LOOP Problem found at Line 8 Column 16 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program SWITCHES Problem found at Line 7 Column 12 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program WORK-AREAS Problem found at Line 31 Column 12 File C:/users/lakers/styletest.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program SIM-COPYRIGHT End of COBOL Style Checker Report for file C:/users/lakers/styletest.cob -------------------------------------------------------------------------------- COBOL Style Checker Report for file C:/users/lakers/styletest2.cob Problem found at Line 2 Column 8 File C:/users/lakers/styletest2.cob Rule:CHECK-IDENTIFICATION-DIVISION-HAS-COMMENT Rule Group:Documentation Severity:4 IDENTIFICATION DIVISION has neither a leading comment nor REMARKS paragraph content. IDENTIFICATION DIVISION. PROGRAM-ID. FOO. Problem found at Line 154 Column 8 File C:/users/lakers/styletest2.cob Rule:CHECK-IDENTIFICATION-DIVISION-HAS-COMMENT Rule Group:Documentation Severity:4 IDENTIFICATION DIVISION has neither a leading comment nor REMARKS paragraph content. IDENTIFICATION DIVISION. PROGRAM-ID. FOO2. Problem found at Line 154 Column 8 File C:/users/lakers/styletest2.cob Rule:CHECK-AUTHOR-DECLARATION-IS-PRESENT Rule Group:Documentation Severity:5 No AUTHOR declaration found in IDENTIFICATION DIVISION IDENTIFICATION DIVISION. PROGRAM-ID. FOO2. Problem found at Line 36 Column 8 File C:/users/lakers/styletest2.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment ARDB-PROC SECTION. USE FOR DEBUGGING ON ALL PROCEDURES. READ-STATEMENTS-3. ... Problem found at Line 114 Column 8 File C:/users/lakers/styletest2.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment LITTLE SECTION. IF BEGIN-LOOP IS NEGATIVE ADD 1 TO A ... Problem found at Line 161 Column 8 File C:/users/lakers/styletest2.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment READ-STATEMENTS-4 SECTION. READ-STATEMENTS-3. EXIT. Problem found at Line 38 Column 8 File C:/users/lakers/styletest2.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment READ-STATEMENTS-3. READ A. Problem found at Line 40 Column 8 File C:/users/lakers/styletest2.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment ARDB-STEP-1. Problem found at Line 41 Column 8 File C:/users/lakers/styletest2.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment READ-STATEMENTS-4. IF READY-TRACE THEN DISPLAY DEBUG-NAME. Problem found at Line 83 Column 8 File C:/users/lakers/styletest2.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment READ-STATEMENTS-3. READ A INTO B. Problem found at Line 85 Column 8 File C:/users/lakers/styletest2.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment READ-STATEMENTS-4. READ A INTO B END-READ. Problem found at Line 87 Column 8 File C:/users/lakers/styletest2.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment READ-STATEMENTS-5. READ A NEXT RECORD INTO B. Problem found at Line 89 Column 8 File C:/users/lakers/styletest2.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment READ-STATEMENTS-5. READ A NEXT RECORD INTO B END-READ. Problem found at Line 150 Column 8 File C:/users/lakers/styletest2.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment TIME-TO-EXIT. EXIT. Problem found at Line 162 Column 8 File C:/users/lakers/styletest2.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment READ-STATEMENTS-3. EXIT. Problem found at Line 9 Column 16 File C:/users/lakers/styletest2.cob Rule:CHECK-NUMERIC-DECLARATIONS-HAVE-VALUE-CLAUSES Rule Group:Data-declarations Severity:3 Numeric data declaration should have VALUE clause. 05 SW-KEY PIC S9 COMP-3. 88 NO-KEY-PASSED VALUE ZERO. 88 CONTRACT-KEY-ONLY VALUE +1. 88 PLAN-KEY-ONLY VALUE +2. 88 BOTH-KEYS-PASSED VALUE +3. Problem found at Line 14 Column 16 File C:/users/lakers/styletest2.cob Rule:CHECK-NUMERIC-DECLARATIONS-HAVE-VALUE-CLAUSES Rule Group:Data-declarations Severity:3 Numeric data declaration should have VALUE clause. 05 SW-LOOP PIC S9 COMP-3. 88 BEGIN-LOOP VALUE +0. 88 LOOP-FINISHED VALUE +1. Problem found at Line 17 Column 16 File C:/users/lakers/styletest2.cob Rule:CHECK-NUMERIC-DECLARATIONS-HAVE-VALUE-CLAUSES Rule Group:Data-declarations Severity:3 Numeric data declaration should have VALUE clause. 05 SW-CONTRIB-TYPE PIC S9 COMP-3. 88 CONTRIB-TYPE-NOT-FOUND VALUE +0. 88 CONTRIB-TYPE-FOUND VALUE +1. Problem found at Line 20 Column 16 File C:/users/lakers/styletest2.cob Rule:CHECK-NUMERIC-DECLARATIONS-HAVE-VALUE-CLAUSES Rule Group:Data-declarations Severity:3 Numeric data declaration should have VALUE clause. 05 SW-CONTRIB-ID PIC S9 COMP-3. 88 CONTRIB-ID-NOT-FOUND VALUE +0. 88 CONTRIB-ID-FOUND VALUE +1. Problem found at Line 116 Column 16 File C:/users/lakers/styletest2.cob Rule:FIND-NEGATED-88-VARIABLES Rule Group:Procedure-Division Severity:4 The 88 condition variable BEGIN-LOOP appears in a negated form BEGIN-LOOP IS NOT NEGATIVE Problem found at Line 125 Column 33 File C:/users/lakers/styletest2.cob Rule:FIND-NEGATED-88-VARIABLES Rule Group:Procedure-Division Severity:4 The 88 condition variable BEGIN-LOOP appears in a negated form NOT BEGIN-LOOP Problem found at Line 129 Column 33 File C:/users/lakers/styletest2.cob Rule:FIND-NEGATED-88-VARIABLES Rule Group:Procedure-Division Severity:4 The 88 condition variable BEGIN-LOOP appears in a negated form NOT BEGIN-LOOP THROUGH LOOP-FINISHED Problem found at Line 129 Column 33 File C:/users/lakers/styletest2.cob Rule:FIND-NEGATED-88-VARIABLES Rule Group:Procedure-Division Severity:4 The 88 condition variable LOOP-FINISHED appears in a negated form NOT BEGIN-LOOP THROUGH LOOP-FINISHED Problem found at Line 133 Column 22 File C:/users/lakers/styletest2.cob Rule:FIND-NEGATED-88-VARIABLES Rule Group:Procedure-Division Severity:4 The 88 condition variable BEGIN-LOOP appears in a negated form NOT BEGIN-LOOP Problem found at Line 136 Column 16 File C:/users/lakers/styletest2.cob Rule:FIND-NEGATED-88-VARIABLES Rule Group:Procedure-Division Severity:4 The 88 condition variable BEGIN-LOOP appears in a negated form A NOT BEGIN-LOOP Problem found at Line 137 Column 16 File C:/users/lakers/styletest2.cob Rule:FIND-NEGATED-88-VARIABLES Rule Group:Procedure-Division Severity:4 The 88 condition variable BEGIN-LOOP appears in a negated form A IS NOT BEGIN-LOOP Problem found at Line 149 Column 16 File C:/users/lakers/styletest2.cob Rule:FIND-NEGATED-88-VARIABLES Rule Group:Procedure-Division Severity:4 The 88 condition variable LOOP-FINISHED appears in a negated form NOT LOOP-FINISHED Problem found at Line 42 Column 12 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF READY-TRACE THEN DISPLAY DEBUG-NAME Problem found at Line 66 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM * PERFORM 88-VARIABLE-TESTS. * PERFORM EVALUATE-STATEMENTS 5 TIMES. PERFORM NEXT-PERFORMS THROUGH READ-STATEMENTS-1 Problem found at Line 67 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM READ-STATEMENTS-3 THRU READ-STATEMENTS-5 Problem found at Line 93 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 EVALUATE without an END-EVALUATE * Check for END-EVALUATE on EVALUATE. EVALUATE A IS > B WHEN TRUE ADD B TO A GIVING B WHEN OTHER ADD 16 TO ZERO GIVING RETURN-CODE Problem found at Line 95 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 EVALUATE without an END-EVALUATE EVALUATE A IS > B WHEN TRUE ADD B TO A GIVING B EVALUATE A IS > B WHEN TRUE ADD B TO A GIVING B END-EVALUATE EVALUATE A IS > B WHEN TRUE ADD B TO A GIVING B WHEN OTHER ADD 1016 TO ZERO GIVING RETURN-CODE END-EVALUATE Problem found at Line 115 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF BEGIN-LOOP IS NEGATIVE ADD 1 TO A GIVING A IF BEGIN-LOOP IS NOT NEGATIVE ADD 1 TO A GIVING A IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP OR LOOP-FINISHED ADD 1 TO A GIVING A END-IF Problem found at Line 116 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF BEGIN-LOOP IS NOT NEGATIVE ADD 1 TO A GIVING A IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP OR LOOP-FINISHED ADD 1 TO A GIVING A END-IF Problem found at Line 117 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP OR LOOP-FINISHED ADD 1 TO A GIVING A END-IF Problem found at Line 118 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP OR LOOP-FINISHED ADD 1 TO A GIVING A END-IF Problem found at Line 120 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP OR LOOP-FINISHED ADD 1 TO A GIVING A END-IF Problem found at Line 121 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP OR LOOP-FINISHED ADD 1 TO A GIVING A END-IF Problem found at Line 39 Column 12 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A Suggest replacing: READ A with: READ A END-READ Problem found at Line 51 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A Suggest replacing: READ A with: READ A END-READ Problem found at Line 55 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 24 TO +987654321011 GIVING A Suggest replacing: ADD 24 TO +987654321011 GIVING A with: ADD 24 TO +987654321011 GIVING A END-ADD Problem found at Line 56 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 4.6 TO .5 GIVING A Suggest replacing: ADD 4.6 TO .5 GIVING A with: ADD 4.6 TO .5 GIVING A END-ADD Problem found at Line 57 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO 0 GIVING A Suggest replacing: ADD 1 TO 0 GIVING A with: ADD 1 TO 0 GIVING A END-ADD Problem found at Line 58 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 98765432101 TO 0 GIVING A Suggest replacing: ADD 98765432101 TO 0 GIVING A with: ADD 98765432101 TO 0 GIVING A END-ADD Problem found at Line 59 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1.0 TO 0.0 GIVING A Suggest replacing: ADD 1.0 TO 0.0 GIVING A with: ADD 1.0 TO 0.0 GIVING A END-ADD Problem found at Line 60 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD -1.0 TO -0.0 GIVING A Suggest replacing: ADD -1.0 TO -0.0 GIVING A with: ADD -1.0 TO -0.0 GIVING A END-ADD Problem found at Line 61 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD -23424 TO -987654321011 GIVING A Suggest replacing: ADD -23424 TO -987654321011 GIVING A with: ADD -23424 TO -987654321011 GIVING A END-ADD Problem found at Line 62 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD +224 TO +1 GIVING A Suggest replacing: ADD +224 TO +1 GIVING A with: ADD +224 TO +1 GIVING A END-ADD Problem found at Line 63 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD +0 TO -9.6 GIVING A Suggest replacing: ADD +0 TO -9.6 GIVING A with: ADD +0 TO -9.6 GIVING A END-ADD Problem found at Line 77 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A Suggest replacing: READ A with: READ A END-READ Problem found at Line 81 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A NEXT RECORD Suggest replacing: READ A NEXT RECORD with: READ A NEXT RECORD END-READ Problem found at Line 84 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A INTO B Suggest replacing: READ A INTO B with: READ A INTO B END-READ Problem found at Line 88 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A NEXT RECORD INTO B Suggest replacing: READ A NEXT RECORD INTO B with: READ A NEXT RECORD INTO B END-READ Problem found at Line 93 Column 41 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD B TO A GIVING B Suggest replacing: ADD B TO A GIVING B with: ADD B TO A GIVING B END-ADD Problem found at Line 94 Column 27 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 16 TO ZERO GIVING RETURN-CODE Suggest replacing: ADD 16 TO ZERO GIVING RETURN-CODE with: ADD 16 TO ZERO GIVING RETURN-CODE END-ADD Problem found at Line 95 Column 41 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD B TO A GIVING B Suggest replacing: ADD B TO A GIVING B with: ADD B TO A GIVING B END-ADD Problem found at Line 96 Column 41 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD B TO A GIVING B Suggest replacing: ADD B TO A GIVING B with: ADD B TO A GIVING B END-ADD Problem found at Line 98 Column 41 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD B TO A GIVING B Suggest replacing: ADD B TO A GIVING B with: ADD B TO A GIVING B END-ADD Problem found at Line 99 Column 27 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1016 TO ZERO GIVING RETURN-CODE Suggest replacing: ADD 1016 TO ZERO GIVING RETURN-CODE with: ADD 1016 TO ZERO GIVING RETURN-CODE END-ADD Problem found at Line 115 Column 39 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 116 Column 43 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 117 Column 36 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 118 Column 43 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 119 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED Suggest replacing: ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED with: ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED END-ADD Problem found at Line 120 Column 36 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 121 Column 43 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 122 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED Suggest replacing: ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED with: ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED END-ADD Problem found at Line 123 Column 44 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 125 Column 48 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 128 Column 15 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 130 Column 15 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 131 Column 43 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 133 Column 47 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 135 Column 32 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 136 Column 33 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 137 Column 36 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 138 Column 32 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 139 Column 36 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 140 Column 39 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 141 Column 32 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 142 Column 36 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 143 Column 39 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 144 Column 36 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 145 Column 40 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 146 Column 43 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 147 Column 41 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 148 Column 45 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 149 Column 44 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO A GIVING A Suggest replacing: ADD 1 TO A GIVING A with: ADD 1 TO A GIVING A END-ADD Problem found at Line 160 Column 13 File C:/users/lakers/styletest2.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A Suggest replacing: READ A with: READ A END-READ Problem found at Line 66 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-PERFORM-THROUGH Rule Group:Procedure-Division Severity:1 Encountered PERFORM .. THROUGH .. statement: likely to be very fragile code! * PERFORM 88-VARIABLE-TESTS. * PERFORM EVALUATE-STATEMENTS 5 TIMES. PERFORM NEXT-PERFORMS THROUGH READ-STATEMENTS-1 Suggest replacing: * PERFORM 88-VARIABLE-TESTS. * PERFORM EVALUATE-STATEMENTS 5 TIMES. PERFORM NEXT-PERFORMS THROUGH READ-STATEMENTS-1 with: Problem found at Line 67 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-PERFORM-THROUGH Rule Group:Procedure-Division Severity:1 Encountered PERFORM .. THROUGH .. statement: likely to be very fragile code! PERFORM READ-STATEMENTS-3 THRU READ-STATEMENTS-5 Suggest replacing: PERFORM READ-STATEMENTS-3 THRU READ-STATEMENTS-5 with: Problem found at Line 150 Column 8 File C:/users/lakers/styletest2.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT TIME-TO-EXIT. EXIT. Problem found at Line 162 Column 8 File C:/users/lakers/styletest2.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT READ-STATEMENTS-3. EXIT. Problem found at Line 148 Column 13 File C:/users/lakers/styletest2.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF BEGIN-LOOP OR LOOP-FINISHED ADD 1 TO A GIVING A END-IF Suggest replacing: IF BEGIN-LOOP OR LOOP-FINISHED ADD 1 TO A GIVING A END-IF with: EVALUATE TRUE WHEN BEGIN-LOOP WHEN LOOP-FINISHED ADD 1 TO A GIVING A WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 149 Column 13 File C:/users/lakers/styletest2.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF NOT LOOP-FINISHED AND A < B ADD 1 TO A GIVING A END-IF Suggest replacing: IF NOT LOOP-FINISHED AND A < B ADD 1 TO A GIVING A END-IF with: EVALUATE TRUE WHEN NOT LOOP-FINISHED AND A < B ADD 1 TO A GIVING A WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 95 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE A IS > B WHEN TRUE ADD B TO A GIVING B EVALUATE A IS > B WHEN TRUE ADD B TO A GIVING B END-EVALUATE EVALUATE A IS > B WHEN TRUE ADD B TO A GIVING B WHEN OTHER ADD 1016 TO ZERO GIVING RETURN-CODE END-EVALUATE Problem found at Line 96 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE A IS > B WHEN TRUE ADD B TO A GIVING B END-EVALUATE Problem found at Line 123 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE Problem found at Line 125 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE Problem found at Line 127 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE Problem found at Line 129 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE Problem found at Line 131 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE Problem found at Line 133 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE Problem found at Line 42 Column 12 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF READY-TRACE THEN DISPLAY DEBUG-NAME Problem found at Line 115 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP IS NEGATIVE ADD 1 TO A GIVING A IF BEGIN-LOOP IS NOT NEGATIVE ADD 1 TO A GIVING A IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP OR LOOP-FINISHED ADD 1 TO A GIVING A END-IF Problem found at Line 116 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP IS NOT NEGATIVE ADD 1 TO A GIVING A IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP OR LOOP-FINISHED ADD 1 TO A GIVING A END-IF Problem found at Line 117 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP OR LOOP-FINISHED ADD 1 TO A GIVING A END-IF Problem found at Line 118 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP OR LOOP-FINISHED ADD 1 TO A GIVING A END-IF Problem found at Line 120 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP EQUALS A ADD 1 TO A GIVING A IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP OR LOOP-FINISHED ADD 1 TO A GIVING A END-IF Problem found at Line 121 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP + 1 NOT EQUAL A ADD 1 TO A GIVING A ADD 1 TO LOOP-FINISHED GIVING LOOP-FINISHED EVALUATE A > B WHEN BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE A > B WHEN NOT BEGIN-LOOP THROUGH LOOP-FINISHED ADD 1 TO A GIVING A END-EVALUATE EVALUATE BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE EVALUATE NOT BEGIN-LOOP WHEN TRUE ADD 1 TO A GIVING A END-EVALUATE IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF IF BEGIN-LOOP OR LOOP-FINISHED ADD 1 TO A GIVING A END-IF Problem found at Line 135 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF A IS BEGIN-LOOP ADD 1 TO A GIVING A END-IF Problem found at Line 136 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF A NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF Problem found at Line 137 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF A IS NOT BEGIN-LOOP ADD 1 TO A GIVING A END-IF Problem found at Line 138 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP > 10 ADD 1 TO A GIVING A END-IF Problem found at Line 139 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP NOT > 10 ADD 1 TO A GIVING A END-IF Problem found at Line 140 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP IS NOT > 10 ADD 1 TO A GIVING A END-IF Problem found at Line 141 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP < 10 ADD 1 TO A GIVING A END-IF Problem found at Line 142 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP NOT < 10 ADD 1 TO A GIVING A END-IF Problem found at Line 143 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP IS NOT < 10 ADD 1 TO A GIVING A END-IF Problem found at Line 144 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP EQUAL 10 ADD 1 TO A GIVING A END-IF Problem found at Line 145 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP NOT EQUAL 10 ADD 1 TO A GIVING A END-IF Problem found at Line 146 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF Problem found at Line 147 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF ROO-LOOP IS NOT EQUAL 10 ADD 1 TO A GIVING A END-IF Problem found at Line 148 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BEGIN-LOOP OR LOOP-FINISHED ADD 1 TO A GIVING A END-IF Problem found at Line 149 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF NOT LOOP-FINISHED AND A < B ADD 1 TO A GIVING A END-IF Problem found at Line 74 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring * PERFORM ARDB-PROC THRU BIG. * PERFORM 88-VARIABLE-TESTS THROUGH LONEPARAGRAPH. * GO TO 88-VARIABLE-TESTS. * GO EVALUATE-STATEMENTS. GO TO READ-STATEMENTS-1 READ-STATEMENTS-3 DEPENDING ON A Problem found at Line 39 Column 12 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A Problem found at Line 51 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A Problem found at Line 77 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A Problem found at Line 78 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A END-READ Problem found at Line 81 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A NEXT RECORD Problem found at Line 82 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A NEXT RECORD END-READ Problem found at Line 84 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A INTO B Problem found at Line 86 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A INTO B END-READ Problem found at Line 88 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A NEXT RECORD INTO B Problem found at Line 90 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A NEXT RECORD INTO B END-READ Problem found at Line 160 Column 13 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A Problem found at Line 55 Column 17 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 24 Problem found at Line 55 Column 23 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value +987654321011 Problem found at Line 56 Column 17 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 4.6 Problem found at Line 56 Column 24 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value .5 Problem found at Line 58 Column 17 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 98765432101 Problem found at Line 60 Column 17 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value -1.0 Problem found at Line 61 Column 17 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value -23424 Problem found at Line 61 Column 27 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value -987654321011 Problem found at Line 62 Column 17 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value +224 Problem found at Line 63 Column 23 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value -9.6 Problem found at Line 94 Column 31 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 16 Problem found at Line 99 Column 31 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 1016 Problem found at Line 138 Column 29 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 139 Column 33 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 140 Column 36 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 141 Column 29 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 142 Column 33 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 143 Column 36 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 144 Column 33 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 145 Column 37 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 146 Column 40 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 147 Column 38 File C:/users/lakers/styletest2.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 87 Column 8 File C:/users/lakers/styletest2.cob Line 89 Column 8 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier READ-STATEMENTS-5 The identifier READ-STATEMENTS-5 is declared at both line 87 column 8 and at line 89 column 8. Problem found at Line 85 Column 8 File C:/users/lakers/styletest2.cob Line 161 Column 8 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier READ-STATEMENTS-4 The identifier READ-STATEMENTS-4 is declared at both line 85 column 8 and at line 161 column 8. Problem found at Line 83 Column 8 File C:/users/lakers/styletest2.cob Line 162 Column 8 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier READ-STATEMENTS-3 The identifier READ-STATEMENTS-3 is declared at both line 83 column 8 and at line 162 column 8. Problem found at Line 83 Column 8 File C:/users/lakers/styletest2.cob Line 38 Column 8 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier READ-STATEMENTS-3 The identifier READ-STATEMENTS-3 is declared at both line 83 column 8 and at line 38 column 8. Problem found at Line 85 Column 8 File C:/users/lakers/styletest2.cob Line 41 Column 8 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier READ-STATEMENTS-4 The identifier READ-STATEMENTS-4 is declared at both line 85 column 8 and at line 41 column 8. Problem found at Line 30 Column 16 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program T4 Problem found at Line 27 Column 16 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program T1 Problem found at Line 29 Column 16 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program T3 Problem found at Line 28 Column 16 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program T2 Problem found at Line 26 Column 12 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program SIM-TITLE Problem found at Line 19 Column 24 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program CONTRIB-TYPE-FOUND Problem found at Line 18 Column 24 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program CONTRIB-TYPE-NOT-FOUND Problem found at Line 17 Column 20 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program SW-CONTRIB-TYPE Problem found at Line 12 Column 24 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program PLAN-KEY-ONLY Problem found at Line 10 Column 24 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program NO-KEY-PASSED Problem found at Line 11 Column 24 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program CONTRACT-KEY-ONLY Problem found at Line 13 Column 24 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program BOTH-KEYS-PASSED Problem found at Line 9 Column 20 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program SW-KEY Problem found at Line 21 Column 24 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program CONTRIB-ID-NOT-FOUND Problem found at Line 22 Column 24 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program CONTRIB-ID-FOUND Problem found at Line 20 Column 20 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program SW-CONTRIB-ID Problem found at Line 14 Column 20 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program SW-LOOP Problem found at Line 8 Column 16 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program SWITCHES Problem found at Line 7 Column 12 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program WORK-AREAS Problem found at Line 31 Column 12 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program SIM-COPYRIGHT Problem found at Line 80 Column 8 File C:/users/lakers/styletest2.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this paragraph * Read statements with NEXT RECORD READ-STATEMENTS-2. READ A NEXT RECORD READ A NEXT RECORD END-READ. End of COBOL Style Checker Report for file C:/users/lakers/styletest2.cob -------------------------------------------------------------------------------- COBOL Style Checker Report for file C:/users/lakers/styletest3.cob Problem found at Line 7 Column 8 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-REMARKS Rule Group:Documentation Severity:3 Encountered REMARKS paragraph, which is not supported in Enterprise COBOL. Suggest turning each line into a comment. * What is this comment about? REMARKS. Problem found at Line 29 Column 8 File C:/users/lakers/styletest3.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment SECT2 SECTION. USE AFTER LABEL PROCEDURE ON INPUT. Problem found at Line 31 Column 8 File C:/users/lakers/styletest3.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment SECT3 SECTION. USE AFTER ERROR PROCEDURE ON INPUT. * IF NOT FOO:BAR:BIMBO ... Problem found at Line 36 Column 8 File C:/users/lakers/styletest3.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment SECTION. USE AFTER ERROR PROCEDURE ON INPUT. Problem found at Line 39 Column 8 File C:/users/lakers/styletest3.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment SKIP3 SECTION. USE AFTER ERROR PROCEDURE ON INPUT. ... Problem found at Line 44 Column 8 File C:/users/lakers/styletest3.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment SECTION 23. USE AFTER ERROR PROCEDURE ON INPUT. Problem found at Line 46 Column 8 File C:/users/lakers/styletest3.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment SECTION 24. USE AFTER ERROR PROCEDURE ON INPUT. * IF NOT FOO:BAR:BIMBO ... Problem found at Line 51 Column 8 File C:/users/lakers/styletest3.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment SECT27 SECTION 27. USE AFTER ERROR PROCEDURE ON INPUT. Problem found at Line 53 Column 8 File C:/users/lakers/styletest3.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment SECT28 SECTION 28. USE AFTER ERROR PROCEDURE ON INPUT. * IF NOT FOO:BAR:BIMBO ... Problem found at Line 58 Column 8 File C:/users/lakers/styletest3.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment SECT4 SECTION. USE AFTER ERROR PROCEDURE ON INPUT. PROG-EXIT1. ... Problem found at Line 63 Column 8 File C:/users/lakers/styletest3.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment SECTION 25. IF NOT FOO THEN GO TO PROG-EXIT1. Problem found at Line 66 Column 8 File C:/users/lakers/styletest3.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment SECT26 SECTION 26. Problem found at Line 67 Column 8 File C:/users/lakers/styletest3.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment SECT29 SECTION 29. IF NOT FOO THEN GO TO PROG-EXIT1. Problem found at Line 70 Column 8 File C:/users/lakers/styletest3.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment SECTION 30. Problem found at Line 71 Column 8 File C:/users/lakers/styletest3.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment SECTION. Problem found at Line 60 Column 10 File C:/users/lakers/styletest3.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment PROG-EXIT1. EXIT. Problem found at Line 76 Column 12 File C:/users/lakers/styletest3.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment PROG-EXIT2. EXIT. Problem found at Line 110 Column 10 File C:/users/lakers/styletest3.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment BOGUSPARA. Problem found at Line 113 Column 10 File C:/users/lakers/styletest3.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment . EXIT. Problem found at Line 114 Column 10 File C:/users/lakers/styletest3.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment PROG-EXIT1. EXIT. Problem found at Line 90 Column 26 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-NAME-USING-POTENTIAL-RESERVED-WORD Rule Group:Naming-conventions Severity:3 Identifier is listed in COBOL literature as a name that should be reserved for future development as a COBOL reserved word or for Object COBOL extension or for system-specific usage. Suggest renaming this identifier. COMMIT Problem found at Line 12 Column 8 File C:/users/lakers/styletest3.cob Line 18 Column 8 File C:/users/lakers/styletest3.cob Line 20 Column 8 File C:/users/lakers/styletest3.cob Line 21 Column 8 File C:/users/lakers/styletest3.cob Rule:COLLECT-77-LEVEL-DECLARATIONS Rule Group:Data-declarations Severity:3 Encountered one or more 77 level declarations. Suggest consolidation into an 01 level declaration. 77 CC-RND-CALC PIC 9(4) VALUE 'CALC'. 77 CC-RND-INIT PIC X(4) VALUE 'INIT'. * 77 comment 77 CC-DISHONOUR PIC X(9) VALUE 'DISHONOUR'. 77 CC-MORE-DISHONOUR PIC 9(9). Suggest deleting: 77 CC-RND-CALC PIC 9(4) VALUE 'CALC'. Suggest deleting: 77 CC-RND-INIT PIC X(4) VALUE 'INIT'. Suggest deleting: * 77 comment 77 CC-DISHONOUR PIC X(9) VALUE 'DISHONOUR'. Suggest deleting: 77 CC-MORE-DISHONOUR PIC 9(9). Suggest inserting: 01 COLLECTED-77-DECLS. 05 CC-RND-CALC PIC 9(4) VALUE 'CALC'. 05 CC-RND-INIT PIC X(4) VALUE 'INIT'. 05 CC-DISHONOUR PIC X(9) VALUE 'DISHONOUR'. 05 CC-MORE-DISHONOUR PIC 9(9). before: 77 CC-RND-CALC PIC 9(4) VALUE 'CALC'. Gathering literal constant data declarations originally expressed as 77 level declarations in the WORKING-STORAGE section into an 01 level declaration whose constituents are 05 declarations derived from the 77 level declarations may help with program readability and maintenance. Problem found at Line 23 Column 8 File C:/users/lakers/styletest3.cob Line 24 Column 8 File C:/users/lakers/styletest3.cob Rule:COLLECT-77-LEVEL-DECLARATIONS Rule Group:Data-declarations Severity:3 Encountered one or more 77 level declarations. Suggest consolidation into an 01 level declaration. 77 CC-RND-CALCL PIC 9(4) VALUE 'CALC'. 77 CC-RND-INITL PIC X(4) VALUE 'INIT'. Suggest deleting: 77 CC-RND-CALCL PIC 9(4) VALUE 'CALC'. Suggest deleting: 77 CC-RND-INITL PIC X(4) VALUE 'INIT'. Suggest inserting: 01 COLLECTED-77-DECLS. 05 CC-RND-CALCL PIC 9(4) VALUE 'CALC'. 05 CC-RND-INITL PIC X(4) VALUE 'INIT'. before: 77 CC-RND-CALCL PIC 9(4) VALUE 'CALC'. Gathering literal constant data declarations originally expressed as 77 level declarations in the LOCAL-STORAGE section into an 01 level declaration whose constituents are 05 declarations derived from the 77 level declarations may help with program readability and maintenance. Problem found at Line 21 Column 8 File C:/users/lakers/styletest3.cob Rule:CHECK-NUMERIC-DECLARATIONS-HAVE-VALUE-CLAUSES Rule Group:Data-declarations Severity:3 Numeric data declaration should have VALUE clause. 77 CC-MORE-DISHONOUR PIC 9(9). Problem found at Line 34 Column 12 File C:/users/lakers/styletest3.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 42 Column 12 File C:/users/lakers/styletest3.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 49 Column 12 File C:/users/lakers/styletest3.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 56 Column 12 File C:/users/lakers/styletest3.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 64 Column 12 File C:/users/lakers/styletest3.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 68 Column 12 File C:/users/lakers/styletest3.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 74 Column 12 File C:/users/lakers/styletest3.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 86 Column 13 File C:/users/lakers/styletest3.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF A NOT EQUAL C D MOVE A TO B. D MOVE C TO D D MOVE E TO F MOVE G TO COMMIT ALTER PARA1 TO PROG-EXIT1 MOVE A TO B SEARCH FOOBA VARYING BAR WHEN BAR EQUAL 0 NEXT SENTENCE ELSE MOVE K TO L Problem found at Line 94 Column 16 File C:/users/lakers/styletest3.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 SEARCH without an END-SEARCH SEARCH FOOBA VARYING BAR WHEN BAR EQUAL 0 NEXT SENTENCE Problem found at Line 101 Column 16 File C:/users/lakers/styletest3.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 SEARCH without an END-SEARCH SEARCH FOOBA VARYING BAR WHEN BAR EQUAL 0 MOVE K TO L PARA1 Problem found at Line 60 Column 10 File C:/users/lakers/styletest3.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT PROG-EXIT1. EXIT. Problem found at Line 76 Column 12 File C:/users/lakers/styletest3.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT PROG-EXIT2. EXIT. Problem found at Line 113 Column 10 File C:/users/lakers/styletest3.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT . EXIT. Problem found at Line 114 Column 10 File C:/users/lakers/styletest3.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT PROG-EXIT1. EXIT. Problem found at Line 91 Column 16 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-ALTER-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered ALTER statement: likely to be very fragile code! ALTER PARA1 TO PROG-EXIT1 Problem found at Line 95 Column 35 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-REPLACE-STATEMENT Rule Group:Procedure-Division Severity:1 Analysis indicates presence of replaced code, indicating earlier presence of REPLACE statement, which is considered very fragile. A portion of the replacing code is as follows: SENTENCE Problem found at Line 100 Column 16 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-REPLACE-STATEMENT Rule Group:Procedure-Division Severity:1 Analysis indicates presence of replaced code, indicating earlier presence of REPLACE statement, which is considered very fragile. A portion of the replacing code is as follows: K Problem found at Line 102 Column 35 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-REPLACE-STATEMENT Rule Group:Procedure-Division Severity:1 Analysis indicates presence of replaced code, indicating earlier presence of REPLACE statement, which is considered very fragile. A portion of the replacing code is as follows: K Problem found at Line 34 Column 12 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 42 Column 12 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 49 Column 12 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 56 Column 12 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 64 Column 12 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 68 Column 12 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 74 Column 12 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 80 Column 13 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT IZNT IF A NOT EQUAL B THEN MOVE A TO B * GO TO PROG-EXIT1 PROG-EXIT2 DEPENDING ON BITS. * GO TO PROG-EXIT1. * IF IZNT END-IF Problem found at Line 95 Column 35 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-NEXT-SENTENCE Rule Group:Procedure-Division Severity:2 Encountered NEXT SENTENCE form, which could be fragile if nearby code changes NEXT SENTENCE Problem found at Line 44 Column 8 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECTION 23. USE AFTER ERROR PROCEDURE ON INPUT. Problem found at Line 46 Column 8 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECTION 24. USE AFTER ERROR PROCEDURE ON INPUT. * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1. Problem found at Line 51 Column 8 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECT27 SECTION 27. USE AFTER ERROR PROCEDURE ON INPUT. Problem found at Line 53 Column 8 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECT28 SECTION 28. USE AFTER ERROR PROCEDURE ON INPUT. * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1. Problem found at Line 63 Column 8 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECTION 25. IF NOT FOO THEN GO TO PROG-EXIT1. Problem found at Line 66 Column 8 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECT26 SECTION 26. Problem found at Line 67 Column 8 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECT29 SECTION 29. IF NOT FOO THEN GO TO PROG-EXIT1. Problem found at Line 70 Column 8 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECTION 30. Problem found at Line 35 Column 19 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 43 Column 19 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 50 Column 19 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 57 Column 19 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 65 Column 19 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 69 Column 19 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 75 Column 19 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 87 Column 7 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-UNSTRUCTURED-DEBUG Rule Group:Procedure-Division Severity:1 Encountered unstructured debug statement, i.e., one whose internal structure crosscuts the surrounding code structure D MOVE A TO B. D MOVE C TO D D MOVE E TO F MOVE G TO COMMIT ALTER PARA1 TO PROG-EXIT1 MOVE A TO B Problem found at Line 105 Column 12 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-UNSTRUCTURED-DEBUG Rule Group:Procedure-Division Severity:1 Encountered unstructured debug statement, i.e., one whose internal structure crosscuts the surrounding code structure MOVE A TO B MOVE C TO C D MOVE D TO E. D MOVE F TO G. Problem found at Line 110 Column 7 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-UNSTRUCTURED-DEBUG Rule Group:Procedure-Division Severity:1 Encountered unstructured debug statement, i.e., one whose internal structure crosscuts the surrounding code structure D BOGUSPARA. MOVE A TO B. MOVE C TO D. Problem found at Line 11 Column 10 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-EXEC-SQL-STATEMENT Rule Group:Procedure-Division Severity:2 Encountered EXEC SQL statement, suggesting database access possibly not conforming to PEM model EXEC SQL INCLUDE SQLCA END-EXEC. Problem found at Line 3 Column 7 File C:/users/lakers/styletest3.cob Rule:FIND-SKIP-DIRECTIVES Rule Group:Miscellaneous Severity:5 SKIP2 directive encountered SKIP2 Problem found at Line 27 Column 7 File C:/users/lakers/styletest3.cob Rule:FIND-SKIP-DIRECTIVES Rule Group:Miscellaneous Severity:5 SKIP1 directive encountered SKIP1 Problem found at Line 38 Column 7 File C:/users/lakers/styletest3.cob Rule:FIND-SKIP-DIRECTIVES Rule Group:Miscellaneous Severity:5 SKIP3 directive encountered SKIP3 Problem found at Line 44 Column 16 File C:/users/lakers/styletest3.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 23 Problem found at Line 46 Column 16 File C:/users/lakers/styletest3.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 24 Problem found at Line 51 Column 23 File C:/users/lakers/styletest3.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 27 Problem found at Line 53 Column 23 File C:/users/lakers/styletest3.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 28 Problem found at Line 63 Column 16 File C:/users/lakers/styletest3.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 25 Problem found at Line 66 Column 23 File C:/users/lakers/styletest3.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 26 Problem found at Line 67 Column 23 File C:/users/lakers/styletest3.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 29 Problem found at Line 70 Column 16 File C:/users/lakers/styletest3.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 30 Problem found at Line 60 Column 10 File C:/users/lakers/styletest3.cob Line 114 Column 10 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier PROG-EXIT1 The identifier PROG-EXIT1 is declared at both line 60 column 10 and at line 114 column 10. Problem found at Line 23 Column 12 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program CC-RND-CALCL Problem found at Line 24 Column 12 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program CC-RND-INITL Problem found at Line 87 Column 16 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE A TO B Problem found at Line 88 Column 16 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE C TO D Problem found at Line 89 Column 16 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE E TO F Problem found at Line 90 Column 16 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE G TO COMMIT Problem found at Line 91 Column 16 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement ALTER PARA1 TO PROG-EXIT1 Problem found at Line 93 Column 16 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE A TO B Problem found at Line 105 Column 12 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE A TO B Problem found at Line 106 Column 12 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE C TO C Problem found at Line 107 Column 13 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE D TO E Problem found at Line 108 Column 13 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE F TO G Problem found at Line 110 Column 10 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this paragraph BOGUSPARA. Problem found at Line 111 Column 13 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE A TO B Problem found at Line 112 Column 13 File C:/users/lakers/styletest3.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE C TO D End of COBOL Style Checker Report for file C:/users/lakers/styletest3.cob -------------------------------------------------------------------------------- COBOL Style Checker Report for file C:/users/lakers/styletest3a.cob Problem found at Line 261 Column 8 File C:/users/lakers/styletest3a.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment SECT1 SECTION. IF NOT IZNT THEN GO TO PROG-EXIT1 ... Problem found at Line 258 Column 12 File C:/users/lakers/styletest3a.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment PROG-EXIT2. EXIT. Problem found at Line 262 Column 15 File C:/users/lakers/styletest3a.cob Rule:FIND-NEGATED-88-VARIABLES Rule Group:Procedure-Division Severity:4 The 88 condition variable IZNT appears in a negated form NOT IZNT Problem found at Line 22 Column 13 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 31 Column 13 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 40 Column 13 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 49 Column 13 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 72 Column 13 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 81 Column 13 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 90 Column 13 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 99 Column 13 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 117 Column 13 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 128 Column 13 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 139 Column 13 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 150 Column 13 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 170 Column 13 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 182 Column 13 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 193 Column 13 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 204 Column 13 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 217 Column 12 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 223 Column 12 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 232 Column 13 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * IF NOT FOO:BAR:BIM IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 237 Column 12 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * COMMENT IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 245 Column 12 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * COMMENT IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 255 Column 13 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * COMMENT * IF NOT FOO:BAR:BIM IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 262 Column 12 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF NOT IZNT THEN GO TO PROG-EXIT1 PROG-EXIT2 DEPENDING ON A Problem found at Line 264 Column 12 File C:/users/lakers/styletest3a.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF IZNT D MOVE A TO B. D MOVE C TO D D MOVE E TO F MOVE G TO H MOVE I TO J ELSE MOVE K TO L Problem found at Line 55 Column 10 File C:/users/lakers/styletest3a.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT * COMMENT PROG-EXIT1. EXIT. Problem found at Line 57 Column 10 File C:/users/lakers/styletest3a.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT PROG-EXIT1. * COMMENT EXIT. Problem found at Line 60 Column 10 File C:/users/lakers/styletest3a.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT PROG-EXIT1 * COMMENT . EXIT. Problem found at Line 104 Column 10 File C:/users/lakers/styletest3a.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT PROG-EXIT1. * COMMENT EXIT. Problem found at Line 156 Column 10 File C:/users/lakers/styletest3a.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT PROG-EXIT1 * COMMENT . EXIT. Problem found at Line 211 Column 10 File C:/users/lakers/styletest3a.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT * COMMENT PROG-EXIT1. EXIT. Problem found at Line 258 Column 12 File C:/users/lakers/styletest3a.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT PROG-EXIT2. EXIT. Problem found at Line 289 Column 10 File C:/users/lakers/styletest3a.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT * COMMENT PROG-EXIT1. EXIT. Problem found at Line 291 Column 10 File C:/users/lakers/styletest3a.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT PROG-EXIT1. * COMMENT EXIT. Problem found at Line 294 Column 10 File C:/users/lakers/styletest3a.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT PROG-EXIT1 * COMMENT . EXIT. Problem found at Line 22 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 31 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 40 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 49 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 72 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 81 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 90 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 99 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 117 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 128 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 139 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 150 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 170 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 182 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 193 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 204 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 217 Column 12 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 223 Column 12 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 232 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * IF NOT FOO:BAR:BIM IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 237 Column 12 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * COMMENT IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 245 Column 12 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * COMMENT IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 255 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * COMMENT * IF NOT FOO:BAR:BIM IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 262 Column 12 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF NOT IZNT THEN GO TO PROG-EXIT1 PROG-EXIT2 DEPENDING ON A Problem found at Line 34 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. * COMMENT SECTION 23. USE AFTER ERROR PROCEDURE ON INPUT. Problem found at Line 37 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. * COMMENT SECTION 24. USE AFTER ERROR PROCEDURE ON INPUT. * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1. Problem found at Line 43 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. * COMMENT SECT27 SECTION 27. USE AFTER ERROR PROCEDURE ON INPUT. Problem found at Line 46 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. * COMMENT SECT28 SECTION 28. USE AFTER ERROR PROCEDURE ON INPUT. * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1. Problem found at Line 83 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECTION 23. * COMMENT USE AFTER ERROR PROCEDURE ON INPUT. Problem found at Line 86 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECTION 24. * COMMENT USE AFTER ERROR PROCEDURE ON INPUT. * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1. Problem found at Line 92 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECT27 SECTION 27. * COMMENT USE AFTER ERROR PROCEDURE ON INPUT. Problem found at Line 95 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECT28 SECTION 28. * COMMENT USE AFTER ERROR PROCEDURE ON INPUT. * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1. Problem found at Line 130 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECTION * COMMENT 23. USE AFTER ERROR PROCEDURE ON INPUT. Problem found at Line 134 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECTION 24 * COMMENT . USE AFTER ERROR PROCEDURE ON INPUT. * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1. Problem found at Line 141 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECT27 * COMMENT SECTION 27. USE AFTER ERROR PROCEDURE ON INPUT. Problem found at Line 145 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECT28 * COMMENT SECTION 28. USE AFTER ERROR PROCEDURE ON INPUT. * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1. Problem found at Line 184 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECTION 23 * COMMENT . USE AFTER ERROR PROCEDURE ON INPUT. Problem found at Line 188 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECTION 24 * COMMENT . USE AFTER ERROR PROCEDURE ON INPUT. * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1. Problem found at Line 195 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECT27 SECTION * COMMENT 27. USE AFTER ERROR PROCEDURE ON INPUT. Problem found at Line 199 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECT28 SECTION * COMMENT 28. USE AFTER ERROR PROCEDURE ON INPUT. * IF NOT FOO:BAR:BIMBO IF NOT FOO THEN GO TO PROG-EXIT1. Problem found at Line 216 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. * COMMENT SECTION 25. IF NOT FOO THEN GO TO PROG-EXIT1. Problem found at Line 220 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. * COMMENT SECT26 SECTION 26. Problem found at Line 222 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. * COMMENT SECT29 SECTION 29. IF NOT FOO THEN GO TO PROG-EXIT1. Problem found at Line 226 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. * COMMENT SECTION 30. Problem found at Line 235 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECTION 25. * COMMENT IF NOT FOO THEN GO TO PROG-EXIT1. Problem found at Line 239 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. SECT26 SECTION 26 * COMMENT . Problem found at Line 243 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. * COMMENT SECT29 SECTION 29. * COMMENT IF NOT FOO THEN GO TO PROG-EXIT1. Problem found at Line 248 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. * COMMENT SECTION 30. Problem found at Line 23 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 32 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 41 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 50 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 73 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 82 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 91 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 100 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 118 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 129 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 140 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 151 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 171 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 183 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 194 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 205 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 218 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 224 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 233 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 238 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 246 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 256 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 263 Column 19 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 PROG-EXIT2 DEPENDING ON A Problem found at Line 265 Column 7 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-UNSTRUCTURED-DEBUG Rule Group:Procedure-Division Severity:1 Encountered unstructured debug statement, i.e., one whose internal structure crosscuts the surrounding code structure D MOVE A TO B. D MOVE C TO D D MOVE E TO F MOVE G TO H MOVE I TO J Problem found at Line 280 Column 12 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-UNSTRUCTURED-DEBUG Rule Group:Procedure-Division Severity:1 Encountered unstructured debug statement, i.e., one whose internal structure crosscuts the surrounding code structure MOVE A TO B MOVE C TO C D MOVE D TO E. D MOVE F TO G. Problem found at Line 285 Column 7 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-UNSTRUCTURED-DEBUG Rule Group:Procedure-Division Severity:1 Encountered unstructured debug statement, i.e., one whose internal structure crosscuts the surrounding code structure D BOGUSPARA. MOVE A TO B. MOVE C TO D. Problem found at Line 9 Column 10 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-EXEC-SQL-STATEMENT Rule Group:Procedure-Division Severity:2 Encountered EXEC SQL statement, suggesting database access possibly not conforming to PEM model EXEC SQL INCLUDE SQLCA END-EXEC. Problem found at Line 34 Column 16 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 23 Problem found at Line 37 Column 16 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 24 Problem found at Line 43 Column 23 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 27 Problem found at Line 46 Column 23 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 28 Problem found at Line 83 Column 16 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 23 Problem found at Line 86 Column 16 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 24 Problem found at Line 92 Column 23 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 27 Problem found at Line 95 Column 23 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 28 Problem found at Line 132 Column 8 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value * COMMENT 23 Problem found at Line 134 Column 16 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 24 Problem found at Line 143 Column 16 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 27 Problem found at Line 147 Column 16 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 28 Problem found at Line 184 Column 16 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 23 Problem found at Line 188 Column 16 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 24 Problem found at Line 197 Column 9 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value * COMMENT 27 Problem found at Line 201 Column 9 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value * COMMENT 28 Problem found at Line 216 Column 16 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 25 Problem found at Line 220 Column 23 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 26 Problem found at Line 222 Column 23 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 29 Problem found at Line 226 Column 16 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 30 Problem found at Line 235 Column 16 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 25 Problem found at Line 239 Column 23 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 26 Problem found at Line 243 Column 23 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 29 Problem found at Line 248 Column 16 File C:/users/lakers/styletest3a.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 30 Problem found at Line 222 Column 8 File C:/users/lakers/styletest3a.cob Line 243 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT SECT29 The identifier SECT29 is declared at both line 222 column 8 and at line 243 column 8. Problem found at Line 46 Column 8 File C:/users/lakers/styletest3a.cob Line 199 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT SECT28 SECT28 The identifier SECT28 is declared at both line 46 column 8 and at line 199 column 8. Problem found at Line 46 Column 8 File C:/users/lakers/styletest3a.cob Line 145 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT SECT28 SECT28 The identifier SECT28 is declared at both line 46 column 8 and at line 145 column 8. Problem found at Line 46 Column 8 File C:/users/lakers/styletest3a.cob Line 95 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT SECT28 SECT28 The identifier SECT28 is declared at both line 46 column 8 and at line 95 column 8. Problem found at Line 19 Column 8 File C:/users/lakers/styletest3a.cob Line 165 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT SECT3 SECT3 The identifier SECT3 is declared at both line 19 column 8 and at line 165 column 8. Problem found at Line 19 Column 8 File C:/users/lakers/styletest3a.cob Line 112 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT SECT3 SECT3 The identifier SECT3 is declared at both line 19 column 8 and at line 112 column 8. Problem found at Line 19 Column 8 File C:/users/lakers/styletest3a.cob Line 68 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT SECT3 SECT3 The identifier SECT3 is declared at both line 19 column 8 and at line 68 column 8. Problem found at Line 16 Column 8 File C:/users/lakers/styletest3a.cob Line 206 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT SECT2 SECT2 The identifier SECT2 is declared at both line 16 column 8 and at line 206 column 8. Problem found at Line 16 Column 8 File C:/users/lakers/styletest3a.cob Line 161 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT SECT2 SECT2 The identifier SECT2 is declared at both line 16 column 8 and at line 161 column 8. Problem found at Line 16 Column 8 File C:/users/lakers/styletest3a.cob Line 152 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT SECT2 SECT2 The identifier SECT2 is declared at both line 16 column 8 and at line 152 column 8. Problem found at Line 16 Column 8 File C:/users/lakers/styletest3a.cob Line 108 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT SECT2 SECT2 The identifier SECT2 is declared at both line 16 column 8 and at line 108 column 8. Problem found at Line 16 Column 8 File C:/users/lakers/styletest3a.cob Line 101 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT SECT2 SECT2 The identifier SECT2 is declared at both line 16 column 8 and at line 101 column 8. Problem found at Line 16 Column 8 File C:/users/lakers/styletest3a.cob Line 65 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT SECT2 SECT2 The identifier SECT2 is declared at both line 16 column 8 and at line 65 column 8. Problem found at Line 16 Column 8 File C:/users/lakers/styletest3a.cob Line 52 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT SECT2 The identifier SECT2 is declared at both line 16 column 8 and at line 52 column 8. Problem found at Line 43 Column 8 File C:/users/lakers/styletest3a.cob Line 195 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT SECT27 SECT27 The identifier SECT27 is declared at both line 43 column 8 and at line 195 column 8. Problem found at Line 43 Column 8 File C:/users/lakers/styletest3a.cob Line 141 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT SECT27 SECT27 The identifier SECT27 is declared at both line 43 column 8 and at line 141 column 8. Problem found at Line 43 Column 8 File C:/users/lakers/styletest3a.cob Line 92 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT SECT27 SECT27 The identifier SECT27 is declared at both line 43 column 8 and at line 92 column 8. Problem found at Line 220 Column 8 File C:/users/lakers/styletest3a.cob Line 239 Column 8 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT SECT26 SECT26 The identifier SECT26 is declared at both line 220 column 8 and at line 239 column 8. Problem found at Line 55 Column 10 File C:/users/lakers/styletest3a.cob Line 60 Column 10 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT PROG-EXIT1 PROG-EXIT1 The identifier PROG-EXIT1 is declared at both line 55 column 10 and at line 60 column 10. Problem found at Line 55 Column 10 File C:/users/lakers/styletest3a.cob Line 57 Column 10 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT PROG-EXIT1 PROG-EXIT1 The identifier PROG-EXIT1 is declared at both line 55 column 10 and at line 57 column 10. Problem found at Line 55 Column 10 File C:/users/lakers/styletest3a.cob Line 104 Column 10 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT PROG-EXIT1 PROG-EXIT1 The identifier PROG-EXIT1 is declared at both line 55 column 10 and at line 104 column 10. Problem found at Line 55 Column 10 File C:/users/lakers/styletest3a.cob Line 289 Column 10 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT PROG-EXIT1 The identifier PROG-EXIT1 is declared at both line 55 column 10 and at line 289 column 10. Problem found at Line 55 Column 10 File C:/users/lakers/styletest3a.cob Line 294 Column 10 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT PROG-EXIT1 PROG-EXIT1 The identifier PROG-EXIT1 is declared at both line 55 column 10 and at line 294 column 10. Problem found at Line 55 Column 10 File C:/users/lakers/styletest3a.cob Line 291 Column 10 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT PROG-EXIT1 PROG-EXIT1 The identifier PROG-EXIT1 is declared at both line 55 column 10 and at line 291 column 10. Problem found at Line 272 Column 10 File C:/users/lakers/styletest3a.cob Line 277 Column 10 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT PARA1 PARA1 The identifier PARA1 is declared at both line 272 column 10 and at line 277 column 10. Problem found at Line 272 Column 10 File C:/users/lakers/styletest3a.cob Line 274 Column 10 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT PARA1 PARA1 The identifier PARA1 is declared at both line 272 column 10 and at line 274 column 10. Problem found at Line 55 Column 10 File C:/users/lakers/styletest3a.cob Line 156 Column 10 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT PROG-EXIT1 PROG-EXIT1 The identifier PROG-EXIT1 is declared at both line 55 column 10 and at line 156 column 10. Problem found at Line 55 Column 10 File C:/users/lakers/styletest3a.cob Line 211 Column 10 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier * COMMENT PROG-EXIT1 The identifier PROG-EXIT1 is declared at both line 55 column 10 and at line 211 column 10. Problem found at Line 10 Column 11 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program EIGHTYEIGHTS Problem found at Line 265 Column 16 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE A TO B Problem found at Line 266 Column 16 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE C TO D Problem found at Line 267 Column 16 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE E TO F Problem found at Line 268 Column 16 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE G TO H Problem found at Line 269 Column 16 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE I TO J Problem found at Line 280 Column 12 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE A TO B Problem found at Line 281 Column 12 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE C TO C Problem found at Line 282 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE D TO E Problem found at Line 283 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE F TO G Problem found at Line 285 Column 12 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this paragraph BOGUSPARA. Problem found at Line 286 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE A TO B Problem found at Line 287 Column 13 File C:/users/lakers/styletest3a.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE C TO D End of COBOL Style Checker Report for file C:/users/lakers/styletest3a.cob -------------------------------------------------------------------------------- COBOL Style Checker Report for file C:/users/lakers/styletest4.cob Problem found at Line 9 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-REMARKS Rule Group:Documentation Severity:3 Encountered REMARKS paragraph, which is not supported in Enterprise COBOL. Suggest turning each line into a comment. REMARKS. Problem found at Line 19 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF SKIP1 * conditional_if_copy_statement_no_else IF X EQUAL 0 THEN MOVE X TO Y COPY FOOBA. Problem found at Line 23 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * conditional_if_then_statement_no_else_1 IF FOO EQUAL 0 MOVE A TO B Problem found at Line 25 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF FOO EQUAL 0 NEXT SENTENCE Problem found at Line 29 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 EVALUATE without an END-EVALUATE EVALUATE FALSE WHEN FOO2 EQUAL 0 MOVE BAR TO FOO Problem found at Line 35 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 EVALUATE without an END-EVALUATE EVALUATE FALSE WHEN FOO2 EQUAL 0 MOVE BAR TO FOO2 WHEN ANY MOVE FOO3 TO BAR WHEN OTHER MOVE FOO2 TO BAR Problem found at Line 51 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 SEARCH without an END-SEARCH SEARCH FOOBA VARYING BAR WHEN BAR EQUAL 0 NEXT SENTENCE Problem found at Line 58 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD A4 TO B ON SIZE ERROR MOVE C TO D Problem found at Line 61 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL CALL FOOFN3 ON OVERFLOW MOVE C TO D Problem found at Line 64 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 DELETE without an END-DELETE DELETE A INVALID KEY MOVE C TO D Problem found at Line 70 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 DIVIDE without an END-DIVIDE DIVIDE A6 INTO B GIVING C ON SIZE ERROR MOVE C TO D Problem found at Line 71 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 DIVIDE without an END-DIVIDE DIVIDE A6 BY B GIVING C ON SIZE ERROR MOVE C TO D Problem found at Line 72 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 DIVIDE without an END-DIVIDE DIVIDE A4 INTO B GIVING C REMAINDER D ON SIZE ERROR MOVE C TO D Problem found at Line 73 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 DIVIDE without an END-DIVIDE DIVIDE A5 BY B GIVING C REMAINDER D ON SIZE ERROR MOVE C TO D Problem found at Line 74 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 EVALUATE without an END-EVALUATE EVALUATE FALSE WHEN A EQUAL B MOVE C TO D Problem found at Line 75 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 EVALUATE without an END-EVALUATE EVALUATE FALSE WHEN A EQUAL B MOVE C TO D WHEN OTHER MOVE E TO F Problem found at Line 77 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 MULTIPLY without an END-MULTIPLY MULTIPLY A2 BY B ON SIZE ERROR MOVE C TO D Problem found at Line 79 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 MULTIPLY without an END-MULTIPLY MULTIPLY A3 BY B GIVING E ON SIZE ERROR MOVE C TO D Problem found at Line 82 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A3 AT END MOVE C TO D Problem found at Line 84 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A5 INTO B INVALID KEY MOVE C TO D Problem found at Line 85 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A6 RECORD INTO B INVALID KEY MOVE C TO D Problem found at Line 86 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A7 RECORD KEY IS E INVALID KEY MOVE C TO D Problem found at Line 87 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A8 RECORD INTO B KEY IS E INVALID KEY MOVE C TO D Problem found at Line 90 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 RETURN without an END-RETURN RETURN A3 AT END MOVE C TO D Problem found at Line 91 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 RETURN without an END-RETURN RETURN A4 INTO B AT END MOVE C TO D Problem found at Line 94 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 REWRITE without an END-REWRITE REWRITE A3 INVALID KEY MOVE C TO D Problem found at Line 95 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 SEARCH without an END-SEARCH SEARCH A1 WHEN A EQUAL B MOVE E TO F Problem found at Line 96 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 SEARCH without an END-SEARCH SEARCH A2 AT END MOVE C TO D WHEN A EQUAL B MOVE E TO F Problem found at Line 97 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 SEARCH without an END-SEARCH SEARCH A3 VARYING I WHEN A EQUAL B MOVE E TO F Problem found at Line 98 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 SEARCH without an END-SEARCH SEARCH A4 VARYING I AT END MOVE C TO D WHEN A EQUAL B MOVE E TO F Problem found at Line 101 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 SEARCH without an END-SEARCH SEARCH ALL A5 WHEN A EQUAL B MOVE E TO F Problem found at Line 102 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 SEARCH without an END-SEARCH SEARCH ALL A6 AT END MOVE C TO D WHEN A EQUAL B MOVE E TO F Problem found at Line 105 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 START without an END-START START A3 INVALID KEY MOVE C TO D Problem found at Line 106 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 START without an END-START START A2 KEY GREATER THAN B INVALID KEY MOVE C TO D Problem found at Line 109 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 STRING without an END-STRING STRING A3 DELIMITED BY SIZE INTO B WITH POINTER C ON OVERFLOW MOVE C TO D Problem found at Line 112 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 SUBTRACT without an END-SUBTRACT SUBTRACT A2 FROM B ON SIZE ERROR MOVE C TO D Problem found at Line 114 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 SUBTRACT without an END-SUBTRACT SUBTRACT A4 FROM B GIVING C ON SIZE ERROR MOVE C TO D Problem found at Line 116 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 SUBTRACT without an END-SUBTRACT SUBTRACT CORRESPONDING A6 FROM B ON SIZE ERROR MOVE C TO D Problem found at Line 119 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 UNSTRING without an END-UNSTRING UNSTRING A3 INTO B ON OVERFLOW MOVE C TO D Problem found at Line 120 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 UNSTRING without an END-UNSTRING UNSTRING A4 INTO B TALLYING C ON OVERFLOW MOVE C TO D Problem found at Line 121 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 UNSTRING without an END-UNSTRING UNSTRING A5 DELIMITED BY D INTO B ON OVERFLOW MOVE C TO D Problem found at Line 122 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 UNSTRING without an END-UNSTRING UNSTRING A6 DELIMITED BY D INTO B TALLYING C ON OVERFLOW MOVE C TO D Problem found at Line 128 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 WRITE without an END-WRITE WRITE A5 INVALID KEY MOVE C TO D Problem found at Line 129 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 WRITE without an END-WRITE WRITE A6 FROM B INVALID KEY MOVE C TO D Problem found at Line 130 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 WRITE without an END-WRITE WRITE A7 AT EOP MOVE C TO D Problem found at Line 131 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 WRITE without an END-WRITE WRITE A8 BEFORE ADVANCING PAGE AT EOP MOVE C TO D Problem found at Line 132 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 WRITE without an END-WRITE WRITE A9 FROM B AT EOP MOVE C TO D Problem found at Line 133 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 WRITE without an END-WRITE WRITE A10 FROM B BEFORE ADVANCING PAGE AT EOP MOVE C TO D Problem found at Line 136 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 XML GENERATE without an END-XML XML GENERATE A3 FROM B COUNT IN C ON EXCEPTION MOVE C TO D Problem found at Line 137 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 XML GENERATE without an END-XML XML GENERATE A4 FROM B ON EXCEPTION MOVE C TO D Problem found at Line 139 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 XML PARSE without an END-XML XML PARSE A1 PROCESSING PROCEDURE BAR ON EXCEPTION MOVE C TO D Problem found at Line 142 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF * conditional_if_then_statement_no_else_2 IF BAR EQUAL 0 THEN IF BAZ EQUAL 0 MOVE B TO A Problem found at Line 143 Column 10 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF BAZ EQUAL 0 MOVE B TO A Problem found at Line 55 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ******************** 81 Missing END forms ****************** * and there are five other IF forms and 4 EVALUATE forms elsewhere ADD A1 TO B Suggest replacing: ******************** 81 Missing END forms ****************** * and there are five other IF forms and 4 EVALUATE forms elsewhere ADD A1 TO B with: ******************** 81 Missing END forms ****************** * and there are five other IF forms and 4 EVALUATE forms elsewhere ADD A1 TO B END-ADD Problem found at Line 56 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD A2 T0 B GIVING C Suggest replacing: ADD A2 T0 B GIVING C with: ADD A2 T0 B GIVING C END-ADD Problem found at Line 57 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD CORRESPONDING A3 TO B Suggest replacing: ADD CORRESPONDING A3 TO B with: ADD CORRESPONDING A3 TO B END-ADD Problem found at Line 59 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL CALL FOOFN Suggest replacing: CALL FOOFN with: CALL FOOFN END-CALL Problem found at Line 60 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL CALL FOOFN2 WITH BAR LINKAGE Suggest replacing: CALL FOOFN2 WITH BAR LINKAGE with: CALL FOOFN2 WITH BAR LINKAGE END-CALL Problem found at Line 62 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 COMPUTE without an END-COMPUTE COMPUTE A B C EQUAL 12 Suggest replacing: COMPUTE A B C EQUAL 12 with: COMPUTE A B C EQUAL 12 END-COMPUTE Problem found at Line 63 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 DELETE without an END-DELETE DELETE A RECORD Suggest replacing: DELETE A RECORD with: DELETE A RECORD END-DELETE Problem found at Line 65 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 DIVIDE without an END-DIVIDE DIVIDE A1 INTO B C D Suggest replacing: DIVIDE A1 INTO B C D with: DIVIDE A1 INTO B C D END-DIVIDE Problem found at Line 66 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 DIVIDE without an END-DIVIDE DIVIDE A2 INTO B GIVING C Suggest replacing: DIVIDE A2 INTO B GIVING C with: DIVIDE A2 INTO B GIVING C END-DIVIDE Problem found at Line 67 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 DIVIDE without an END-DIVIDE DIVIDE A3 BY B GIVING C Suggest replacing: DIVIDE A3 BY B GIVING C with: DIVIDE A3 BY B GIVING C END-DIVIDE Problem found at Line 68 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 DIVIDE without an END-DIVIDE DIVIDE A4 INTO B GIVING C REMAINDER D Suggest replacing: DIVIDE A4 INTO B GIVING C REMAINDER D with: DIVIDE A4 INTO B GIVING C REMAINDER D END-DIVIDE Problem found at Line 69 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 DIVIDE without an END-DIVIDE DIVIDE A5 BY B GIVING C REMAINDER D Suggest replacing: DIVIDE A5 BY B GIVING C REMAINDER D with: DIVIDE A5 BY B GIVING C REMAINDER D END-DIVIDE Problem found at Line 76 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 MULTIPLY without an END-MULTIPLY MULTIPLY A1 BY B Suggest replacing: MULTIPLY A1 BY B with: MULTIPLY A1 BY B END-MULTIPLY Problem found at Line 78 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 MULTIPLY without an END-MULTIPLY MULTIPLY A3 BY B GIVING C Suggest replacing: MULTIPLY A3 BY B GIVING C with: MULTIPLY A3 BY B GIVING C END-MULTIPLY Problem found at Line 80 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A1 Suggest replacing: READ A1 with: READ A1 END-READ Problem found at Line 81 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A2 NEXT RECORD INTO B Suggest replacing: READ A2 NEXT RECORD INTO B with: READ A2 NEXT RECORD INTO B END-READ Problem found at Line 83 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 READ without an END-READ READ A4 INTO B KEY IS C Suggest replacing: READ A4 INTO B KEY IS C with: READ A4 INTO B KEY IS C END-READ Problem found at Line 88 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 RETURN without an END-RETURN RETURN A1 RECORD Suggest replacing: RETURN A1 RECORD with: RETURN A1 RECORD END-RETURN Problem found at Line 89 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 RETURN without an END-RETURN RETURN A2 INTO B Suggest replacing: RETURN A2 INTO B with: RETURN A2 INTO B END-RETURN Problem found at Line 92 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 REWRITE without an END-REWRITE REWRITE A1 Suggest replacing: REWRITE A1 with: REWRITE A1 END-REWRITE Problem found at Line 93 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 REWRITE without an END-REWRITE REWRITE A2 FROM B Suggest replacing: REWRITE A2 FROM B with: REWRITE A2 FROM B END-REWRITE Problem found at Line 103 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 START without an END-START START A1 Suggest replacing: START A1 with: START A1 END-START Problem found at Line 104 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 START without an END-START START A2 KEY GREATER THAN B Suggest replacing: START A2 KEY GREATER THAN B with: START A2 KEY GREATER THAN B END-START Problem found at Line 107 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 STRING without an END-STRING STRING A1 DELIMITED BY SIZE INTO B Suggest replacing: STRING A1 DELIMITED BY SIZE INTO B with: STRING A1 DELIMITED BY SIZE INTO B END-STRING Problem found at Line 108 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 STRING without an END-STRING STRING A2 DELIMITED BY SIZE INTO B WITH POINTER C Suggest replacing: STRING A2 DELIMITED BY SIZE INTO B WITH POINTER C with: STRING A2 DELIMITED BY SIZE INTO B WITH POINTER C END-STRING Problem found at Line 111 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 SUBTRACT without an END-SUBTRACT SUBTRACT A1 FROM B Suggest replacing: SUBTRACT A1 FROM B with: SUBTRACT A1 FROM B END-SUBTRACT Problem found at Line 113 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 SUBTRACT without an END-SUBTRACT SUBTRACT A3 FROM B GIVING C Suggest replacing: SUBTRACT A3 FROM B GIVING C with: SUBTRACT A3 FROM B GIVING C END-SUBTRACT Problem found at Line 115 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 SUBTRACT without an END-SUBTRACT SUBTRACT CORRESPONDING A5 FROM B Suggest replacing: SUBTRACT CORRESPONDING A5 FROM B with: SUBTRACT CORRESPONDING A5 FROM B END-SUBTRACT Problem found at Line 117 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 UNSTRING without an END-UNSTRING UNSTRING A1 INTO B Suggest replacing: UNSTRING A1 INTO B with: UNSTRING A1 INTO B END-UNSTRING Problem found at Line 118 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 UNSTRING without an END-UNSTRING UNSTRING A2 INTO B TALLYING C Suggest replacing: UNSTRING A2 INTO B TALLYING C with: UNSTRING A2 INTO B TALLYING C END-UNSTRING Problem found at Line 124 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 WRITE without an END-WRITE WRITE A1 Suggest replacing: WRITE A1 with: WRITE A1 END-WRITE Problem found at Line 125 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 WRITE without an END-WRITE WRITE A2 FROM B Suggest replacing: WRITE A2 FROM B with: WRITE A2 FROM B END-WRITE Problem found at Line 126 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 WRITE without an END-WRITE WRITE A3 BEFORE ADVANCING PAGE Suggest replacing: WRITE A3 BEFORE ADVANCING PAGE with: WRITE A3 BEFORE ADVANCING PAGE END-WRITE Problem found at Line 127 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 WRITE without an END-WRITE WRITE A4 FROM B BEFORE ADVANCING PAGE Suggest replacing: WRITE A4 FROM B BEFORE ADVANCING PAGE with: WRITE A4 FROM B BEFORE ADVANCING PAGE END-WRITE Problem found at Line 134 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 XML GENERATE without an END-XML XML GENERATE A1 FROM B COUNT IN C Suggest replacing: XML GENERATE A1 FROM B COUNT IN C with: XML GENERATE A1 FROM B COUNT IN C END-XML Problem found at Line 135 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 XML GENERATE without an END-XML XML GENERATE A2 FROM B Suggest replacing: XML GENERATE A2 FROM B with: XML GENERATE A2 FROM B END-XML Problem found at Line 138 Column 8 File C:/users/lakers/styletest4.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 XML PARSE without an END-XML XML PARSE A1 PROCESSING PROCEDURE BAR Suggest replacing: XML PARSE A1 PROCESSING PROCEDURE BAR with: XML PARSE A1 PROCESSING PROCEDURE BAR END-XML Problem found at Line 26 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-EVALUATE-FALSE Rule Group:Procedure-Division Severity:4 EVALUATE FALSE encountered. Suggest changing to EVALUATE TRUE EVALUATE FALSE WHEN FOO1 EQUAL 0 MOVE BAR TO FOO END-EVALUATE Suggest replacing: EVALUATE FALSE WHEN FOO1 EQUAL 0 MOVE BAR TO FOO END-EVALUATE with: EVALUATE TRUE WHEN NOT FOO1 EQUAL 0 MOVE BAR TO FOO END-EVALUATE Problem found at Line 29 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-EVALUATE-FALSE Rule Group:Procedure-Division Severity:4 EVALUATE FALSE encountered. Suggest changing to EVALUATE TRUE EVALUATE FALSE WHEN FOO2 EQUAL 0 MOVE BAR TO FOO Suggest replacing: EVALUATE FALSE WHEN FOO2 EQUAL 0 MOVE BAR TO FOO with: EVALUATE TRUE WHEN NOT FOO2 EQUAL 0 MOVE BAR TO FOO Problem found at Line 31 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-EVALUATE-FALSE Rule Group:Procedure-Division Severity:4 EVALUATE FALSE encountered. Suggest changing to EVALUATE TRUE EVALUATE FALSE WHEN FOO1 EQUAL 0 MOVE BAR TO FOO WHEN OTHER MOVE FOO TO BAR END-EVALUATE Suggest replacing: EVALUATE FALSE WHEN FOO1 EQUAL 0 MOVE BAR TO FOO WHEN OTHER MOVE FOO TO BAR END-EVALUATE with: EVALUATE TRUE WHEN NOT FOO1 EQUAL 0 MOVE BAR TO FOO WHEN OTHER MOVE FOO TO BAR END-EVALUATE Problem found at Line 35 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-EVALUATE-FALSE Rule Group:Procedure-Division Severity:4 EVALUATE FALSE encountered. Suggest changing to EVALUATE TRUE EVALUATE FALSE WHEN FOO2 EQUAL 0 MOVE BAR TO FOO2 WHEN ANY MOVE FOO3 TO BAR WHEN OTHER MOVE FOO2 TO BAR Suggest replacing: EVALUATE FALSE WHEN FOO2 EQUAL 0 MOVE BAR TO FOO2 WHEN ANY MOVE FOO3 TO BAR WHEN OTHER MOVE FOO2 TO BAR with: EVALUATE TRUE WHEN NOT FOO2 EQUAL 0 MOVE BAR TO FOO2 WHEN ANY MOVE FOO3 TO BAR WHEN OTHER MOVE FOO2 TO BAR Problem found at Line 39 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-EVALUATE-FALSE Rule Group:Procedure-Division Severity:4 EVALUATE FALSE encountered. Suggest changing to EVALUATE TRUE EVALUATE FALSE ALSO FOO ALSO BAR WHEN FOO1 ALSO F1 ALSO BAR1 EQUAL 0 MOVE BAR1 TO FOO WHEN FOO1 ALSO ANY ALSO BAR2 EQUAL 0 MOVE BAR2 TO FOO END-EVALUATE The style checker does not currently propose alternatives for this diagnostic with multiple-test EVALUATE statements. Problem found at Line 43 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-EVALUATE-FALSE Rule Group:Procedure-Division Severity:4 EVALUATE FALSE encountered. Suggest changing to EVALUATE TRUE EVALUATE FOO ALSO BAR ALSO FALSE WHEN FOO1 ALSO F1 ALSO BAR1 EQUAL 0 MOVE BAR1 TO FOO WHEN FOO1 ALSO ANY ALSO BAR2 EQUAL 0 MOVE BAR2 TO FOO END-EVALUATE The style checker does not currently propose alternatives for this diagnostic with multiple-test EVALUATE statements. Problem found at Line 47 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-EVALUATE-FALSE Rule Group:Procedure-Division Severity:4 EVALUATE FALSE encountered. Suggest changing to EVALUATE TRUE EVALUATE FOO ALSO FALSE ALSO BAR WHEN FOO1 ALSO F1 ALSO BAR1 EQUAL 0 MOVE BAR1 TO FOO WHEN FOO1 ALSO ANY ALSO BAR2 EQUAL 0 MOVE BAR2 TO FOO END-EVALUATE The style checker does not currently propose alternatives for this diagnostic with multiple-test EVALUATE statements. Problem found at Line 74 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-EVALUATE-FALSE Rule Group:Procedure-Division Severity:4 EVALUATE FALSE encountered. Suggest changing to EVALUATE TRUE EVALUATE FALSE WHEN A EQUAL B MOVE C TO D Suggest replacing: EVALUATE FALSE WHEN A EQUAL B MOVE C TO D with: EVALUATE TRUE WHEN NOT A EQUAL B MOVE C TO D Problem found at Line 75 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-EVALUATE-FALSE Rule Group:Procedure-Division Severity:4 EVALUATE FALSE encountered. Suggest changing to EVALUATE TRUE EVALUATE FALSE WHEN A EQUAL B MOVE C TO D WHEN OTHER MOVE E TO F Suggest replacing: EVALUATE FALSE WHEN A EQUAL B MOVE C TO D WHEN OTHER MOVE E TO F with: EVALUATE TRUE WHEN NOT A EQUAL B MOVE C TO D WHEN OTHER MOVE E TO F Problem found at Line 26 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE FALSE WHEN FOO1 EQUAL 0 MOVE BAR TO FOO END-EVALUATE Problem found at Line 29 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE FALSE WHEN FOO2 EQUAL 0 MOVE BAR TO FOO Problem found at Line 39 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE FALSE ALSO FOO ALSO BAR WHEN FOO1 ALSO F1 ALSO BAR1 EQUAL 0 MOVE BAR1 TO FOO WHEN FOO1 ALSO ANY ALSO BAR2 EQUAL 0 MOVE BAR2 TO FOO END-EVALUATE Problem found at Line 43 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE FOO ALSO BAR ALSO FALSE WHEN FOO1 ALSO F1 ALSO BAR1 EQUAL 0 MOVE BAR1 TO FOO WHEN FOO1 ALSO ANY ALSO BAR2 EQUAL 0 MOVE BAR2 TO FOO END-EVALUATE Problem found at Line 47 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE FOO ALSO FALSE ALSO BAR WHEN FOO1 ALSO F1 ALSO BAR1 EQUAL 0 MOVE BAR1 TO FOO WHEN FOO1 ALSO ANY ALSO BAR2 EQUAL 0 MOVE BAR2 TO FOO END-EVALUATE Problem found at Line 74 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-MISSING-OTHER-IN-EVALUATE Rule Group:Procedure-Division Severity:3 Encountered EVALUATE statement with no WHEN OTHER clause EVALUATE FALSE WHEN A EQUAL B MOVE C TO D Problem found at Line 19 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause SKIP1 * conditional_if_copy_statement_no_else IF X EQUAL 0 THEN MOVE X TO Y COPY FOOBA. Problem found at Line 23 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * conditional_if_then_statement_no_else_1 IF FOO EQUAL 0 MOVE A TO B Problem found at Line 24 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BAR EQUAL 0 THEN NEXT SENTENCE END-IF Problem found at Line 25 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF FOO EQUAL 0 NEXT SENTENCE Problem found at Line 142 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * conditional_if_then_statement_no_else_2 IF BAR EQUAL 0 THEN IF BAZ EQUAL 0 MOVE B TO A Problem found at Line 143 Column 10 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF BAZ EQUAL 0 MOVE B TO A Problem found at Line 145 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause * imperative_if_statement_no_else IF X EQUAL 0 THEN MOVE A TO B END-IF Problem found at Line 24 Column 28 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-NEXT-SENTENCE Rule Group:Procedure-Division Severity:2 Encountered NEXT SENTENCE form, which could be fragile if nearby code changes NEXT SENTENCE Problem found at Line 25 Column 23 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-NEXT-SENTENCE Rule Group:Procedure-Division Severity:2 Encountered NEXT SENTENCE form, which could be fragile if nearby code changes NEXT SENTENCE Problem found at Line 52 Column 27 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-NEXT-SENTENCE Rule Group:Procedure-Division Severity:2 Encountered NEXT SENTENCE form, which could be fragile if nearby code changes NEXT SENTENCE Problem found at Line 80 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A1 Problem found at Line 81 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A2 NEXT RECORD INTO B Problem found at Line 82 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A3 AT END MOVE C TO D Problem found at Line 83 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A4 INTO B KEY IS C Problem found at Line 84 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A5 INTO B INVALID KEY MOVE C TO D Problem found at Line 85 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A6 RECORD INTO B INVALID KEY MOVE C TO D Problem found at Line 86 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A7 RECORD KEY IS E INVALID KEY MOVE C TO D Problem found at Line 87 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ A8 RECORD INTO B KEY IS E INVALID KEY MOVE C TO D Problem found at Line 124 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-WRITE-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered WRITE statement, suggesting I/O not conforming to PEM model WRITE A1 Problem found at Line 125 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-WRITE-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered WRITE statement, suggesting I/O not conforming to PEM model WRITE A2 FROM B Problem found at Line 126 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-WRITE-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered WRITE statement, suggesting I/O not conforming to PEM model WRITE A3 BEFORE ADVANCING PAGE Problem found at Line 127 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-WRITE-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered WRITE statement, suggesting I/O not conforming to PEM model WRITE A4 FROM B BEFORE ADVANCING PAGE Problem found at Line 128 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-WRITE-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered WRITE statement, suggesting I/O not conforming to PEM model WRITE A5 INVALID KEY MOVE C TO D Problem found at Line 129 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-WRITE-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered WRITE statement, suggesting I/O not conforming to PEM model WRITE A6 FROM B INVALID KEY MOVE C TO D Problem found at Line 130 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-WRITE-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered WRITE statement, suggesting I/O not conforming to PEM model WRITE A7 AT EOP MOVE C TO D Problem found at Line 131 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-WRITE-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered WRITE statement, suggesting I/O not conforming to PEM model WRITE A8 BEFORE ADVANCING PAGE AT EOP MOVE C TO D Problem found at Line 132 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-WRITE-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered WRITE statement, suggesting I/O not conforming to PEM model WRITE A9 FROM B AT EOP MOVE C TO D Problem found at Line 133 Column 8 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-WRITE-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered WRITE statement, suggesting I/O not conforming to PEM model WRITE A10 FROM B BEFORE ADVANCING PAGE AT EOP MOVE C TO D Problem found at Line 2 Column 7 File C:/users/lakers/styletest4.cob Rule:FIND-SKIP-DIRECTIVES Rule Group:Miscellaneous Severity:5 SKIP2 directive encountered SKIP2 Problem found at Line 7 Column 7 File C:/users/lakers/styletest4.cob Rule:FIND-SKIP-DIRECTIVES Rule Group:Miscellaneous Severity:5 SKIP3 directive encountered SKIP3 Problem found at Line 12 Column 7 File C:/users/lakers/styletest4.cob Rule:FIND-SKIP-DIRECTIVES Rule Group:Miscellaneous Severity:5 SKIP2 directive encountered SKIP2 Problem found at Line 17 Column 7 File C:/users/lakers/styletest4.cob Rule:FIND-SKIP-DIRECTIVES Rule Group:Miscellaneous Severity:5 SKIP1 directive encountered SKIP1 Problem found at Line 4 Column 7 File C:/users/lakers/styletest4.cob Rule:FIND-EJECT-STATEMENTS-AND-FORMFEED-INDICATORS Rule Group:Miscellaneous Severity:5 EJECT directive encountered EJECT Problem found at Line 3 Column 7 File C:/users/lakers/styletest4.cob Rule:FIND-EJECT-STATEMENTS-AND-FORMFEED-INDICATORS Rule Group:Miscellaneous Severity:5 Formfeed character encountered / Problem found at Line 6 Column 7 File C:/users/lakers/styletest4.cob Rule:FIND-EJECT-STATEMENTS-AND-FORMFEED-INDICATORS Rule Group:Miscellaneous Severity:5 EJECT directive encountered EJECT Problem found at Line 11 Column 7 File C:/users/lakers/styletest4.cob Rule:FIND-EJECT-STATEMENTS-AND-FORMFEED-INDICATORS Rule Group:Miscellaneous Severity:5 EJECT directive encountered EJECT Problem found at Line 14 Column 7 File C:/users/lakers/styletest4.cob Rule:FIND-EJECT-STATEMENTS-AND-FORMFEED-INDICATORS Rule Group:Miscellaneous Severity:5 Formfeed character encountered / Problem found at Line 62 Column 28 File C:/users/lakers/styletest4.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 12 Problem found at Line 140 Column 25 File C:/users/lakers/styletest4.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement MOVE C TO D End of COBOL Style Checker Report for file C:/users/lakers/styletest4.cob -------------------------------------------------------------------------------- COBOL Style Checker Report for file C:/users/lakers/woeri.weo Rule:MALFORMED-PROGRAM Rule Group:Miscellaneous Severity:1 Error encountered in processing of file. Style analysis aborted. The file "C:/users/lakers/woeri.weo" could not be found. See STANDARD-OUTPUT trace for details Subsequent style checks could not be performed on this file. End of COBOL Style Checker Report for file C:/users/lakers/woeri.weo -------------------------------------------------------------------------------- COBOL Style Checker Report for file C:/users/lakers/styletest5.cpy Problem found at Line 2 Column 13 File C:/users/lakers/styletest5.cpy Rule:CHECK-AUTHOR-DECLARATION-IS-PRESENT Rule Group:Documentation Severity:5 No AUTHOR declaration found in IDENTIFICATION DIVISION * Remember to do REPLACING 02 :ABC:-FOO1 VALUE :ABC:-10. 02 :ABC:-10-FOO2 ... End of COBOL Style Checker Report for file C:/users/lakers/styletest5.cpy -------------------------------------------------------------------------------- COBOL Style Checker Report for file C:/users/lakers/styletest6.cob Problem found at Line 23 Column 12 File C:/users/lakers/styletest6.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF NOT FOO:BAR:BIMBO THEN GO TO PROG-EXIT1 Problem found at Line 28 Column 12 File C:/users/lakers/styletest6.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 IF without an END-IF IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 30 Column 10 File C:/users/lakers/styletest6.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT PROG-EXIT1 * COMMENT . EXIT. Problem found at Line 23 Column 12 File C:/users/lakers/styletest6.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF NOT FOO:BAR:BIMBO THEN GO TO PROG-EXIT1 Problem found at Line 28 Column 12 File C:/users/lakers/styletest6.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF NOT FOO THEN GO TO PROG-EXIT1 Problem found at Line 27 Column 8 File C:/users/lakers/styletest6.cob Rule:WARN-ABOUT-PRIORITY-NUMBER-IN-DECLARATIVE Rule Group:Procedure-Division Severity:2 Encountered DECLARATIVES section with explicity priority number. This implies a segmentation scheme intended to handle storage limitations but might also indicate unexpected complexity in the code. * COMMENT SECTION 25. IF NOT FOO THEN GO TO PROG-EXIT1. PROG-EXIT1 * COMMENT . EXIT. Problem found at Line 24 Column 19 File C:/users/lakers/styletest6.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 29 Column 19 File C:/users/lakers/styletest6.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 11 Column 10 File C:/users/lakers/styletest6.cob Rule:WARN-ABOUT-EXEC-SQL-STATEMENT Rule Group:Procedure-Division Severity:2 Encountered EXEC SQL statement, suggesting database access possibly not conforming to PEM model EXEC SQL INCLUDE SQLCA END-EXEC. Problem found at Line 27 Column 16 File C:/users/lakers/styletest6.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 25 Problem found at Line 1 Column 8 File C:/users/lakers/styletest6.cob Rule:MALFORMED-PROGRAM Rule Group:Miscellaneous Severity:1 Error encountered in processing of file. Style analysis aborted. PROCESS DBCS * Program has code that triggers a name resolver trust failure. * Tests whether style checker handles this gracefully. IDENTIFICATION DIVISION. ... Invalid program, name and type resolution could not be performed. NameResolution:GetSymbolScopeOfName -> There is no root symbol name. See STANDARD-OUTPUT trace for details Subsequent style checks could not be performed on this file. End of COBOL Style Checker Report for file C:/users/lakers/styletest6.cob -------------------------------------------------------------------------------- COBOL Style Checker Report for file C:/users/lakers/styletest7.cob Problem found at Line 1 Column 8 File C:/users/lakers/styletest7.cob Rule:CHECK-IDENTIFICATION-DIVISION-HAS-COMMENT Rule Group:Documentation Severity:4 IDENTIFICATION DIVISION has neither a leading comment nor REMARKS paragraph content. IDENTIFICATION DIVISION. PROGRAM-ID. FOO Problem found at Line 1 Column 8 File C:/users/lakers/styletest7.cob Rule:CHECK-AUTHOR-DECLARATION-IS-PRESENT Rule Group:Documentation Severity:5 No AUTHOR declaration found in IDENTIFICATION DIVISION IDENTIFICATION DIVISION. PROGRAM-ID. FOO Problem found at Line 13 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A < 10 AND A > 0 ADD 1 TO A GIVING A END-ADD END-IF Suggest replacing: IF A < 10 AND A > 0 ADD 1 TO A GIVING A END-ADD END-IF with: EVALUATE TRUE WHEN A < 10 AND A > 0 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 16 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A-INDEX < 10 OR A-INDEX > 0 ADD 1 TO A-INDEX GIVING A-INDEX END-ADD END-IF Suggest replacing: IF A-INDEX < 10 OR A-INDEX > 0 ADD 1 TO A-INDEX GIVING A-INDEX END-ADD END-IF with: EVALUATE TRUE WHEN A-INDEX < 10 WHEN A-INDEX > 0 ADD 1 TO A-INDEX GIVING A-INDEX END-ADD WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 19 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A < 10 AND A > 0 ADD FOOBA TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF Suggest replacing: IF A < 10 AND A > 0 ADD FOOBA TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF with: EVALUATE TRUE WHEN A < 10 AND A > 0 ADD FOOBA TO A GIVING A END-ADD WHEN OTHER SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-EVALUATE Problem found at Line 23 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A < 10 OR A > 0 ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF Suggest replacing: IF A < 10 OR A > 0 ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF with: EVALUATE TRUE WHEN A < 10 WHEN A > 0 ADD 1 TO A GIVING A END-ADD WHEN OTHER SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-EVALUATE Problem found at Line 27 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A < 10 AND A > 0 AND B EQUAL 10 ADD 1 TO A GIVING A END-ADD END-IF Suggest replacing: IF A < 10 AND A > 0 AND B EQUAL 10 ADD 1 TO A GIVING A END-ADD END-IF with: EVALUATE TRUE WHEN A < 10 AND A > 0 AND B EQUAL 10 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 30 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A < 10 OR A > 0 OR B EQUAL 10 ADD 1 TO A GIVING A END-ADD END-IF Suggest replacing: IF A < 10 OR A > 0 OR B EQUAL 10 ADD 1 TO A GIVING A END-ADD END-IF with: EVALUATE TRUE WHEN A < 10 WHEN A > 0 WHEN B EQUAL 10 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 33 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A < 10 AND A > 0 AND B EQUAL 10 ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF Suggest replacing: IF A < 10 AND A > 0 AND B EQUAL 10 ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF with: EVALUATE TRUE WHEN A < 10 AND A > 0 AND B EQUAL 10 ADD 1 TO A GIVING A END-ADD WHEN OTHER SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-EVALUATE Problem found at Line 37 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A < 10 OR A > 0 OR B EQUAL 10 ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF Suggest replacing: IF A < 10 OR A > 0 OR B EQUAL 10 ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF with: EVALUATE TRUE WHEN A < 10 WHEN A > 0 WHEN B EQUAL 10 ADD 1 TO A GIVING A END-ADD WHEN OTHER SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-EVALUATE Problem found at Line 41 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A < 10 OR A > 0 AND B EQUAL 10 ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF Suggest replacing: IF A < 10 OR A > 0 AND B EQUAL 10 ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF with: EVALUATE TRUE WHEN A < 10 WHEN A > 0 AND B EQUAL 10 ADD 1 TO A GIVING A END-ADD WHEN OTHER SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-EVALUATE Problem found at Line 46 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A < 10 AND A > 0 OR B EQUAL 10 ADD 1 TO A GIVING A END-ADD END-IF Suggest replacing: IF A < 10 AND A > 0 OR B EQUAL 10 ADD 1 TO A GIVING A END-ADD END-IF with: EVALUATE TRUE WHEN A < 10 AND A > 0 WHEN B EQUAL 10 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 49 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A > 0 OR B EQUAL 10 AND A < 10 ADD 1 TO A GIVING A END-ADD END-IF Suggest replacing: IF A > 0 OR B EQUAL 10 AND A < 10 ADD 1 TO A GIVING A END-ADD END-IF with: EVALUATE TRUE WHEN A > 0 WHEN B EQUAL 10 AND A < 10 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 52 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A < 10 AND (A > 0 OR B EQUAL 10) ADD 1 TO A GIVING A END-ADD END-IF Suggest replacing: IF A < 10 AND (A > 0 OR B EQUAL 10) ADD 1 TO A GIVING A END-ADD END-IF with: EVALUATE TRUE WHEN A < 10 EVALUATE TRUE WHEN A > 0 WHEN B EQUAL 10 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 55 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF (A > 0 OR B EQUAL 10) AND A < 10 ADD 1 TO A GIVING A END-ADD END-IF Suggest replacing: IF (A > 0 OR B EQUAL 10) AND A < 10 ADD 1 TO A GIVING A END-ADD END-IF with: EVALUATE TRUE WHEN A > 0 WHEN B EQUAL 10 EVALUATE TRUE WHEN A < 10 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 59 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A < 10 AND A > 0 OR B EQUAL 10 ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF Suggest replacing: IF A < 10 AND A > 0 OR B EQUAL 10 ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF with: EVALUATE TRUE WHEN A < 10 AND A > 0 WHEN B EQUAL 10 ADD 1 TO A GIVING A END-ADD WHEN OTHER SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-EVALUATE Problem found at Line 63 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A > 0 OR B EQUAL 10 AND A < 10 ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF Suggest replacing: IF A > 0 OR B EQUAL 10 AND A < 10 ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF with: EVALUATE TRUE WHEN A > 0 WHEN B EQUAL 10 AND A < 10 ADD 1 TO A GIVING A END-ADD WHEN OTHER SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-EVALUATE Problem found at Line 67 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A < 10 AND (A > 0 OR B EQUAL 10) ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF Suggest replacing: IF A < 10 AND (A > 0 OR B EQUAL 10) ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF with: EVALUATE TRUE WHEN A < 10 EVALUATE TRUE WHEN A > 0 WHEN B EQUAL 10 ADD 1 TO A GIVING A END-ADD WHEN OTHER SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-EVALUATE WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 71 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF (A > 0 OR B EQUAL 10) AND A < 10 ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF Suggest replacing: IF (A > 0 OR B EQUAL 10) AND A < 10 ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF with: EVALUATE TRUE WHEN A > 0 WHEN B EQUAL 10 EVALUATE TRUE WHEN A < 10 ADD 1 TO A GIVING A END-ADD WHEN OTHER SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-EVALUATE WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 76 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF (A < 10 OR B < 10) AND (A > 0 OR B EQUAL 10) ADD 1 TO A GIVING A END-ADD END-IF Suggest replacing: IF (A < 10 OR B < 10) AND (A > 0 OR B EQUAL 10) ADD 1 TO A GIVING A END-ADD END-IF with: EVALUATE TRUE WHEN A < 10 WHEN B < 10 EVALUATE TRUE WHEN A > 0 WHEN B EQUAL 10 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 79 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A < 10 OR B < 10 AND ((A > 0 OR B < 10) AND B > 0) ADD 1 TO A GIVING A END-ADD END-IF Suggest replacing: IF A < 10 OR B < 10 AND ((A > 0 OR B < 10) AND B > 0) ADD 1 TO A GIVING A END-ADD END-IF with: EVALUATE TRUE WHEN A < 10 WHEN B < 10 AND ((A > 0 OR B < 10) AND B > 0) ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 82 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A < 10 OR B < 10 AND (A > 0 OR B < 10) AND B > 0 ADD 1 TO A GIVING A END-ADD END-IF Suggest replacing: IF A < 10 OR B < 10 AND (A > 0 OR B < 10) AND B > 0 ADD 1 TO A GIVING A END-ADD END-IF with: EVALUATE TRUE WHEN A < 10 WHEN B < 10 AND (A > 0 OR B < 10) AND B > 0 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 85 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF (A < 10 OR B < 10) AND (A > 0 OR B EQUAL 10) ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF Suggest replacing: IF (A < 10 OR B < 10) AND (A > 0 OR B EQUAL 10) ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF with: EVALUATE TRUE WHEN A < 10 WHEN B < 10 EVALUATE TRUE WHEN A > 0 WHEN B EQUAL 10 ADD 1 TO A GIVING A END-ADD WHEN OTHER SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-EVALUATE WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 89 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A < 10 OR B < 10 AND ((A > 0 OR B < 10) AND B > 0) ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF Suggest replacing: IF A < 10 OR B < 10 AND ((A > 0 OR B < 10) AND B > 0) ADD 1 TO A GIVING A END-ADD ELSE SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-IF with: EVALUATE TRUE WHEN A < 10 WHEN B < 10 AND ((A > 0 OR B < 10) AND B > 0) ADD 1 TO A GIVING A END-ADD WHEN OTHER SUBTRACT 1 FROM A GIVING A END-SUBTRACT END-EVALUATE Problem found at Line 93 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A < 10 AND A > 0 IF A = 10 OR A < 5 ADD 1 TO A GIVING A END-ADD END-IF ADD 1 TO A GIVING A END-ADD ELSE IF A > 10 OR A = 0 ADD 1 TO A GIVING A END-ADD END-IF END-IF Suggest replacing: IF A < 10 AND A > 0 IF A = 10 OR A < 5 ADD 1 TO A GIVING A END-ADD END-IF ADD 1 TO A GIVING A END-ADD ELSE IF A > 10 OR A = 0 ADD 1 TO A GIVING A END-ADD END-IF END-IF with: EVALUATE TRUE WHEN A < 10 AND A > 0 EVALUATE TRUE WHEN A = 10 WHEN A < 5 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE ADD 1 TO A GIVING A END-ADD WHEN OTHER EVALUATE TRUE WHEN A > 10 WHEN A = 0 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE END-EVALUATE Problem found at Line 94 Column 14 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A = 10 OR A < 5 ADD 1 TO A GIVING A END-ADD END-IF Suggest replacing: IF A = 10 OR A < 5 ADD 1 TO A GIVING A END-ADD END-IF with: EVALUATE TRUE WHEN A = 10 WHEN A < 5 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 99 Column 14 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A > 10 OR A = 0 ADD 1 TO A GIVING A END-ADD END-IF Suggest replacing: IF A > 10 OR A = 0 ADD 1 TO A GIVING A END-ADD END-IF with: EVALUATE TRUE WHEN A > 10 WHEN A = 0 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE Problem found at Line 104 Column 12 File C:/users/lakers/styletest7.cob Rule:CONVERT-IF-TO-EVALUATE Rule Group:Procedure-Division Severity:3 Replace complex IF statement with equivalent EVALUATE statement. IF A < 10 AND A > 0 EVALUATE TRUE WHEN A = 10 WHEN A < 5 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE ADD 1 TO A GIVING A END-ADD ELSE EVALUATE TRUE WHEN A > 10 WHEN A = 0 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE END-IF Suggest replacing: IF A < 10 AND A > 0 EVALUATE TRUE WHEN A = 10 WHEN A < 5 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE ADD 1 TO A GIVING A END-ADD ELSE EVALUATE TRUE WHEN A > 10 WHEN A = 0 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE END-IF with: EVALUATE TRUE WHEN A < 10 AND A > 0 EVALUATE TRUE WHEN A = 10 WHEN A < 5 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE ADD 1 TO A GIVING A END-ADD WHEN OTHER EVALUATE TRUE WHEN A > 10 WHEN A = 0 ADD 1 TO A GIVING A END-ADD WHEN OTHER CONTINUE END-EVALUATE END-EVALUATE Problem found at Line 13 Column 12 File C:/users/lakers/styletest7.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF A < 10 AND A > 0 ADD 1 TO A GIVING A END-ADD END-IF Problem found at Line 16 Column 12 File C:/users/lakers/styletest7.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF A-INDEX < 10 OR A-INDEX > 0 ADD 1 TO A-INDEX GIVING A-INDEX END-ADD END-IF Problem found at Line 27 Column 12 File C:/users/lakers/styletest7.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF A < 10 AND A > 0 AND B EQUAL 10 ADD 1 TO A GIVING A END-ADD END-IF Problem found at Line 30 Column 12 File C:/users/lakers/styletest7.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF A < 10 OR A > 0 OR B EQUAL 10 ADD 1 TO A GIVING A END-ADD END-IF Problem found at Line 46 Column 12 File C:/users/lakers/styletest7.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF A < 10 AND A > 0 OR B EQUAL 10 ADD 1 TO A GIVING A END-ADD END-IF Problem found at Line 49 Column 12 File C:/users/lakers/styletest7.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF A > 0 OR B EQUAL 10 AND A < 10 ADD 1 TO A GIVING A END-ADD END-IF Problem found at Line 52 Column 12 File C:/users/lakers/styletest7.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF A < 10 AND (A > 0 OR B EQUAL 10) ADD 1 TO A GIVING A END-ADD END-IF Problem found at Line 55 Column 12 File C:/users/lakers/styletest7.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF (A > 0 OR B EQUAL 10) AND A < 10 ADD 1 TO A GIVING A END-ADD END-IF Problem found at Line 76 Column 12 File C:/users/lakers/styletest7.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF (A < 10 OR B < 10) AND (A > 0 OR B EQUAL 10) ADD 1 TO A GIVING A END-ADD END-IF Problem found at Line 79 Column 12 File C:/users/lakers/styletest7.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF A < 10 OR B < 10 AND ((A > 0 OR B < 10) AND B > 0) ADD 1 TO A GIVING A END-ADD END-IF Problem found at Line 82 Column 12 File C:/users/lakers/styletest7.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF A < 10 OR B < 10 AND (A > 0 OR B < 10) AND B > 0 ADD 1 TO A GIVING A END-ADD END-IF Problem found at Line 94 Column 14 File C:/users/lakers/styletest7.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF A = 10 OR A < 5 ADD 1 TO A GIVING A END-ADD END-IF Problem found at Line 99 Column 14 File C:/users/lakers/styletest7.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF A > 10 OR A = 0 ADD 1 TO A GIVING A END-ADD END-IF Problem found at Line 13 Column 19 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 16 Column 25 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 19 Column 19 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 23 Column 19 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 27 Column 19 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 27 Column 44 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 30 Column 19 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 30 Column 42 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 33 Column 19 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 33 Column 44 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 37 Column 19 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 37 Column 42 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 41 Column 19 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 41 Column 43 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 46 Column 19 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 46 Column 43 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 49 Column 32 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 49 Column 43 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 52 Column 19 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 52 Column 44 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 55 Column 33 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 55 Column 45 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 59 Column 19 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 59 Column 43 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 63 Column 32 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 63 Column 43 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 67 Column 19 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 67 Column 44 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 71 Column 33 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 71 Column 45 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 76 Column 20 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 76 Column 30 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 76 Column 56 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 79 Column 19 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 79 Column 29 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 79 Column 51 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 82 Column 19 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 82 Column 29 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 82 Column 50 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 85 Column 20 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 85 Column 30 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 85 Column 56 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 89 Column 19 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 89 Column 29 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 89 Column 51 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 93 Column 19 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 94 Column 21 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 94 Column 31 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 5 Problem found at Line 99 Column 21 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 104 Column 19 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 106 Column 23 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 107 Column 23 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 5 Problem found at Line 118 Column 23 File C:/users/lakers/styletest7.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 7 Column 11 File C:/users/lakers/styletest7.cob Line 16 Column 15 File C:/users/lakers/styletest7.cob Line 16 Column 31 File C:/users/lakers/styletest7.cob Line 17 Column 23 File C:/users/lakers/styletest7.cob Line 17 Column 38 File C:/users/lakers/styletest7.cob Rule:CHECK-INDEX-VARIABLE-NAME-CONVENTION Rule Group:Naming-conventions Severity:4 Variable name suggests it is an index variable, but it is not declared with an INDEXED BY phrase within an OCCURS clause. A-INDEX The identifier A-INDEX is used in the following locations: Line 7 Column 11 File C:/users/lakers/styletest7.cob Line 16 Column 15 File C:/users/lakers/styletest7.cob Line 16 Column 31 File C:/users/lakers/styletest7.cob Line 17 Column 23 File C:/users/lakers/styletest7.cob Line 17 Column 38 File C:/users/lakers/styletest7.cob Problem found at Line 11 Column 27 File C:/users/lakers/styletest7.cob Line 20 Column 18 File C:/users/lakers/styletest7.cob Rule:CHECK-INDEX-VARIABLE-NAME-CONVENTION Rule Group:Naming-conventions Severity:4 The name of index variable does not indicate it is an index. Suggest renaming. FOOBA The identifier FOOBA is used in the following locations: Line 11 Column 27 File C:/users/lakers/styletest7.cob Line 20 Column 18 File C:/users/lakers/styletest7.cob Problem found at Line 10 Column 16 File C:/users/lakers/styletest7.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program COPYN Problem found at Line 9 Column 12 File C:/users/lakers/styletest7.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program SIM-COPY End of COBOL Style Checker Report for file C:/users/lakers/styletest7.cob -------------------------------------------------------------------------------- COBOL Style Checker Report for file C:/users/lakers/styletest8.cob Problem found at Line 7 Column 8 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REMARKS Rule Group:Documentation Severity:3 Encountered REMARKS paragraph, which is not supported in Enterprise COBOL. Suggest turning each line into a comment. SKIP3 REMARKS. not much Problem found at Line 80 Column 12 File C:/users/lakers/styletest8.cob Rule:CHECK-SECTION-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:4 Section has no comment FOO SECTION. MOVE T1 TO T22 SKIP2 ***************************************************************** ... Problem found at Line 94 Column 12 File C:/users/lakers/styletest8.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment FOO. MOVE T1 TO SIM-COPY (5) MOVE T1 TO SIM-TITLE2 (ALL) T22 (ALL) ... Problem found at Line 18 Column 16 File C:/users/lakers/styletest8.cob Rule:CHECK-NUMERIC-DECLARATIONS-HAVE-VALUE-CLAUSES Rule Group:Data-declarations Severity:3 Numeric data declaration should have VALUE clause. 05 SW-KEY PIC S9 COMP-3. 88 NO-KEY-PASSED VALUE ZERO. 88 CONTRACT-KEY-ONLY VALUE +1. 88 PLAN-KEY-ONLY VALUE +2. 88 BOTH-KEYS-PASSED VALUE +3. Problem found at Line 23 Column 16 File C:/users/lakers/styletest8.cob Rule:CHECK-NUMERIC-DECLARATIONS-HAVE-VALUE-CLAUSES Rule Group:Data-declarations Severity:3 Numeric data declaration should have VALUE clause. 05 SW-LOOP PIC S9 COMP-3. 88 BEGIN-LOOP VALUE +0. 88 LOOP-FINISHED VALUE +1. Problem found at Line 26 Column 16 File C:/users/lakers/styletest8.cob Rule:CHECK-NUMERIC-DECLARATIONS-HAVE-VALUE-CLAUSES Rule Group:Data-declarations Severity:3 Numeric data declaration should have VALUE clause. 05 SW-CONTRIB-TYPE PIC S9 COMP-3. 88 CONTRIB-TYPE-NOT-FOUND VALUE +0. 88 CONTRIB-TYPE-FOUND VALUE +1. Problem found at Line 29 Column 16 File C:/users/lakers/styletest8.cob Rule:CHECK-NUMERIC-DECLARATIONS-HAVE-VALUE-CLAUSES Rule Group:Data-declarations Severity:3 Numeric data declaration should have VALUE clause. 05 SW-CONTRIB-ID PIC S9 COMP-3. 88 CONTRIB-ID-NOT-FOUND VALUE +0. 88 CONTRIB-ID-NOT-FOUND VALUE +1. Problem found at Line 131 Column 26 File C:/users/lakers/styletest8.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 STRING without an END-STRING STRING ' ' DELIMITED BY SIZE PDU-NAME (SUB-1) DELIMITED BY ' ' INTO T1 Suggest replacing: STRING ' ' DELIMITED BY SIZE PDU-NAME (SUB-1) DELIMITED BY ' ' INTO T1 with: STRING ' ' DELIMITED BY SIZE PDU-NAME (SUB-1) DELIMITED BY ' ' INTO T1 END-STRING Problem found at Line 134 Column 26 File C:/users/lakers/styletest8.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 STRING without an END-STRING STRING ' ' DELIMITED BY SIZE PDU-NAME (SUB-1) DELIMITED BY ' ' INTO WORK-AREAS Suggest replacing: STRING ' ' DELIMITED BY SIZE PDU-NAME (SUB-1) DELIMITED BY ' ' INTO WORK-AREAS with: STRING ' ' DELIMITED BY SIZE PDU-NAME (SUB-1) DELIMITED BY ' ' INTO WORK-AREAS END-STRING Problem found at Line 137 Column 26 File C:/users/lakers/styletest8.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 STRING without an END-STRING STRING ' ' DELIMITED BY SIZE PDU-NAME (SUB-1) DELIMITED BY ' ' INTO BEGIN-LOOP Suggest replacing: STRING ' ' DELIMITED BY SIZE PDU-NAME (SUB-1) DELIMITED BY ' ' INTO BEGIN-LOOP with: STRING ' ' DELIMITED BY SIZE PDU-NAME (SUB-1) DELIMITED BY ' ' INTO BEGIN-LOOP END-STRING Problem found at Line 3 Column 7 File C:/users/lakers/styletest8.cob Rule:FIND-SKIP-DIRECTIVES Rule Group:Miscellaneous Severity:5 SKIP2 directive encountered SKIP2 Problem found at Line 6 Column 7 File C:/users/lakers/styletest8.cob Rule:FIND-SKIP-DIRECTIVES Rule Group:Miscellaneous Severity:5 SKIP3 directive encountered SKIP3 Problem found at Line 10 Column 7 File C:/users/lakers/styletest8.cob Rule:FIND-SKIP-DIRECTIVES Rule Group:Miscellaneous Severity:5 SKIP2 directive encountered SKIP2 Problem found at Line 13 Column 7 File C:/users/lakers/styletest8.cob Rule:FIND-SKIP-DIRECTIVES Rule Group:Miscellaneous Severity:5 SKIP2 directive encountered SKIP2 Problem found at Line 35 Column 7 File C:/users/lakers/styletest8.cob Rule:FIND-SKIP-DIRECTIVES Rule Group:Miscellaneous Severity:5 SKIP2 directive encountered SKIP2 Problem found at Line 82 Column 7 File C:/users/lakers/styletest8.cob Rule:FIND-SKIP-DIRECTIVES Rule Group:Miscellaneous Severity:5 SKIP2 directive encountered SKIP2 Problem found at Line 91 Column 17 File C:/users/lakers/styletest8.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 95 Column 32 File C:/users/lakers/styletest8.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 5 Problem found at Line 98 Column 34 File C:/users/lakers/styletest8.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 3 Problem found at Line 98 Column 36 File C:/users/lakers/styletest8.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 5 Problem found at Line 98 Column 43 File C:/users/lakers/styletest8.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 3 Problem found at Line 98 Column 45 File C:/users/lakers/styletest8.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 5 Problem found at Line 98 Column 62 File C:/users/lakers/styletest8.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 3 Problem found at Line 98 Column 64 File C:/users/lakers/styletest8.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 5 Problem found at Line 99 Column 26 File C:/users/lakers/styletest8.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 3 Problem found at Line 99 Column 28 File C:/users/lakers/styletest8.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 5 Problem found at Line 99 Column 41 File C:/users/lakers/styletest8.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 3 Problem found at Line 99 Column 43 File C:/users/lakers/styletest8.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 5 Problem found at Line 99 Column 58 File C:/users/lakers/styletest8.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 3 Problem found at Line 99 Column 60 File C:/users/lakers/styletest8.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 5 Problem found at Line 108 Column 31 File C:/users/lakers/styletest8.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 109 Column 31 File C:/users/lakers/styletest8.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 103 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-INCONSISTENT-MOVE-ARGUMENTS Rule Group:Procedure-Division Severity:1 Inconsistent types in source 'MOOVA' and target SW-CONTRIB-TYPE of MOVE statement * SW-CONTRIB-TYPE is numeric MOVE 'MOOVA' TO SW-CONTRIB-TYPE Problem found at Line 104 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-INCONSISTENT-MOVE-ARGUMENTS Rule Group:Procedure-Division Severity:1 Inconsistent types in source NULL and target SW-CONTRIB-TYPE of MOVE statement MOVE NULL TO SW-CONTRIB-TYPE Problem found at Line 105 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-INCONSISTENT-MOVE-ARGUMENTS Rule Group:Procedure-Division Severity:1 Inconsistent types in source LENGTH OF SW-CONTRIB-TYPE and target T111 of MOVE statement MOVE LENGTH OF SW-CONTRIB-TYPE TO T111 Problem found at Line 106 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-INCONSISTENT-MOVE-ARGUMENTS Rule Group:Procedure-Division Severity:1 Inconsistent types in source FUNCTION RANDOM () and target T111 of MOVE statement MOVE FUNCTION RANDOM () TO T111 Problem found at Line 110 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-INCONSISTENT-MOVE-ARGUMENTS Rule Group:Procedure-Division Severity:1 Inconsistent types in source FUNCTION T111 and target T111 of MOVE statement MOVE FUNCTION T111 TO T111 Problem found at Line 113 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-INCONSISTENT-MOVE-ARGUMENTS Rule Group:Procedure-Division Severity:1 Inconsistent types in source 1 and target T111 of MOVE statement MOVE 1 TO T111 Problem found at Line 117 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-INCONSISTENT-MOVE-ARGUMENTS Rule Group:Procedure-Division Severity:1 Inconsistent types in source SW-KEY and target T111 of MOVE statement MOVE SW-KEY TO T111 SW-CONTRIB-TYPE Problem found at Line 119 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-INCONSISTENT-MOVE-ARGUMENTS Rule Group:Procedure-Division Severity:1 Inconsistent types in source T111 and target SW-KEY of MOVE statement * T24 is alphanumeric MOVE T111 TO SW-KEY T24 Problem found at Line 127 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-INCONSISTENT-MOVE-ARGUMENTS Rule Group:Procedure-Division Severity:1 Corresponding data items named T2 are not of equivalent type for MOVE CORRESPONDING. MOVE CORRESPONDING SIM-SUBTITLE6 TO SIM-SUBTITLE4 Problem found at Line 90 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object SIM-TITLE2 * SIM-TITLE2 is a group, T22 is alphanumeric, SIM-COPY is a group * multiply defined T2 is alphanumeric multiply defined, SIM-TITLE * is a group MOVE T1 TO SIM-TITLE2 T22 SIM-COPY T2 SIM-TITLE SW-KEY Problem found at Line 90 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object SIM-TITLE * SIM-TITLE2 is a group, T22 is alphanumeric, SIM-COPY is a group * multiply defined T2 is alphanumeric multiply defined, SIM-TITLE * is a group MOVE T1 TO SIM-TITLE2 T22 SIM-COPY T2 SIM-TITLE SW-KEY Problem found at Line 93 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object SWITCHES * WORK-AREAS is a group MOVE 1 TO SWITCHES T1 WORK-AREAS Problem found at Line 93 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object WORK-AREAS * WORK-AREAS is a group MOVE 1 TO SWITCHES T1 WORK-AREAS Problem found at Line 96 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object SIM-TITLE2 MOVE T1 TO SIM-TITLE2 (ALL) T22 (ALL) SIM-COPY (ALL) T2 (ALL) SIM-TITLE (ALL) SW-KEY (ALL) Problem found at Line 96 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object SIM-TITLE MOVE T1 TO SIM-TITLE2 (ALL) T22 (ALL) SIM-COPY (ALL) T2 (ALL) SIM-TITLE (ALL) SW-KEY (ALL) Problem found at Line 98 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object SIM-TITLE2 MOVE T1 TO SIM-TITLE2 (3 : 5) T22 (3 : 5) SIM-COPY (ALL) (3 : 5) T2 (3 : 5) SIM-TITLE (3 : 5) SW-KEY (ALL) (3 : 5) Problem found at Line 98 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object SIM-TITLE MOVE T1 TO SIM-TITLE2 (3 : 5) T22 (3 : 5) SIM-COPY (ALL) (3 : 5) T2 (3 : 5) SIM-TITLE (3 : 5) SW-KEY (ALL) (3 : 5) Problem found at Line 124 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE CORRESPONDING to group containing group level object SIM-SUBTITLE3 MOVE CORRESPONDING SIM-SUBTITLE TO SIM-SUBTITLE3 Problem found at Line 128 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE CORRESPONDING to group containing group level object GROUP2 MOVE CORRESPONDING GROUP1 TO GROUP2 Problem found at Line 98 Column 23 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-GROUP-LEVEL-REFERENCE-MODIFICATION Rule Group:Procedure-Division Severity:2 Reference modification applied to group level object SIM-TITLE2 SIM-TITLE2 (3 : 5) Problem found at Line 99 Column 31 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-GROUP-LEVEL-REFERENCE-MODIFICATION Rule Group:Procedure-Division Severity:2 Reference modification applied to group level object SIM-TITLE SIM-TITLE (3 : 5) Problem found at Line 134 Column 26 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-STRING-INTO-GROUP-LEVEL-ITEM Rule Group:Procedure-Division Severity:2 Aggregate STRING to group level object WORK-AREAS STRING ' ' DELIMITED BY SIZE PDU-NAME (SUB-1) DELIMITED BY ' ' INTO WORK-AREAS Problem found at Line 47 Column 12 File C:/users/lakers/styletest8.cob Line 49 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier SIM-COPY The identifier SIM-COPY is declared at both line 47 column 12 and at line 49 column 12. Problem found at Line 30 Column 24 File C:/users/lakers/styletest8.cob Line 31 Column 24 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier CONTRIB-ID-NOT-FOUND The identifier CONTRIB-ID-NOT-FOUND is declared at both line 30 column 24 and at line 31 column 24. Problem found at Line 5 Column 20 File C:/users/lakers/styletest8.cob Line 80 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier FOO The identifier FOO is declared at both line 5 column 20 and at line 80 column 20. Problem found at Line 40 Column 16 File C:/users/lakers/styletest8.cob Line 45 Column 16 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier T3 The identifier T3 is declared at both line 40 column 16 and at line 45 column 16. Problem found at Line 48 Column 16 File C:/users/lakers/styletest8.cob Line 50 Column 16 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier COPYN The identifier COPYN is declared at both line 48 column 16 and at line 50 column 16. Problem found at Line 38 Column 16 File C:/users/lakers/styletest8.cob Line 53 Column 16 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier T1 The identifier T1 is declared at both line 38 column 16 and at line 53 column 16. Problem found at Line 39 Column 16 File C:/users/lakers/styletest8.cob Line 54 Column 16 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier T2 The identifier T2 is declared at both line 39 column 16 and at line 54 column 16. Problem found at Line 43 Column 16 File C:/users/lakers/styletest8.cob Line 56 Column 16 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier T21 The identifier T21 is declared at both line 43 column 16 and at line 56 column 16. Problem found at Line 44 Column 16 File C:/users/lakers/styletest8.cob Line 57 Column 16 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier T22 The identifier T22 is declared at both line 44 column 16 and at line 57 column 16. Problem found at Line 52 Column 12 File C:/users/lakers/styletest8.cob Line 59 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier SIM-SUBTITLE The identifier SIM-SUBTITLE is declared at both line 52 column 12 and at line 59 column 12. Problem found at Line 55 Column 12 File C:/users/lakers/styletest8.cob Line 62 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier SIM-SUBTITLE2 The identifier SIM-SUBTITLE2 is declared at both line 55 column 12 and at line 62 column 12. Problem found at Line 38 Column 16 File C:/users/lakers/styletest8.cob Line 60 Column 16 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier T1 The identifier T1 is declared at both line 38 column 16 and at line 60 column 16. Problem found at Line 39 Column 16 File C:/users/lakers/styletest8.cob Line 61 Column 16 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier T2 The identifier T2 is declared at both line 39 column 16 and at line 61 column 16. Problem found at Line 43 Column 16 File C:/users/lakers/styletest8.cob Line 63 Column 16 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier T21 The identifier T21 is declared at both line 43 column 16 and at line 63 column 16. Problem found at Line 44 Column 16 File C:/users/lakers/styletest8.cob Line 64 Column 16 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier T22 The identifier T22 is declared at both line 44 column 16 and at line 64 column 16. Problem found at Line 38 Column 16 File C:/users/lakers/styletest8.cob Line 66 Column 16 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier T1 The identifier T1 is declared at both line 38 column 16 and at line 66 column 16. Problem found at Line 38 Column 16 File C:/users/lakers/styletest8.cob Line 70 Column 19 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier T1 The identifier T1 is declared at both line 38 column 16 and at line 70 column 16. Problem found at Line 39 Column 16 File C:/users/lakers/styletest8.cob Line 71 Column 19 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier T2 The identifier T2 is declared at both line 39 column 16 and at line 71 column 16. Problem found at Line 68 Column 24 File C:/users/lakers/styletest8.cob Line 75 Column 24 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier ID-NOT-FOUND The identifier ID-NOT-FOUND is declared at both line 68 column 24 and at line 75 column 24. Problem found at Line 67 Column 24 File C:/users/lakers/styletest8.cob Line 74 Column 24 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier ID-FOUND The identifier ID-FOUND is declared at both line 67 column 24 and at line 74 column 24. Problem found at Line 38 Column 16 File C:/users/lakers/styletest8.cob Line 77 Column 19 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier T1 The identifier T1 is declared at both line 38 column 16 and at line 77 column 16. Problem found at Line 39 Column 16 File C:/users/lakers/styletest8.cob Line 78 Column 19 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier T2 The identifier T2 is declared at both line 39 column 16 and at line 78 column 16. Problem found at Line 5 Column 20 File C:/users/lakers/styletest8.cob Line 94 Column 12 File C:/users/lakers/styletest8.cob Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier FOO The identifier FOO is declared at both line 5 column 20 and at line 94 column 20. End of COBOL Style Checker Report for file C:/users/lakers/styletest8.cob -------------------------------------------------------------------------------- COBOL Style Checker Report for file C:/users/lakers/cblbit77.cbl Problem found at Line 1 Column 8 File C:/users/lakers/cblbit77.cbl Rule:CHECK-IDENTIFICATION-DIVISION-HAS-COMMENT Rule Group:Documentation Severity:4 IDENTIFICATION DIVISION has neither a leading comment nor REMARKS paragraph content. IDENTIFICATION DIVISION. PROGRAM-ID. CBLBITC1. AUTHOR. SIMOTIME ENTERPRISES. Problem found at Line 39 Column 8 File C:/users/lakers/PASSBITS.CPY Line 175 Column 8 File C:/users/lakers/cblbit77.cbl Line 176 Column 8 File C:/users/lakers/cblbit77.cbl Line 198 Column 8 File C:/users/lakers/cblbit77.cbl Line 199 Column 8 File C:/users/lakers/cblbit77.cbl Line 212 Column 8 File C:/users/lakers/cblbit77.cbl Rule:COLLECT-77-LEVEL-DECLARATIONS Rule Group:Data-declarations Severity:3 Encountered one or more 77 level declarations. Suggest consolidation into an 01 level declaration. COPY PASSBITS. ***************************************************************** * BTS-PASS-REQUEST values when calling SIMOBITS. * ------------------------------------------------------------ 77 REQUEST-4-EXPAND PIC X(8) VALUE 'EXPAND '. 77 REQUEST-4-COMPRESS PIC X(8) VALUE 'COMPRESS'. 77 ZERO-VALUE PIC 9 VALUE 0. 77 MINUS-ONE PIC S9 VALUE -1. 77 ALPHABET-UPPER PIC X(26) VALUE 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'. Suggest deleting: COPY PASSBITS. Suggest deleting: ***************************************************************** * BTS-PASS-REQUEST values when calling SIMOBITS. * ------------------------------------------------------------ 77 REQUEST-4-EXPAND PIC X(8) VALUE 'EXPAND '. Suggest deleting: 77 REQUEST-4-COMPRESS PIC X(8) VALUE 'COMPRESS'. Suggest deleting: 77 ZERO-VALUE PIC 9 VALUE 0. Suggest deleting: 77 MINUS-ONE PIC S9 VALUE -1. Suggest deleting: 77 ALPHABET-UPPER PIC X(26) VALUE 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'. Suggest inserting: 01 COLLECTED-77-DECLS. COPY PASSBITS. 05 REQUEST-4-EXPAND PIC X(8) VALUE 'EXPAND '. 05 REQUEST-4-COMPRESS PIC X(8) VALUE 'COMPRESS'. 05 ZERO-VALUE PIC 9 VALUE 0. 05 MINUS-ONE PIC S9 VALUE -1. 05 ALPHABET-UPPER PIC X(26) VALUE 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'. before: COPY PASSBITS. Gathering literal constant data declarations originally expressed as 77 level declarations in the WORKING-STORAGE section into an 01 level declaration whose constituents are 05 declarations derived from the 77 level declarations may help with program readability and maintenance. Problem found at Line 26 Column 12 File C:/users/lakers/PASSBITS.CPY Rule:CHECK-NUMERIC-DECLARATIONS-HAVE-VALUE-CLAUSES Rule Group:Data-declarations Severity:3 Numeric data declaration should have VALUE clause. COPY PASSBITS. Problem found at Line 221 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM Z-POST-COPYRIGHT Problem found at Line 223 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM BYTES-TO-BITS-COMPRESS Problem found at Line 225 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM BITS-TO-BYTES-EXPAND Problem found at Line 227 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM ALPHABET-DUMP Problem found at Line 229 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM COBOL-UNPACK Problem found at Line 231 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM Z-THANK-YOU Problem found at Line 240 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM Z-POST-MESSAGE Problem found at Line 253 Column 16 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM Z-POST-MESSAGE Problem found at Line 262 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM Z-POST-MESSAGE Problem found at Line 268 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM DISPLAY-BYTES Problem found at Line 274 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM DISPLAY-BYTES Problem found at Line 280 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM DISPLAY-BYTES Problem found at Line 286 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM DISPLAY-BYTES Problem found at Line 294 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM Z-POST-MESSAGE Problem found at Line 300 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM DISPLAY-BYTES Problem found at Line 306 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM DISPLAY-BYTES Problem found at Line 312 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM DISPLAY-BYTES Problem found at Line 318 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM DISPLAY-BYTES Problem found at Line 334 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM Z-POST-MESSAGE Problem found at Line 379 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM COBOL-UNPACK-UNITS Problem found at Line 396 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM Z-POST-MESSAGE Problem found at Line 424 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM Z-POST-MESSAGE Problem found at Line 242 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO ZERO GIVING IX-1 Suggest replacing: ADD 1 TO ZERO GIVING IX-1 with: ADD 1 TO ZERO GIVING IX-1 END-ADD Problem found at Line 246 Column 16 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL CALL 'SIMOBITS' USING BTS-PASS-AREA Suggest replacing: CALL 'SIMOBITS' USING BTS-PASS-AREA with: CALL 'SIMOBITS' USING BTS-PASS-AREA END-CALL Problem found at Line 254 Column 16 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO IX-1 Suggest replacing: ADD 1 TO IX-1 with: ADD 1 TO IX-1 END-ADD Problem found at Line 266 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL CALL 'SIMOBITS' USING BTS-PASS-AREA Suggest replacing: CALL 'SIMOBITS' USING BTS-PASS-AREA with: CALL 'SIMOBITS' USING BTS-PASS-AREA END-CALL Problem found at Line 272 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL CALL 'SIMOBITS' USING BTS-PASS-AREA Suggest replacing: CALL 'SIMOBITS' USING BTS-PASS-AREA with: CALL 'SIMOBITS' USING BTS-PASS-AREA END-CALL Problem found at Line 278 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL CALL 'SIMOBITS' USING BTS-PASS-AREA Suggest replacing: CALL 'SIMOBITS' USING BTS-PASS-AREA with: CALL 'SIMOBITS' USING BTS-PASS-AREA END-CALL Problem found at Line 284 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL CALL 'SIMOBITS' USING BTS-PASS-AREA Suggest replacing: CALL 'SIMOBITS' USING BTS-PASS-AREA with: CALL 'SIMOBITS' USING BTS-PASS-AREA END-CALL Problem found at Line 298 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL CALL 'SIMOBITS' USING BTS-PASS-AREA Suggest replacing: CALL 'SIMOBITS' USING BTS-PASS-AREA with: CALL 'SIMOBITS' USING BTS-PASS-AREA END-CALL Problem found at Line 304 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL CALL 'SIMOBITS' USING BTS-PASS-AREA Suggest replacing: CALL 'SIMOBITS' USING BTS-PASS-AREA with: CALL 'SIMOBITS' USING BTS-PASS-AREA END-CALL Problem found at Line 310 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL CALL 'SIMOBITS' USING BTS-PASS-AREA Suggest replacing: CALL 'SIMOBITS' USING BTS-PASS-AREA with: CALL 'SIMOBITS' USING BTS-PASS-AREA END-CALL Problem found at Line 316 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL CALL 'SIMOBITS' USING BTS-PASS-AREA Suggest replacing: CALL 'SIMOBITS' USING BTS-PASS-AREA with: CALL 'SIMOBITS' USING BTS-PASS-AREA END-CALL Problem found at Line 337 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD *! Do the UNPACK the easy way... ADD PACK-03 TO ZERO GIVING UNPACKED-5 Suggest replacing: *! Do the UNPACK the easy way... ADD PACK-03 TO ZERO GIVING UNPACKED-5 with: *! Do the UNPACK the easy way... ADD PACK-03 TO ZERO GIVING UNPACKED-5 END-ADD Problem found at Line 346 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL CALL 'SIMOBITS' USING BTS-PASS-AREA Suggest replacing: CALL 'SIMOBITS' USING BTS-PASS-AREA with: CALL 'SIMOBITS' USING BTS-PASS-AREA END-CALL Problem found at Line 351 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL CALL 'SIMOBITS' USING BTS-PASS-AREA Suggest replacing: CALL 'SIMOBITS' USING BTS-PASS-AREA with: CALL 'SIMOBITS' USING BTS-PASS-AREA END-CALL Problem found at Line 356 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO ZERO GIVING IX-1 Suggest replacing: ADD 1 TO ZERO GIVING IX-1 with: ADD 1 TO ZERO GIVING IX-1 END-ADD Problem found at Line 357 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO ZERO GIVING IX-2 Suggest replacing: ADD 1 TO ZERO GIVING IX-2 with: ADD 1 TO ZERO GIVING IX-2 END-ADD Problem found at Line 358 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 3 TO ZERO GIVING IX-3 Suggest replacing: ADD 3 TO ZERO GIVING IX-3 with: ADD 3 TO ZERO GIVING IX-3 END-ADD Problem found at Line 362 Column 16 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL CALL 'SIMOBITS' USING BTS-PASS-AREA Suggest replacing: CALL 'SIMOBITS' USING BTS-PASS-AREA with: CALL 'SIMOBITS' USING BTS-PASS-AREA END-CALL Problem found at Line 369 Column 16 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL CALL 'SIMOBITS' USING BTS-PASS-AREA Suggest replacing: CALL 'SIMOBITS' USING BTS-PASS-AREA with: CALL 'SIMOBITS' USING BTS-PASS-AREA END-CALL Problem found at Line 371 Column 16 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO IX-2 Suggest replacing: ADD 1 TO IX-2 with: ADD 1 TO IX-2 END-ADD Problem found at Line 373 Column 16 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL CALL 'SIMOBITS' USING BTS-PASS-AREA Suggest replacing: CALL 'SIMOBITS' USING BTS-PASS-AREA with: CALL 'SIMOBITS' USING BTS-PASS-AREA END-CALL Problem found at Line 375 Column 16 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 SUBTRACT without an END-SUBTRACT SUBTRACT 1 FROM IX-3 Suggest replacing: SUBTRACT 1 FROM IX-3 with: SUBTRACT 1 FROM IX-3 END-SUBTRACT Problem found at Line 376 Column 16 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO IX-2 Suggest replacing: ADD 1 TO IX-2 with: ADD 1 TO IX-2 END-ADD Problem found at Line 377 Column 16 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 1 TO IX-1 Suggest replacing: ADD 1 TO IX-1 with: ADD 1 TO IX-1 END-ADD Problem found at Line 403 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL CALL 'SIMOBITS' USING BTS-PASS-AREA Suggest replacing: CALL 'SIMOBITS' USING BTS-PASS-AREA with: CALL 'SIMOBITS' USING BTS-PASS-AREA END-CALL Problem found at Line 414 Column 12 File C:/users/lakers/cblbit77.cbl Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 CALL without an END-CALL * move EIGHT-BYTES(5:4) to BTS-PASS-BYTES(1:4) CALL 'SIMOBITS' USING BTS-PASS-AREA Suggest replacing: * move EIGHT-BYTES(5:4) to BTS-PASS-BYTES(1:4) CALL 'SIMOBITS' USING BTS-PASS-AREA with: * move EIGHT-BYTES(5:4) to BTS-PASS-BYTES(1:4) CALL 'SIMOBITS' USING BTS-PASS-AREA END-CALL Problem found at Line 244 Column 20 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 26 Problem found at Line 249 Column 57 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 249 Column 60 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 03 Problem found at Line 250 Column 57 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 17 Problem found at Line 251 Column 38 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 4 Problem found at Line 251 Column 57 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 40 Problem found at Line 251 Column 60 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 4 Problem found at Line 252 Column 36 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 5 Problem found at Line 252 Column 38 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 4 Problem found at Line 252 Column 57 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 45 Problem found at Line 252 Column 60 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 4 Problem found at Line 353 Column 56 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 5 Problem found at Line 353 Column 58 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 4 Problem found at Line 358 Column 16 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 3 Problem found at Line 368 Column 35 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 4 Problem found at Line 368 Column 59 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 5 Problem found at Line 368 Column 61 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 4 Problem found at Line 372 Column 33 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 5 Problem found at Line 372 Column 35 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 4 Problem found at Line 372 Column 59 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 5 Problem found at Line 372 Column 61 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 4 Problem found at Line 412 Column 31 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 4 Problem found at Line 412 Column 55 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 5 Problem found at Line 412 Column 57 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 4 Problem found at Line 420 Column 58 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 16 Problem found at Line 421 Column 34 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 4 Problem found at Line 421 Column 56 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 17 Problem found at Line 421 Column 59 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 4 Problem found at Line 422 Column 56 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 21 Problem found at Line 423 Column 32 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 5 Problem found at Line 423 Column 34 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 4 Problem found at Line 423 Column 56 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 22 Problem found at Line 423 Column 59 File C:/users/lakers/cblbit77.cbl Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 4 Problem found at Line 249 Column 16 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-INCONSISTENT-MOVE-ARGUMENTS Rule Group:Procedure-Division Severity:1 Inconsistent types in source IX-1 and target MESSAGE-TEXT (10 : 03) of MOVE statement MOVE IX-1 TO MESSAGE-TEXT (10 : 03) Problem found at Line 345 Column 12 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-INCONSISTENT-MOVE-ARGUMENTS Rule Group:Procedure-Division Severity:1 Inconsistent types in source ZERO-VALUE and target BTS-PASS-BITS of MOVE statement MOVE ZERO-VALUE TO BTS-PASS-BITS Problem found at Line 296 Column 12 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object BTS-PASS-BYTES MOVE '00000000' TO BTS-PASS-BYTES Problem found at Line 302 Column 12 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object BTS-PASS-BYTES MOVE '11111111' TO BTS-PASS-BYTES Problem found at Line 308 Column 12 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object BTS-PASS-BYTES MOVE '01010101' TO BTS-PASS-BYTES Problem found at Line 314 Column 12 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object BTS-PASS-BYTES MOVE '10101010' TO BTS-PASS-BYTES Problem found at Line 366 Column 16 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object BTS-PASS-BYTES MOVE POSITIVE-BIT-VALUE TO BTS-PASS-BYTES Problem found at Line 368 Column 16 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object BTS-PASS-BYTES MOVE EIGHT-BYTES (1 : 4) TO BTS-PASS-BYTES (5 : 4) Problem found at Line 372 Column 16 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object BTS-PASS-BYTES MOVE EIGHT-BYTES (5 : 4) TO BTS-PASS-BYTES (5 : 4) Problem found at Line 408 Column 16 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object BTS-PASS-BYTES MOVE NEGATIVE-BIT-VALUE TO BTS-PASS-BYTES Problem found at Line 410 Column 16 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object BTS-PASS-BYTES MOVE POSITIVE-BIT-VALUE TO BTS-PASS-BYTES Problem found at Line 412 Column 12 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object BTS-PASS-BYTES MOVE EIGHT-BYTES (1 : 4) TO BTS-PASS-BYTES (5 : 4) Problem found at Line 251 Column 21 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-GROUP-LEVEL-REFERENCE-MODIFICATION Rule Group:Procedure-Division Severity:2 Reference modification applied to group level object BTS-PASS-BYTES BTS-PASS-BYTES (1 : 4) Problem found at Line 252 Column 21 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-GROUP-LEVEL-REFERENCE-MODIFICATION Rule Group:Procedure-Division Severity:2 Reference modification applied to group level object BTS-PASS-BYTES BTS-PASS-BYTES (5 : 4) Problem found at Line 368 Column 44 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-GROUP-LEVEL-REFERENCE-MODIFICATION Rule Group:Procedure-Division Severity:2 Reference modification applied to group level object BTS-PASS-BYTES BTS-PASS-BYTES (5 : 4) Problem found at Line 372 Column 44 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-GROUP-LEVEL-REFERENCE-MODIFICATION Rule Group:Procedure-Division Severity:2 Reference modification applied to group level object BTS-PASS-BYTES BTS-PASS-BYTES (5 : 4) Problem found at Line 412 Column 40 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-GROUP-LEVEL-REFERENCE-MODIFICATION Rule Group:Procedure-Division Severity:2 Reference modification applied to group level object BTS-PASS-BYTES BTS-PASS-BYTES (5 : 4) Problem found at Line 421 Column 17 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-GROUP-LEVEL-REFERENCE-MODIFICATION Rule Group:Procedure-Division Severity:2 Reference modification applied to group level object BTS-PASS-BYTES BTS-PASS-BYTES (1 : 4) Problem found at Line 423 Column 17 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-GROUP-LEVEL-REFERENCE-MODIFICATION Rule Group:Procedure-Division Severity:2 Reference modification applied to group level object BTS-PASS-BYTES BTS-PASS-BYTES (5 : 4) Problem found at Line 156 Column 16 File C:/users/lakers/cblbit77.cbl Line 162 Column 16 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier C4 The identifier C4 is declared at both line 156 column 16 and at line 162 column 16. Problem found at Line 153 Column 16 File C:/users/lakers/cblbit77.cbl Line 159 Column 16 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier C1 The identifier C1 is declared at both line 153 column 16 and at line 159 column 16. Problem found at Line 155 Column 16 File C:/users/lakers/cblbit77.cbl Line 161 Column 16 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier C3 The identifier C3 is declared at both line 155 column 16 and at line 161 column 16. Problem found at Line 154 Column 16 File C:/users/lakers/cblbit77.cbl Line 160 Column 16 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier C2 The identifier C2 is declared at both line 154 column 16 and at line 160 column 16. Problem found at Line 156 Column 16 File C:/users/lakers/cblbit77.cbl Line 168 Column 16 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier C4 The identifier C4 is declared at both line 156 column 16 and at line 168 column 16. Problem found at Line 153 Column 16 File C:/users/lakers/cblbit77.cbl Line 165 Column 16 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier C1 The identifier C1 is declared at both line 153 column 16 and at line 165 column 16. Problem found at Line 155 Column 16 File C:/users/lakers/cblbit77.cbl Line 167 Column 16 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier C3 The identifier C3 is declared at both line 155 column 16 and at line 167 column 16. Problem found at Line 154 Column 16 File C:/users/lakers/cblbit77.cbl Line 166 Column 16 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-REUSED-IDENTIFIER-NAMES Rule Group:Miscellaneous Severity:1 Multiple declarations for identifier C2 The identifier C2 is declared at both line 154 column 16 and at line 166 column 16. Problem found at Line 208 Column 12 File C:/users/lakers/cblbit77.cbl Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program TWO-BYTES End of COBOL Style Checker Report for file C:/users/lakers/cblbit77.cbl -------------------------------------------------------------------------------- COBOL Style Checker Report for file C:/users/lakers/styletest10.cob Problem found at Line 4 Column 8 File C:/users/lakers/styletest10.cob Rule:CHECK-AUTHOR-DECLARATION-IS-PRESENT Rule Group:Documentation Severity:5 No AUTHOR declaration found in IDENTIFICATION DIVISION * a program with bizarre copylib use that splits statements * across file boundaries * also with non-XML control characters in a legal COBOL string IDENTIFICATION DIVISION. ... Problem found at Line 30 Column 8 File C:/users/lakers/styletest10.cob Rule:CHECK-PARAGRAPH-HEADERS-HAVE-COMMENTS Rule Group:Documentation Severity:5 Paragraph has no comment INHERE. MOVE COPY STYLETEST10A. TO SCRATCH. ... Problem found at Line 11 Column 16 File C:/users/lakers/styletest10.cob Rule:CHECK-NUMERIC-DECLARATIONS-HAVE-VALUE-CLAUSES Rule Group:Data-declarations Severity:3 Numeric data declaration should have VALUE clause. 03 TCB-LONG-ACTIVITY-N PIC S9(04) COMP. * 05 TCB-LONG-ACTIVITY-N. 10 TCB1 PIC X(2). 10 TCB2 PIC X(2). 05 TCB-LONG-ACTIVITY REDEFINES TCB-LONG-ACTIVITY-N. 10 TCV PIC X(4). 05 TCB-LONG-ACTIVITY-N2 REDEFINES TCB-LONG-ACTIVITY-N. 10 TCV PIC X(6). Problem found at Line 34 Column 12 File C:/users/lakers/styletest10.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 10 TO A COPY STYLETEST10C. Suggest replacing: ADD 10 TO A COPY STYLETEST10C. with: ADD 10 TO A COPY STYLETEST10C. END-ADD Problem found at Line 36 Column 12 File C:/users/lakers/styletest10.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 ADD without an END-ADD ADD 20 TO B OUTTAHERE Suggest replacing: ADD 20 TO B OUTTAHERE with: ADD 20 TO B OUTTAHERE END-ADD Problem found at Line 29 Column 12 File C:/users/lakers/styletest10.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO OUTTAHERE Problem found at Line 34 Column 16 File C:/users/lakers/styletest10.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 10 Problem found at Line 36 Column 16 File C:/users/lakers/styletest10.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 20 Problem found at Line 23 Column 12 File C:/users/lakers/styletest10.cob Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object TCB-LONG-ACTIVITY MOVE CA-LONG-PEM-END-PROG COPY STYLETEST10B. Problem found at Line 25 Column 12 File C:/users/lakers/styletest10.cob Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object TCB-LONG-ACTIVITY-N MOVE CA-LONG-PEM-END-PROG TO TCB-LONG-ACTIVITY-N Problem found at Line 26 Column 12 File C:/users/lakers/styletest10.cob Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object TCB-LONG-ACTIVITY-N2 MOVE CA-LONG-PEM-END-PROG TO TCB-LONG-ACTIVITY-N2 Problem found at Line 27 Column 12 File C:/users/lakers/styletest10.cob Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object SCRATCH MOVE "Q EXEC-MSG-LEN MOVE EM-BYTE (TALLY) TO MSG05-BYTE (TALLY) END-PERFORM WRITE OUTPUT-RECORD FROM MSG05 END-IF Problem found at Line 344 Column 12 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF EXEC-RESP = 88 AND EXEC-RESP2 = 203 AND PARM-ICONNECT = 'I' MOVE 04 TO RETURN-CODE WRITE OUTPUT-RECORD FROM MSG03 CLOSE PRINTER GOBACK END-IF Problem found at Line 353 Column 12 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF EXEC-RESP GREATER THAN 4 MOVE 12 TO RETURN-CODE WRITE OUTPUT-RECORD FROM MSG03 CLOSE PRINTER GOBACK END-IF Problem found at Line 373 Column 15 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-MISSING-ELSE-IN-IF Rule Group:Procedure-Division Severity:3 Encountered IF statement with no ELSE clause IF CA-RESP (CA-IDX) GREATER THAN 0 MOVE 8 TO RETURN-CODE END-IF Problem found at Line 428 Column 12 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 276 Column 17 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ REQUEST AT END SET EOF-ON-INPUT TO TRUE END-READ Problem found at Line 286 Column 20 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-READ-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered READ statement, suggesting I/O not conforming to PEM model READ REQUEST AT END SET EOF-ON-INPUT TO TRUE END-READ Problem found at Line 268 Column 12 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-WRITE-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered WRITE statement, suggesting I/O not conforming to PEM model WRITE OUTPUT-RECORD FROM MSG01 Problem found at Line 331 Column 12 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-WRITE-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered WRITE statement, suggesting I/O not conforming to PEM model WRITE OUTPUT-RECORD FROM MSG02 Problem found at Line 341 Column 15 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-WRITE-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered WRITE statement, suggesting I/O not conforming to PEM model WRITE OUTPUT-RECORD FROM MSG05 Problem found at Line 348 Column 17 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-WRITE-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered WRITE statement, suggesting I/O not conforming to PEM model WRITE OUTPUT-RECORD FROM MSG03 Problem found at Line 355 Column 15 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-WRITE-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered WRITE statement, suggesting I/O not conforming to PEM model WRITE OUTPUT-RECORD FROM MSG03 Problem found at Line 391 Column 15 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-WRITE-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered WRITE statement, suggesting I/O not conforming to PEM model WRITE OUTPUT-RECORD FROM MSG04 Problem found at Line 398 Column 12 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-WRITE-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered WRITE statement, suggesting I/O not conforming to PEM model * *********************************************************** * * EOJ * * *********************************************************** WRITE OUTPUT-RECORD FROM MSG03 Problem found at Line 297 Column 12 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-EXEC-CICS-STATEMENT Rule Group:Procedure-Division Severity:2 Encountered EXEC CICS statement, suggesting database access possibly not conforming to PEM model * *********************************************************** * * Have commands executed in CICS * * *********************************************************** EXEC CICS ... Problem found at Line 281 Column 48 File C:/users/lakers/styletest14.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 100 Problem found at Line 344 Column 27 File C:/users/lakers/styletest14.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 88 Problem found at Line 345 Column 32 File C:/users/lakers/styletest14.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 203 Problem found at Line 347 Column 22 File C:/users/lakers/styletest14.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 04 Problem found at Line 353 Column 38 File C:/users/lakers/styletest14.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 4 Problem found at Line 354 Column 20 File C:/users/lakers/styletest14.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 12 Problem found at Line 365 Column 43 File C:/users/lakers/styletest14.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 100 Problem found at Line 374 Column 23 File C:/users/lakers/styletest14.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value 8 Problem found at Line 250 Column 12 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object PARM-DATA * *********************************************************** * * Initialize * * *********************************************************** MOVE SPACES TO PARM-DATA FLAGS Problem found at Line 250 Column 12 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object FLAGS * *********************************************************** * * Initialize * * *********************************************************** MOVE SPACES TO PARM-DATA FLAGS Problem found at Line 335 Column 15 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-AGGREGATE-MOVE-TO-GROUP-LEVEL-OBJECT Rule Group:Procedure-Division Severity:2 Aggregate MOVE to group level object MSG05-TEXT MOVE SPACES TO MSG05-TEXT Problem found at Line 85 Column 12 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program CC-PHASE-NAME Problem found at Line 86 Column 12 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program CORE-RESIDENT-COPYRIGHT Problem found at Line 433 Column 12 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement * Abuse the UNUSED-STRUCT * MOVE "AB" to UNUSED-10-1. * MOVE "AB" to UNUSED-STRUCT. * Never called statement -- OK MOVE "WXYZ" TO TBC Problem found at Line 435 Column 8 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this paragraph * Never called paragraph -- the statements are flagged DEADZONE. ADD WHY-BOTHER TO SHAVE GIVING MORNING-SHADOW END-ADD. ADD MORNING-SHADOW TO MORNING-SHADOW GIVING WHY-BOTHER END-ADD. Problem found at Line 443 Column 8 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this section * Never called section -- the statement is flagged NO-ACTION SECTION. SUBTRACT 0 FROM NINES GIVING NINES END-SUBTRACT. Problem found at Line 462 Column 8 File C:/users/lakers/styletest14.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this paragraph * Another Never called paragraph FINI. * Another Never called statement MOVE "FINI" TO TBC. EXIT. End of COBOL Style Checker Report for file C:/users/lakers/styletest14.cob -------------------------------------------------------------------------------- COBOL Style Checker Report for file C:/users/lakers/styletest15.cob Problem found at Line 20 Column 16 File C:/users/lakers/styletest15.cob Rule:CHECK-NUMERIC-DECLARATIONS-HAVE-VALUE-CLAUSES Rule Group:Data-declarations Severity:3 Numeric data declaration should have VALUE clause. 05 SW-CONTRIB-TYPE PIC S9 COMP-3. 88 CONTRIB-TYPE-NOT-FOUND VALUE +0. 88 CONTRIB-TYPE-FOUND VALUE +1. Problem found at Line 26 Column 12 File C:/users/lakers/styletest15.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM SOME-ACTION Problem found at Line 27 Column 12 File C:/users/lakers/styletest15.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM A-LITTLE-ACTION Problem found at Line 28 Column 12 File C:/users/lakers/styletest15.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM A-LITTLE-ACTION THROUGH MORE-ACTION Problem found at Line 53 Column 12 File C:/users/lakers/styletest15.cob Rule:FIND-MISSING-END-FORMS Rule Group:Procedure-Division Severity:4 PERFORM without an END-PERFORM PERFORM SOME-ACTION Problem found at Line 28 Column 12 File C:/users/lakers/styletest15.cob Rule:WARN-ABOUT-PERFORM-THROUGH Rule Group:Procedure-Division Severity:1 Encountered PERFORM .. THROUGH .. statement: likely to be very fragile code! PERFORM A-LITTLE-ACTION THROUGH MORE-ACTION Suggest replacing: PERFORM A-LITTLE-ACTION THROUGH MORE-ACTION with: Problem found at Line 61 Column 8 File C:/users/lakers/styletest15.cob Rule:FIND-SECTION-EXIT-PARAGRAPHS Rule Group:Procedure-Division Severity:3 Paragraph that only performs a (section) EXIT * Called via GO TO -- oops. EXIT flagged, as Michael suggested. PROG-EXIT1. EXIT. Problem found at Line 29 Column 12 File C:/users/lakers/styletest15.cob Rule:WARN-ABOUT-GO-TO-STATEMENT Rule Group:Procedure-Division Severity:1 Encountered GO TO statement, suggesting code needs restructuring GO TO PROG-EXIT1 Problem found at Line 32 Column 17 File C:/users/lakers/styletest15.cob Rule:FIND-MAGIC-CONSTANTS Rule Group:Miscellaneous Severity:3 Magic constant -- suggest declaring an identifier with the given value -1 Problem found at Line 8 Column 11 File C:/users/lakers/styletest15.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program UNUSED-01 Problem found at Line 19 Column 12 File C:/users/lakers/styletest15.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program SWITCHES Problem found at Line 13 Column 18 File C:/users/lakers/styletest15.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program UNUSED-10-2 Problem found at Line 12 Column 15 File C:/users/lakers/styletest15.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program UNUSED-05-2 Problem found at Line 10 Column 15 File C:/users/lakers/styletest15.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program UNUSED-05-1 Problem found at Line 9 Column 11 File C:/users/lakers/styletest15.cob Rule:WARN-ABOUT-UNREFERENCED-VARIABLE-DECLARATIONS Rule Group:Miscellaneous Severity:1 Variable name is declared but not used in program UNUSED-STRUCT Problem found at Line 32 Column 12 File C:/users/lakers/styletest15.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement * Abuse the SWITCHES * IF CONTRIB-TYPE-FOUND GO TO PROG-EXIT2. MOVE -1 TO SW-CONTRIB-TYPE Problem found at Line 35 Column 12 File C:/users/lakers/styletest15.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement * Abuse the UNUSED-STRUCT * MOVE "AB" to UNUSED-05-1. MOVE "AB" TO UNUSED-10-1 Problem found at Line 38 Column 12 File C:/users/lakers/styletest15.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this statement * MOVE "ABCD" to UNUSED-STRUCT. * Never called statement -- OK MOVE "WXYZ" TO TBC Problem found at Line 40 Column 8 File C:/users/lakers/styletest15.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this paragraph * Never called paragraph -- the statements are flagged DEADZONE. ADD WHY-BOTHER TO SHAVE GIVING MORNING-SHADOW END-ADD. ADD MORNING-SHADOW TO MORNING-SHADOW GIVING WHY-BOTHER END-ADD. Problem found at Line 48 Column 8 File C:/users/lakers/styletest15.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this section * Never called section -- the statement is flagged NO-ACTION SECTION. SUBTRACT 0 FROM NINES GIVING NINES END-SUBTRACT. Problem found at Line 67 Column 8 File C:/users/lakers/styletest15.cob Rule:WARN-ABOUT-DEAD-CODE Rule Group:Procedure-Division Severity:1 Dead code -- no control paths lead to this paragraph * Another Never called paragraph FINI. * Another Never called statement MOVE "FINI" TO TBC. EXIT. End of COBOL Style Checker Report for file C:/users/lakers/styletest15.cob --------------------------------------------------------------------------------