MainframeMaster

COBOL Tutorial

COBOL OTHER and OTHERWISE

The OTHER and OTHERWISE keywords in COBOL represent comprehensive default case handling capabilities and sophisticated exception processing functionality within EVALUATE statements, providing advanced control flow mechanisms for unmatched conditions, enhanced error handling features, and intelligent fallback processing patterns that enable precise exception management, robust default case processing, and systematic error handling requirements while maintaining program reliability, ensuring complete case coverage, and enabling defensive programming architectures across enterprise applications requiring comprehensive condition handling, exception processing capabilities, and reliable default case management throughout sophisticated business logic scenarios and complex decision-making workflows.

OTHER and OTHERWISE Usage

Basic Default Case Handling
cobol
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
*> Basic OTHER usage in EVALUATE
EVALUATE CUSTOMER-TYPE
    WHEN "PREMIUM"
        PERFORM PREMIUM-CUSTOMER-PROCESSING
    WHEN "STANDARD"
        PERFORM STANDARD-CUSTOMER-PROCESSING
    WHEN "BASIC"
        PERFORM BASIC-CUSTOMER-PROCESSING
    WHEN OTHER
        DISPLAY "Unknown customer type: " CUSTOMER-TYPE
        PERFORM ERROR-HANDLING
END-EVALUATE
 
*> OTHERWISE syntax (equivalent to OTHER)
EVALUATE PAYMENT-METHOD
    WHEN "CASH"
        PERFORM CASH-PAYMENT-PROCESSING
    WHEN "CREDIT"
        PERFORM CREDIT-PAYMENT-PROCESSING
    WHEN "DEBIT"
        PERFORM DEBIT-PAYMENT-PROCESSING
    WHEN OTHERWISE
        DISPLAY "Invalid payment method: " PAYMENT-METHOD
        MOVE "ERROR" TO TRANSACTION-STATUS
        PERFORM LOG-PAYMENT-ERROR
END-EVALUATE
 
*> Complex condition with OTHER
EVALUATE TRUE
    WHEN ACCOUNT-BALANCE > 10000 AND CUSTOMER-STATUS = "VIP"
        PERFORM VIP-HIGH-BALANCE-PROCESSING
    WHEN ACCOUNT-BALANCE > 5000 AND CUSTOMER-STATUS = "PREMIUM"
        PERFORM PREMIUM-PROCESSING
    WHEN ACCOUNT-BALANCE > 1000
        PERFORM STANDARD-PROCESSING
    WHEN ACCOUNT-BALANCE >= 0
        PERFORM LOW-BALANCE-PROCESSING
    WHEN OTHER
        DISPLAY "Negative balance detected: " ACCOUNT-BALANCE
        PERFORM OVERDRAFT-PROCESSING
END-EVALUATE
 
*> Multi-variable EVALUATE with OTHER
EVALUATE TRANSACTION-TYPE ALSO ACCOUNT-TYPE
    WHEN "DEPOSIT" ALSO "CHECKING"
        PERFORM CHECKING-DEPOSIT
    WHEN "DEPOSIT" ALSO "SAVINGS"
        PERFORM SAVINGS-DEPOSIT
    WHEN "WITHDRAWAL" ALSO "CHECKING"
        PERFORM CHECKING-WITHDRAWAL
    WHEN "WITHDRAWAL" ALSO "SAVINGS"
        PERFORM SAVINGS-WITHDRAWAL
    WHEN "TRANSFER" ALSO ANY
        PERFORM TRANSFER-PROCESSING
    WHEN OTHER
        DISPLAY "Invalid transaction combination: "
                TRANSACTION-TYPE " / " ACCOUNT-TYPE
        PERFORM INVALID-TRANSACTION-HANDLING
END-EVALUATE
 
