The EXIT statement represents a fundamental control flow mechanism in COBOL programming, serving as a null operation that provides structured program termination points, clean exit pathways for performed paragraphs and sections, and essential building blocks for implementing proper program flow control. This statement embodies the principles of structured programming by enabling the creation of well-defined entry and exit points, facilitating maintainable code organization, and supporting sophisticated control flow patterns that enhance program readability and debugging capabilities.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683IDENTIFICATION DIVISION. PROGRAM-ID. EXIT-COMPREHENSIVE-DEMONSTRATION. DATA DIVISION. WORKING-STORAGE SECTION. 01 PROGRAM-CONTROL-VARIABLES. 05 PROCESSING-FLAG PIC X VALUE 'Y'. 88 CONTINUE-PROCESSING VALUE 'Y'. 88 STOP-PROCESSING VALUE 'N'. 05 LOOP-COUNTER PIC 9(4) VALUE 0. 05 MAX-ITERATIONS PIC 9(4) VALUE 100. 05 ERROR-COUNT PIC 9(3) VALUE 0. 05 SUCCESS-COUNT PIC 9(5) VALUE 0. 05 CURRENT-OPERATION PIC X(20). 01 BUSINESS-DATA. 05 CUSTOMER-RECORD. 10 CUSTOMER-ID PIC 9(8). 10 CUSTOMER-NAME PIC X(30). 10 ACCOUNT-BALANCE PIC 9(9)V99. 10 ACCOUNT-STATUS PIC X(10). 88 ACCOUNT-ACTIVE VALUE 'ACTIVE'. 88 ACCOUNT-CLOSED VALUE 'CLOSED'. 88 ACCOUNT-SUSPENDED VALUE 'SUSPENDED'. 05 TRANSACTION-RECORD. 10 TRANSACTION-ID PIC 9(10). 10 TRANSACTION-TYPE PIC X(10). 10 TRANSACTION-AMOUNT PIC 9(7)V99. 10 TRANSACTION-DATE PIC 9(8). 01 VALIDATION-CONTROLS. 05 VALIDATION-STATUS PIC X VALUE 'P'. 88 VALIDATION-PASSED VALUE 'P'. 88 VALIDATION-FAILED VALUE 'F'. 05 VALIDATION-ERRORS PIC 9(3) VALUE 0. 05 VALIDATION-WARNINGS PIC 9(3) VALUE 0. 05 CRITICAL-ERROR-FLAG PIC X VALUE 'N'. 88 CRITICAL-ERROR VALUE 'Y'. 88 NO-CRITICAL-ERROR VALUE 'N'. 01 PERFORMANCE-METRICS. 05 PARAGRAPHS-EXECUTED PIC 9(5) VALUE 0. 05 EXITS-PERFORMED PIC 9(5) VALUE 0. 05 SUCCESSFUL-EXITS PIC 9(5) VALUE 0. 05 CONDITIONAL-EXITS PIC 9(5) VALUE 0. 05 LOOP-EXITS PIC 9(5) VALUE 0. PROCEDURE DIVISION. MAIN-PROCESSING. PERFORM INITIALIZE-PROGRAM PERFORM DEMONSTRATE-BASIC-EXIT-USAGE PERFORM DEMONSTRATE-CONDITIONAL-EXIT PERFORM DEMONSTRATE-LOOP-EXIT-CONTROL PERFORM DEMONSTRATE-PARAGRAPH-EXIT-PATTERNS PERFORM DEMONSTRATE-SECTION-EXIT-CONTROL PERFORM DEMONSTRATE-ERROR-HANDLING-WITH-EXIT PERFORM DISPLAY-EXIT-STATISTICS PERFORM CLEANUP-PROGRAM STOP RUN. INITIALIZE-PROGRAM. MOVE 'INITIALIZATION' TO CURRENT-OPERATION ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Program initialization started' SET CONTINUE-PROCESSING TO TRUE SET NO-CRITICAL-ERROR TO TRUE SET VALIDATION-PASSED TO TRUE DISPLAY 'Program initialization completed' *> Common exit point for initialization PERFORM INITIALIZE-EXIT. INITIALIZE-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO SUCCESSFUL-EXITS DISPLAY 'Initialization exit reached' EXIT. DEMONSTRATE-BASIC-EXIT-USAGE. MOVE 'BASIC-EXIT-DEMO' TO CURRENT-OPERATION ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Demonstrating basic EXIT usage...' *> Simple paragraph with EXIT PERFORM BASIC-PROCESSING-PARAGRAPH *> Conditional paragraph execution IF CONTINUE-PROCESSING PERFORM CONDITIONAL-PROCESSING-PARAGRAPH END-IF *> Multiple exit points demonstration PERFORM MULTIPLE-EXIT-POINTS-PARAGRAPH DISPLAY 'Basic EXIT demonstration completed'. BASIC-PROCESSING-PARAGRAPH. ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Basic processing paragraph executed' *> Perform some business logic MOVE 12345678 TO CUSTOMER-ID MOVE 'JOHN DOE' TO CUSTOMER-NAME MOVE 15000.75 TO ACCOUNT-BALANCE SET ACCOUNT-ACTIVE TO TRUE DISPLAY 'Customer data processed: ' CUSTOMER-ID *> Clean exit point PERFORM BASIC-PROCESSING-EXIT. BASIC-PROCESSING-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO SUCCESSFUL-EXITS DISPLAY 'Basic processing exit reached' EXIT. CONDITIONAL-PROCESSING-PARAGRAPH. ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Conditional processing paragraph executed' *> Conditional logic with multiple exit paths IF ACCOUNT-BALANCE > 10000 DISPLAY 'High-value customer processing' PERFORM HIGH-VALUE-CUSTOMER-PROCESSING PERFORM CONDITIONAL-SUCCESS-EXIT ELSE DISPLAY 'Standard customer processing' PERFORM STANDARD-CUSTOMER-PROCESSING PERFORM CONDITIONAL-STANDARD-EXIT END-IF. HIGH-VALUE-CUSTOMER-PROCESSING. DISPLAY 'Processing high-value customer: ' CUSTOMER-ID ADD 1 TO SUCCESS-COUNT PERFORM HIGH-VALUE-EXIT. HIGH-VALUE-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO SUCCESSFUL-EXITS DISPLAY 'High-value processing exit' EXIT. STANDARD-CUSTOMER-PROCESSING. DISPLAY 'Processing standard customer: ' CUSTOMER-ID ADD 1 TO SUCCESS-COUNT PERFORM STANDARD-EXIT. STANDARD-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO SUCCESSFUL-EXITS DISPLAY 'Standard processing exit' EXIT. CONDITIONAL-SUCCESS-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO CONDITIONAL-EXITS DISPLAY 'Conditional success exit' EXIT. CONDITIONAL-STANDARD-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO CONDITIONAL-EXITS DISPLAY 'Conditional standard exit' EXIT. MULTIPLE-EXIT-POINTS-PARAGRAPH. ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Multiple exit points paragraph' *> Different exit paths based on conditions EVALUATE ACCOUNT-STATUS WHEN 'ACTIVE' DISPLAY 'Active account processing' PERFORM ACTIVE-ACCOUNT-EXIT WHEN 'CLOSED' DISPLAY 'Closed account processing' PERFORM CLOSED-ACCOUNT-EXIT WHEN 'SUSPENDED' DISPLAY 'Suspended account processing' PERFORM SUSPENDED-ACCOUNT-EXIT WHEN OTHER DISPLAY 'Unknown account status' PERFORM UNKNOWN-STATUS-EXIT END-EVALUATE. ACTIVE-ACCOUNT-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO SUCCESSFUL-EXITS DISPLAY 'Active account exit' EXIT. CLOSED-ACCOUNT-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO SUCCESSFUL-EXITS DISPLAY 'Closed account exit' EXIT. SUSPENDED-ACCOUNT-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO SUCCESSFUL-EXITS DISPLAY 'Suspended account exit' EXIT. UNKNOWN-STATUS-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO ERROR-COUNT DISPLAY 'Unknown status exit' EXIT. DEMONSTRATE-CONDITIONAL-EXIT. MOVE 'CONDITIONAL-EXIT' TO CURRENT-OPERATION ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Demonstrating conditional EXIT usage...' PERFORM VALIDATION-WITH-CONDITIONAL-EXIT PERFORM BUSINESS-RULE-VALIDATION-WITH-EXIT DISPLAY 'Conditional EXIT demonstration completed'. VALIDATION-WITH-CONDITIONAL-EXIT. ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Validation with conditional exit' *> Validate customer ID IF CUSTOMER-ID < 10000000 OR CUSTOMER-ID > 99999999 DISPLAY 'Invalid customer ID: ' CUSTOMER-ID ADD 1 TO VALIDATION-ERRORS SET VALIDATION-FAILED TO TRUE PERFORM VALIDATION-FAILED-EXIT END-IF *> Validate account balance IF ACCOUNT-BALANCE < 0 DISPLAY 'Invalid account balance: ' ACCOUNT-BALANCE ADD 1 TO VALIDATION-ERRORS SET VALIDATION-FAILED TO TRUE PERFORM VALIDATION-FAILED-EXIT END-IF *> Validation passed DISPLAY 'Validation passed successfully' PERFORM VALIDATION-SUCCESS-EXIT. VALIDATION-FAILED-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO CONDITIONAL-EXITS DISPLAY 'Validation failed exit' EXIT. VALIDATION-SUCCESS-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO SUCCESSFUL-EXITS DISPLAY 'Validation success exit' EXIT. BUSINESS-RULE-VALIDATION-WITH-EXIT. ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Business rule validation with exit' *> Check account status for transactions IF NOT ACCOUNT-ACTIVE DISPLAY 'Account not active - cannot process transactions' ADD 1 TO VALIDATION-WARNINGS PERFORM BUSINESS-RULE-WARNING-EXIT END-IF *> Check transaction limits IF TRANSACTION-AMOUNT > 50000 DISPLAY 'Transaction exceeds limit: ' TRANSACTION-AMOUNT SET CRITICAL-ERROR TO TRUE PERFORM BUSINESS-RULE-CRITICAL-EXIT END-IF DISPLAY 'Business rule validation completed' PERFORM BUSINESS-RULE-SUCCESS-EXIT. BUSINESS-RULE-WARNING-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO CONDITIONAL-EXITS DISPLAY 'Business rule warning exit' EXIT. BUSINESS-RULE-CRITICAL-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO CONDITIONAL-EXITS DISPLAY 'Business rule critical exit' EXIT. BUSINESS-RULE-SUCCESS-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO SUCCESSFUL-EXITS DISPLAY 'Business rule success exit' EXIT. DEMONSTRATE-LOOP-EXIT-CONTROL. MOVE 'LOOP-EXIT-CONTROL' TO CURRENT-OPERATION ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Demonstrating loop EXIT control...' PERFORM CONTROLLED-LOOP-WITH-EXIT PERFORM CONDITIONAL-LOOP-WITH-EXIT PERFORM NESTED-LOOP-WITH-EXIT DISPLAY 'Loop EXIT control demonstration completed'. CONTROLLED-LOOP-WITH-EXIT. ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Controlled loop with EXIT' MOVE 1 TO LOOP-COUNTER PERFORM UNTIL LOOP-COUNTER > 5 DISPLAY 'Loop iteration: ' LOOP-COUNTER *> Conditional exit from loop processing IF LOOP-COUNTER = 3 DISPLAY 'Special processing at iteration 3' PERFORM SPECIAL-PROCESSING-EXIT END-IF ADD 1 TO LOOP-COUNTER END-PERFORM PERFORM CONTROLLED-LOOP-EXIT. SPECIAL-PROCESSING-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO LOOP-EXITS DISPLAY 'Special processing exit' EXIT. CONTROLLED-LOOP-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO LOOP-EXITS DISPLAY 'Controlled loop exit' EXIT. CONDITIONAL-LOOP-WITH-EXIT. ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Conditional loop with EXIT' MOVE 1 TO LOOP-COUNTER PERFORM UNTIL LOOP-COUNTER > MAX-ITERATIONS OR STOP-PROCESSING *> Simulate processing with conditional exit IF LOOP-COUNTER = 10 DISPLAY 'Early loop termination at iteration: ' LOOP-COUNTER SET STOP-PROCESSING TO TRUE PERFORM EARLY-TERMINATION-EXIT END-IF ADD 1 TO LOOP-COUNTER END-PERFORM PERFORM CONDITIONAL-LOOP-EXIT. EARLY-TERMINATION-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO LOOP-EXITS DISPLAY 'Early termination exit' EXIT. CONDITIONAL-LOOP-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO LOOP-EXITS DISPLAY 'Conditional loop exit' EXIT. NESTED-LOOP-WITH-EXIT. ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Nested loop with EXIT' MOVE 1 TO LOOP-COUNTER PERFORM UNTIL LOOP-COUNTER > 3 DISPLAY 'Outer loop iteration: ' LOOP-COUNTER PERFORM INNER-LOOP-PROCESSING ADD 1 TO LOOP-COUNTER END-PERFORM PERFORM NESTED-LOOP-EXIT. INNER-LOOP-PROCESSING. DISPLAY 'Inner loop processing' *> Simulate inner loop with exit PERFORM INNER-LOOP-LOGIC PERFORM INNER-LOOP-EXIT. INNER-LOOP-LOGIC. DISPLAY 'Inner loop logic executed' ADD 1 TO SUCCESS-COUNT. INNER-LOOP-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO LOOP-EXITS DISPLAY 'Inner loop exit' EXIT. NESTED-LOOP-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO LOOP-EXITS DISPLAY 'Nested loop exit' EXIT. DEMONSTRATE-PARAGRAPH-EXIT-PATTERNS. MOVE 'PARAGRAPH-EXIT-PATTERNS' TO CURRENT-OPERATION ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Demonstrating paragraph EXIT patterns...' PERFORM SINGLE-EXIT-POINT-PARAGRAPH PERFORM MULTIPLE-ENTRY-SINGLE-EXIT-PARAGRAPH PERFORM STRUCTURED-EXIT-PARAGRAPH DISPLAY 'Paragraph EXIT patterns demonstration completed'. SINGLE-EXIT-POINT-PARAGRAPH. ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Single exit point paragraph' *> All processing leads to single exit PERFORM PROCESS-STEP-1 PERFORM PROCESS-STEP-2 PERFORM PROCESS-STEP-3 PERFORM SINGLE-EXIT-POINT. PROCESS-STEP-1. DISPLAY 'Processing step 1' ADD 1 TO SUCCESS-COUNT. PROCESS-STEP-2. DISPLAY 'Processing step 2' ADD 1 TO SUCCESS-COUNT. PROCESS-STEP-3. DISPLAY 'Processing step 3' ADD 1 TO SUCCESS-COUNT. SINGLE-EXIT-POINT. ADD 1 TO EXITS-PERFORMED ADD 1 TO SUCCESSFUL-EXITS DISPLAY 'Single exit point reached' EXIT. MULTIPLE-ENTRY-SINGLE-EXIT-PARAGRAPH. ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Multiple entry single exit paragraph' *> Different entry points, common exit EVALUATE CUSTOMER-ID WHEN 1 THRU 1000000 PERFORM SMALL-CUSTOMER-PROCESSING WHEN 1000001 THRU 5000000 PERFORM MEDIUM-CUSTOMER-PROCESSING WHEN OTHER PERFORM LARGE-CUSTOMER-PROCESSING END-EVALUATE *> Common exit point PERFORM MULTIPLE-ENTRY-SINGLE-EXIT. SMALL-CUSTOMER-PROCESSING. DISPLAY 'Small customer processing' ADD 1 TO SUCCESS-COUNT. MEDIUM-CUSTOMER-PROCESSING. DISPLAY 'Medium customer processing' ADD 1 TO SUCCESS-COUNT. LARGE-CUSTOMER-PROCESSING. DISPLAY 'Large customer processing' ADD 1 TO SUCCESS-COUNT. MULTIPLE-ENTRY-SINGLE-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO SUCCESSFUL-EXITS DISPLAY 'Multiple entry single exit reached' EXIT. STRUCTURED-EXIT-PARAGRAPH. ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Structured exit paragraph' *> Structured approach with clear exit hierarchy PERFORM STRUCTURED-INITIALIZATION PERFORM STRUCTURED-PROCESSING PERFORM STRUCTURED-FINALIZATION PERFORM STRUCTURED-EXIT. STRUCTURED-INITIALIZATION. DISPLAY 'Structured initialization' PERFORM STRUCTURED-INIT-EXIT. STRUCTURED-INIT-EXIT. ADD 1 TO EXITS-PERFORMED DISPLAY 'Structured initialization exit' EXIT. STRUCTURED-PROCESSING. DISPLAY 'Structured processing' PERFORM STRUCTURED-PROC-EXIT. STRUCTURED-PROC-EXIT. ADD 1 TO EXITS-PERFORMED DISPLAY 'Structured processing exit' EXIT. STRUCTURED-FINALIZATION. DISPLAY 'Structured finalization' PERFORM STRUCTURED-FINAL-EXIT. STRUCTURED-FINAL-EXIT. ADD 1 TO EXITS-PERFORMED DISPLAY 'Structured finalization exit' EXIT. STRUCTURED-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO SUCCESSFUL-EXITS DISPLAY 'Structured exit reached' EXIT. DEMONSTRATE-SECTION-EXIT-CONTROL. MOVE 'SECTION-EXIT-CONTROL' TO CURRENT-OPERATION ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Demonstrating section EXIT control...' PERFORM SECTION-A PERFORM SECTION-B DISPLAY 'Section EXIT control demonstration completed'. SECTION-A SECTION. SECTION-A-MAIN. DISPLAY 'Section A main processing' PERFORM SECTION-A-PROCESSING PERFORM SECTION-A-EXIT. SECTION-A-PROCESSING. DISPLAY 'Section A processing logic' ADD 1 TO SUCCESS-COUNT. SECTION-A-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO SUCCESSFUL-EXITS DISPLAY 'Section A exit' EXIT. SECTION-B SECTION. SECTION-B-MAIN. DISPLAY 'Section B main processing' PERFORM SECTION-B-PROCESSING PERFORM SECTION-B-EXIT. SECTION-B-PROCESSING. DISPLAY 'Section B processing logic' ADD 1 TO SUCCESS-COUNT. SECTION-B-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO SUCCESSFUL-EXITS DISPLAY 'Section B exit' EXIT. MAIN-SECTION SECTION. DEMONSTRATE-ERROR-HANDLING-WITH-EXIT. MOVE 'ERROR-HANDLING-EXIT' TO CURRENT-OPERATION ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Demonstrating error handling with EXIT...' PERFORM ERROR-PRONE-PROCESSING PERFORM RECOVERY-PROCESSING-WITH-EXIT DISPLAY 'Error handling EXIT demonstration completed'. ERROR-PRONE-PROCESSING. DISPLAY 'Error-prone processing' *> Simulate error condition IF CUSTOMER-ID = 0 DISPLAY 'Error: Invalid customer ID' ADD 1 TO ERROR-COUNT SET CRITICAL-ERROR TO TRUE PERFORM ERROR-PROCESSING-EXIT END-IF DISPLAY 'Error-prone processing completed' PERFORM ERROR-PRONE-SUCCESS-EXIT. ERROR-PROCESSING-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO CONDITIONAL-EXITS DISPLAY 'Error processing exit' EXIT. ERROR-PRONE-SUCCESS-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO SUCCESSFUL-EXITS DISPLAY 'Error-prone success exit' EXIT. RECOVERY-PROCESSING-WITH-EXIT. DISPLAY 'Recovery processing with EXIT' IF CRITICAL-ERROR DISPLAY 'Performing error recovery' PERFORM ERROR-RECOVERY-PROCEDURES PERFORM RECOVERY-EXIT ELSE DISPLAY 'No recovery needed' PERFORM NORMAL-PROCESSING-EXIT END-IF. ERROR-RECOVERY-PROCEDURES. DISPLAY 'Error recovery procedures executed' SET NO-CRITICAL-ERROR TO TRUE SUBTRACT 1 FROM ERROR-COUNT. RECOVERY-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO SUCCESSFUL-EXITS DISPLAY 'Recovery exit' EXIT. NORMAL-PROCESSING-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO SUCCESSFUL-EXITS DISPLAY 'Normal processing exit' EXIT. DISPLAY-EXIT-STATISTICS. MOVE 'STATISTICS' TO CURRENT-OPERATION ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'EXIT Statement Statistics:' DISPLAY '=========================' DISPLAY 'Paragraphs executed: ' PARAGRAPHS-EXECUTED DISPLAY 'Total exits performed: ' EXITS-PERFORMED DISPLAY 'Successful exits: ' SUCCESSFUL-EXITS DISPLAY 'Conditional exits: ' CONDITIONAL-EXITS DISPLAY 'Loop exits: ' LOOP-EXITS DISPLAY 'Success count: ' SUCCESS-COUNT DISPLAY 'Error count: ' ERROR-COUNT IF EXITS-PERFORMED > 0 COMPUTE SUCCESSFUL-EXITS = (SUCCESSFUL-EXITS / EXITS-PERFORMED) * 100 DISPLAY 'Success rate: ' SUCCESSFUL-EXITS '%' END-IF PERFORM STATISTICS-EXIT. STATISTICS-EXIT. ADD 1 TO EXITS-PERFORMED DISPLAY 'Statistics exit' EXIT. CLEANUP-PROGRAM. MOVE 'CLEANUP' TO CURRENT-OPERATION ADD 1 TO PARAGRAPHS-EXECUTED DISPLAY 'Program cleanup started' *> Reset all flags and counters SET CONTINUE-PROCESSING TO TRUE SET NO-CRITICAL-ERROR TO TRUE SET VALIDATION-PASSED TO TRUE DISPLAY 'Program cleanup completed' PERFORM CLEANUP-EXIT. CLEANUP-EXIT. ADD 1 TO EXITS-PERFORMED ADD 1 TO SUCCESSFUL-EXITS DISPLAY 'Cleanup exit' EXIT.