*> Nested EVALUATE with OTHERWISE
EVALUATE USER-ROLE
    WHEN "ADMIN"
        EVALUATE REQUEST-TYPE
            WHEN "CREATE"
                PERFORM ADMIN-CREATE-REQUEST
            WHEN "UPDATE"
                PERFORM ADMIN-UPDATE-REQUEST
            WHEN "DELETE"
                PERFORM ADMIN-DELETE-REQUEST
            WHEN OTHERWISE
                DISPLAY "Invalid admin request: " REQUEST-TYPE
                PERFORM LOG-INVALID-ADMIN-REQUEST
        END-EVALUATE
    WHEN "USER"
        EVALUATE REQUEST-TYPE
            WHEN "READ"
                PERFORM USER-READ-REQUEST
            WHEN "UPDATE"
                IF USER-ID = RECORD-OWNER
                    PERFORM USER-UPDATE-OWN-RECORD
                ELSE
                    DISPLAY "Access denied: Cannot update others' records"
                    PERFORM LOG-ACCESS-VIOLATION
                END-IF
            WHEN OTHERWISE
                DISPLAY "Operation not allowed for user role: " REQUEST-TYPE
                PERFORM LOG-UNAUTHORIZED-REQUEST
        END-EVALUATE
    WHEN OTHER
        DISPLAY "Unknown user role: " USER-ROLE
        PERFORM SECURITY-VIOLATION-HANDLING
END-EVALUATE
Default Handling
Exception Processing
Control Flow

Advanced OTHER/OTHERWISE Patterns

Comprehensive Exception and Error Handling
cobol
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
*> Grade processing with comprehensive OTHER handling
01 GRADE-PROCESSING-DATA.
   05 NUMERIC-SCORE         PIC 9(3).
   05 LETTER-GRADE          PIC X.
   05 GPA-POINTS            PIC 9V99.
   05 GRADE-STATUS          PIC X(20).
 
EVALUATE NUMERIC-SCORE
    WHEN 97 THRU 100
        MOVE "A+" TO LETTER-GRADE
        MOVE 4.00 TO GPA-POINTS
        MOVE "EXCELLENT" TO GRADE-STATUS
    WHEN 93 THRU 96
        MOVE "A" TO LETTER-GRADE
        MOVE 4.00 TO GPA-POINTS
        MOVE "EXCELLENT" TO GRADE-STATUS
    WHEN 90 THRU 92
        MOVE "A-" TO LETTER-GRADE
        MOVE 3.67 TO GPA-POINTS
        MOVE "VERY GOOD" TO GRADE-STATUS
    WHEN 87 THRU 89
        MOVE "B+" TO LETTER-GRADE
        MOVE 3.33 TO GPA-POINTS
        MOVE "GOOD" TO GRADE-STATUS
    WHEN 83 THRU 86
        MOVE "B" TO LETTER-GRADE
        MOVE 3.00 TO GPA-POINTS
        MOVE "GOOD" TO GRADE-STATUS
    WHEN 80 THRU 82
        MOVE "B-" TO LETTER-GRADE
        MOVE 2.67 TO GPA-POINTS
        MOVE "SATISFACTORY" TO GRADE-STATUS
    WHEN 77 THRU 79
        MOVE "C+" TO LETTER-GRADE
        MOVE 2.33 TO GPA-POINTS
        MOVE "SATISFACTORY" TO GRADE-STATUS
    WHEN 73 THRU 76
        MOVE "C" TO LETTER-GRADE
        MOVE 2.00 TO GPA-POINTS
        MOVE "ACCEPTABLE" TO GRADE-STATUS
    WHEN 70 THRU 72
        MOVE "C-" TO LETTER-GRADE
        MOVE 1.67 TO GPA-POINTS
        MOVE "BELOW AVERAGE" TO GRADE-STATUS
    WHEN 67 THRU 69
        MOVE "D+" TO LETTER-GRADE
        MOVE 1.33 TO GPA-POINTS
        MOVE "POOR" TO GRADE-STATUS
    WHEN 65 THRU 66
        MOVE "D" TO LETTER-GRADE
        MOVE 1.00 TO GPA-POINTS
        MOVE "POOR" TO GRADE-STATUS
    WHEN 60 THRU 64
        MOVE "D-" TO LETTER-GRADE
        MOVE 0.67 TO GPA-POINTS
        MOVE "VERY POOR" TO GRADE-STATUS
    WHEN 0 THRU 59
        MOVE "F" TO LETTER-GRADE
        MOVE 0.00 TO GPA-POINTS
        MOVE "FAILING" TO GRADE-STATUS
    WHEN OTHER
        DISPLAY "Invalid score detected: " NUMERIC-SCORE
        MOVE "?" TO LETTER-GRADE
        MOVE 0.00 TO GPA-POINTS
        MOVE "INVALID SCORE" TO GRADE-STATUS
        PERFORM LOG-GRADE-ERROR
        ADD 1 TO ERROR-COUNT
END-EVALUATE
 
*> Financial transaction validation with OTHERWISE
01 TRANSACTION-VALIDATION.
   05 TRANSACTION-CODE      PIC X(3).
   05 TRANSACTION-AMOUNT    PIC 9(9)V99.
   05 ACCOUNT-TYPE          PIC X(10).
   05 VALIDATION-STATUS     PIC X(20).
   05 VALIDATION-MESSAGE    PIC X(50).
 
EVALUATE TRANSACTION-CODE
    WHEN "DEP"
        IF TRANSACTION-AMOUNT > 0 AND TRANSACTION-AMOUNT <= 999999.99
            MOVE "VALID" TO VALIDATION-STATUS
            MOVE "Deposit transaction approved" TO VALIDATION-MESSAGE
            PERFORM PROCESS-DEPOSIT
        ELSE
            MOVE "INVALID_AMOUNT" TO VALIDATION-STATUS
            MOVE "Deposit amount out of range" TO VALIDATION-MESSAGE
            PERFORM LOG-VALIDATION-ERROR
        END-IF
    WHEN "WTH"
        IF TRANSACTION-AMOUNT > 0 AND TRANSACTION-AMOUNT <= ACCOUNT-BALANCE
            MOVE "VALID" TO VALIDATION-STATUS
            MOVE "Withdrawal transaction approved" TO VALIDATION-MESSAGE
            PERFORM PROCESS-WITHDRAWAL
        ELSE
            MOVE "INSUFFICIENT_FUNDS" TO VALIDATION-STATUS
            MOVE "Insufficient funds for withdrawal" TO VALIDATION-MESSAGE
            PERFORM LOG-INSUFFICIENT-FUNDS
        END-IF
    WHEN "TRF"
        IF TRANSACTION-AMOUNT > 0 AND TRANSACTION-AMOUNT <= ACCOUNT-BALANCE
            MOVE "VALID" TO VALIDATION-STATUS
            MOVE "Transfer transaction approved" TO VALIDATION-MESSAGE
            PERFORM PROCESS-TRANSFER
        ELSE
            MOVE "INVALID_TRANSFER" TO VALIDATION-STATUS
            MOVE "Invalid transfer amount" TO VALIDATION-MESSAGE
            PERFORM LOG-TRANSFER-ERROR
        END-IF
    WHEN "INQ"
        MOVE "VALID" TO VALIDATION-STATUS
        MOVE "Inquiry transaction approved" TO VALIDATION-MESSAGE
        PERFORM PROCESS-INQUIRY
    WHEN OTHERWISE
        MOVE "UNKNOWN_CODE" TO VALIDATION-STATUS
        STRING "Unknown transaction code: " TRANSACTION-CODE
            DELIMITED BY SIZE INTO VALIDATION-MESSAGE
        PERFORM LOG-UNKNOWN-TRANSACTION
        ADD 1 TO UNKNOWN-TRANSACTION-COUNT
        PERFORM SECURITY-ALERT-PROCESSING
END-EVALUATE
 
*> Dynamic menu system with OTHER
01 MENU-PROCESSING.
   05 MENU-CHOICE           PIC X(2).
   05 MENU-LEVEL            PIC 9.
   05 USER-ACCESS-LEVEL     PIC 9.
 
EVALUATE MENU-CHOICE
    WHEN "1A" 
        IF USER-ACCESS-LEVEL >= 3
            PERFORM ADMINISTRATIVE-FUNCTIONS
        ELSE
            DISPLAY "Access denied: Administrative privileges required"
            PERFORM LOG-ACCESS-DENIAL
        END-IF
    WHEN "2R"
        IF USER-ACCESS-LEVEL >= 2
            PERFORM REPORTING-FUNCTIONS
        ELSE
            DISPLAY "Access denied: Reporting privileges required"
            PERFORM LOG-ACCESS-DENIAL
        END-IF
    WHEN "3D"
        IF USER-ACCESS-LEVEL >= 1
            PERFORM DATA-ENTRY-FUNCTIONS
        ELSE
            DISPLAY "Access denied: Basic privileges required"
            PERFORM LOG-ACCESS-DENIAL
        END-IF
    WHEN "4V"
        PERFORM VIEW-FUNCTIONS  *> Available to all users
    WHEN "5H"
        PERFORM HELP-FUNCTIONS  *> Available to all users
    WHEN "6X"
        PERFORM EXIT-SYSTEM
    WHEN OTHER
        DISPLAY "Invalid menu choice: " MENU-CHOICE
        DISPLAY "Valid options: 1A, 2R, 3D, 4V, 5H, 6X"
        PERFORM DISPLAY-MENU-HELP
        ADD 1 TO INVALID-MENU-ATTEMPTS
        
        *> Security measure for too many invalid attempts
        IF INVALID-MENU-ATTEMPTS > 3
            DISPLAY "Too many invalid attempts. Session terminated."
            PERFORM LOG-SECURITY-VIOLATION
            PERFORM TERMINATE-SESSION
        END-IF
END-EVALUATE

Comprehensive OTHER/OTHERWISE Implementation

cobol
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
IDENTIFICATION DIVISION.
PROGRAM-ID. OTHER-OTHERWISE-DEMO.
 
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DEMONSTRATION-CONTROLS.
   05 DEMO-COUNTER          PIC 9(3) VALUE 0.
   05 ERROR-COUNT           PIC 9(3) VALUE 0.
   05 VALID-CASES           PIC 9(3) VALUE 0.
   05 OTHER-CASES           PIC 9(3) VALUE 0.
 
01 SAMPLE-DATA.
   05 SAMPLE-VALUES OCCURS 15 TIMES.
      10 SAMPLE-CODE        PIC X(3).
      10 SAMPLE-CATEGORY    PIC X(10).
      10 SAMPLE-VALUE       PIC 9(5).
 
01 PROCESSING-RESULTS.
   05 RESULT-MESSAGE        PIC X(50).
   05 PROCESSING-STATUS     PIC X(20).
   05 ACTION-TAKEN          PIC X(30).
 
PROCEDURE DIVISION.
MAIN-OTHER-DEMO.
    DISPLAY "=== OTHER/OTHERWISE DEMONSTRATION ==="
    
    PERFORM SETUP-SAMPLE-DATA
    PERFORM DEMONSTRATE-BASIC-OTHER
    PERFORM DEMONSTRATE-OTHERWISE-USAGE
    PERFORM DEMONSTRATE-COMPLEX-CONDITIONS
    PERFORM DEMONSTRATE-ERROR-HANDLING
    PERFORM DISPLAY-STATISTICS
    
    DISPLAY "=== DEMONSTRATION COMPLETE ==="
    STOP RUN.
 
SETUP-SAMPLE-DATA.
    DISPLAY "Setting up demonstration data..."
    
    *> Valid codes
    MOVE "ADM" TO SAMPLE-CODE(1)
    MOVE "ADMIN" TO SAMPLE-CATEGORY(1)
    MOVE 100 TO SAMPLE-VALUE(1)
    
    MOVE "USR" TO SAMPLE-CODE(2)
    MOVE "USER" TO SAMPLE-CATEGORY(2)
    MOVE 50 TO SAMPLE-VALUE(2)
    
    MOVE "RPT" TO SAMPLE-CODE(3)
    MOVE "REPORT" TO SAMPLE-CATEGORY(3)
    MOVE 75 TO SAMPLE-VALUE(3)
    
    *> Invalid/unexpected codes for OTHER testing
    MOVE "XYZ" TO SAMPLE-CODE(4)
    MOVE "UNKNOWN" TO SAMPLE-CATEGORY(4)
    MOVE 999 TO SAMPLE-VALUE(4)
    
    MOVE "123" TO SAMPLE-CODE(5)
    MOVE "NUMERIC" TO SAMPLE-CATEGORY(5)
    MOVE 888 TO SAMPLE-VALUE(5)
    
    DISPLAY "✅ Sample data initialized with valid and invalid codes".
 
DEMONSTRATE-BASIC-OTHER.
    DISPLAY " "
    DISPLAY "=== BASIC OTHER DEMONSTRATION ==="
    
    PERFORM VARYING DEMO-COUNTER FROM 1 BY 1 UNTIL DEMO-COUNTER > 5
        DISPLAY " "
        DISPLAY "Processing sample " DEMO-COUNTER ":"
        DISPLAY "  Code: " SAMPLE-CODE(DEMO-COUNTER)
        DISPLAY "  Category: " SAMPLE-CATEGORY(DEMO-COUNTER)
        
        EVALUATE SAMPLE-CODE(DEMO-COUNTER)
            WHEN "ADM"
                MOVE "Administrative access granted" TO RESULT-MESSAGE
                MOVE "SUCCESS" TO PROCESSING-STATUS
                MOVE "ADMIN_PROCESSING" TO ACTION-TAKEN
                ADD 1 TO VALID-CASES
                DISPLAY "  ✅ " RESULT-MESSAGE
            WHEN "USR"
                MOVE "User access granted" TO RESULT-MESSAGE
                MOVE "SUCCESS" TO PROCESSING-STATUS
                MOVE "USER_PROCESSING" TO ACTION-TAKEN
                ADD 1 TO VALID-CASES
                DISPLAY "  ✅ " RESULT-MESSAGE
            WHEN "RPT"
                MOVE "Report access granted" TO RESULT-MESSAGE
                MOVE "SUCCESS" TO PROCESSING-STATUS
                MOVE "REPORT_PROCESSING" TO ACTION-TAKEN
                ADD 1 TO VALID-CASES
                DISPLAY "  ✅ " RESULT-MESSAGE
            WHEN OTHER
                STRING "Unknown code: " SAMPLE-CODE(DEMO-COUNTER)
                    " - Access denied" DELIMITED BY SIZE 
                    INTO RESULT-MESSAGE
                MOVE "ERROR" TO PROCESSING-STATUS
                MOVE "ERROR_HANDLING" TO ACTION-TAKEN
                ADD 1 TO OTHER-CASES
                ADD 1 TO ERROR-COUNT
                DISPLAY "  ❌ " RESULT-MESSAGE
        END-EVALUATE
    END-PERFORM.
 
DEMONSTRATE-OTHERWISE-USAGE.
    DISPLAY " "
    DISPLAY "=== OTHERWISE USAGE DEMONSTRATION ==="
    
    *> Demonstrate OTHERWISE with value ranges
    PERFORM VARYING DEMO-COUNTER FROM 1 BY 1 UNTIL DEMO-COUNTER > 5
        DISPLAY " "
        DISPLAY "Value range processing for sample " DEMO-COUNTER ":"
        DISPLAY "  Value: " SAMPLE-VALUE(DEMO-COUNTER)
        
        EVALUATE SAMPLE-VALUE(DEMO-COUNTER)
            WHEN 1 THRU 25
                MOVE "Low priority processing" TO RESULT-MESSAGE
                MOVE "LOW" TO PROCESSING-STATUS
                DISPLAY "  📉 " RESULT-MESSAGE
            WHEN 26 THRU 75
                MOVE "Medium priority processing" TO RESULT-MESSAGE
                MOVE "MEDIUM" TO PROCESSING-STATUS
                DISPLAY "  📊 " RESULT-MESSAGE
            WHEN 76 THRU 100
                MOVE "High priority processing" TO RESULT-MESSAGE
                MOVE "HIGH" TO PROCESSING-STATUS
                DISPLAY "  📈 " RESULT-MESSAGE
            WHEN OTHERWISE
                STRING "Value out of range: " SAMPLE-VALUE(DEMO-COUNTER)
                    " - Special handling required" DELIMITED BY SIZE
                    INTO RESULT-MESSAGE
                MOVE "SPECIAL" TO PROCESSING-STATUS
                ADD 1 TO OTHER-CASES
                DISPLAY "  ⚠️  " RESULT-MESSAGE
        END-EVALUATE
    END-PERFORM.
 
DEMONSTRATE-COMPLEX-CONDITIONS.
    DISPLAY " "
    DISPLAY "=== COMPLEX CONDITIONS WITH OTHER ==="
    
    PERFORM VARYING DEMO-COUNTER FROM 1 BY 1 UNTIL DEMO-COUNTER > 5
        DISPLAY " "
        DISPLAY "Complex evaluation for sample " DEMO-COUNTER ":"
        
        EVALUATE TRUE
            WHEN SAMPLE-CODE(DEMO-COUNTER) = "ADM" AND
                 SAMPLE-VALUE(DEMO-COUNTER) >= 90
                MOVE "Super administrator access" TO RESULT-MESSAGE
                DISPLAY "  🔐 " RESULT-MESSAGE
            WHEN SAMPLE-CODE(DEMO-COUNTER) = "ADM" AND
                 SAMPLE-VALUE(DEMO-COUNTER) >= 50
                MOVE "Administrator access" TO RESULT-MESSAGE
                DISPLAY "  🔑 " RESULT-MESSAGE
            WHEN SAMPLE-CODE(DEMO-COUNTER) = "USR" AND
                 SAMPLE-VALUE(DEMO-COUNTER) >= 25
                MOVE "Standard user access" TO RESULT-MESSAGE
                DISPLAY "  👤 " RESULT-MESSAGE
            WHEN SAMPLE-CODE(DEMO-COUNTER) = "RPT"
                MOVE "Report viewer access" TO RESULT-MESSAGE
                DISPLAY "  📋 " RESULT-MESSAGE
            WHEN OTHER
                STRING "Unrecognized pattern: " 
                    SAMPLE-CODE(DEMO-COUNTER) "(" SAMPLE-VALUE(DEMO-COUNTER) ")"
                    DELIMITED BY SIZE INTO RESULT-MESSAGE
                ADD 1 TO OTHER-CASES
                DISPLAY "  ❓ " RESULT-MESSAGE
        END-EVALUATE
    END-PERFORM.
 
DEMONSTRATE-ERROR-HANDLING.
    DISPLAY " "
    DISPLAY "=== ERROR HANDLING WITH OTHER ==="
    
    *> Simulate various error conditions
    MOVE "ERR" TO SAMPLE-CODE(6)
    MOVE "   " TO SAMPLE-CODE(7)  *> Empty code
    MOVE "TOOLONG" TO SAMPLE-CODE(8)(1:3)  *> Truncated long code
    
    PERFORM VARYING DEMO-COUNTER FROM 6 BY 1 UNTIL DEMO-COUNTER > 8
        DISPLAY " "
        DISPLAY "Error handling test " (DEMO-COUNTER - 5) ":"
        DISPLAY "  Code: '" SAMPLE-CODE(DEMO-COUNTER) "'"
        
        EVALUATE SAMPLE-CODE(DEMO-COUNTER)
            WHEN "ADM" OR "USR" OR "RPT"
                MOVE "Valid code processed" TO RESULT-MESSAGE
                DISPLAY "  ✅ " RESULT-MESSAGE
            WHEN SPACES OR LOW-VALUES
                MOVE "Empty code - using default processing" TO RESULT-MESSAGE
                MOVE "DEFAULT" TO PROCESSING-STATUS
                ADD 1 TO OTHER-CASES
                DISPLAY "  ⚪ " RESULT-MESSAGE
            WHEN OTHER
                STRING "Invalid code '" SAMPLE-CODE(DEMO-COUNTER) 
                    "' - error logged" DELIMITED BY SIZE 
                    INTO RESULT-MESSAGE
                MOVE "ERROR" TO PROCESSING-STATUS
                ADD 1 TO OTHER-CASES
                ADD 1 TO ERROR-COUNT
                DISPLAY "  🚫 " RESULT-MESSAGE
                PERFORM LOG-ERROR-CONDITION
        END-EVALUATE
    END-PERFORM.
 
LOG-ERROR-CONDITION.
    DISPLAY "    📝 Error logged: " FUNCTION CURRENT-DATE(1:8) 
            " at " FUNCTION CURRENT-DATE(9:6)
    DISPLAY "    📊 Total errors so far: " ERROR-COUNT.
 
DISPLAY-STATISTICS.
    DISPLAY " "
    DISPLAY "=== PROCESSING STATISTICS ==="
    DISPLAY "📊 Summary of OTHER/OTHERWISE demonstrations:"
    DISPLAY "   ✅ Valid cases processed: " VALID-CASES
    DISPLAY "   ❓ OTHER cases handled: " OTHER-CASES  
    DISPLAY "   ❌ Error conditions: " ERROR-COUNT
    DISPLAY "   📈 Total samples processed: " DEMO-COUNTER
    DISPLAY " "
    DISPLAY "🎯 Key Features Demonstrated:"
    DISPLAY "   • Basic OTHER clause usage"
    DISPLAY "   • OTHERWISE synonym functionality"
    DISPLAY "   • Complex condition handling"
    DISPLAY "   • Error detection and logging"
    DISPLAY "   • Range-based evaluations"
    DISPLAY "   • Default case processing"
    DISPLAY " "
    DISPLAY "💡 Best Practices Shown:"
    DISPLAY "   • Always include OTHER/OTHERWISE for completeness"
    DISPLAY "   • Log unexpected conditions for debugging"
    DISPLAY "   • Provide meaningful error messages"
    DISPLAY "   • Handle edge cases gracefully"
    DISPLAY "   • Use for defensive programming".

Related Concepts

EVALUATE Statement

Multi-way conditional processing

Conditional Execution

Control flow and decision logic

Exception Handling

Error processing and recovery

Related Pages