The FALSE condition represents a fundamental boolean concept in COBOL programming, serving as a logical constant that evaluates to false in conditional expressions, boolean operations, and decision-making processes. This condition embodies the principles of boolean algebra and logical reasoning, enabling sophisticated program control flow, complex conditional logic, and robust decision-making mechanisms that support structured programming practices and enhance code readability through explicit boolean value representation and logical operation clarity.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584IDENTIFICATION DIVISION. PROGRAM-ID. FALSE-CONDITION-COMPREHENSIVE. DATA DIVISION. WORKING-STORAGE SECTION. 01 BOOLEAN-LOGIC-CONTROL. 05 CONDITION-RESULT PIC X VALUE 'F'. 88 CONDITION-TRUE VALUE 'T'. 88 CONDITION-FALSE VALUE 'F'. 05 LOGICAL-OPERATION PIC X(20). 05 BOOLEAN-EXPRESSION PIC X VALUE 'F'. 88 EXPRESSION-TRUE VALUE 'T'. 88 EXPRESSION-FALSE VALUE 'F'. 05 EVALUATION-COUNT PIC 9(5) VALUE 0. 05 TRUE-COUNT PIC 9(5) VALUE 0. 05 FALSE-COUNT PIC 9(5) VALUE 0. 01 BUSINESS-LOGIC-FLAGS. 05 CUSTOMER-ACTIVE PIC X VALUE 'N'. 88 CUSTOMER-IS-ACTIVE VALUE 'Y'. 88 CUSTOMER-INACTIVE VALUE 'N'. 05 ACCOUNT-VALID PIC X VALUE 'N'. 88 ACCOUNT-IS-VALID VALUE 'Y'. 88 ACCOUNT-INVALID VALUE 'N'. 05 TRANSACTION-APPROVED PIC X VALUE 'N'. 88 TRANS-APPROVED VALUE 'Y'. 88 TRANS-DENIED VALUE 'N'. 05 CREDIT-CHECK-PASSED PIC X VALUE 'N'. 88 CREDIT-APPROVED VALUE 'Y'. 88 CREDIT-DENIED VALUE 'N'. 05 SECURITY-VERIFIED PIC X VALUE 'N'. 88 SECURITY-OK VALUE 'Y'. 88 SECURITY-FAILED VALUE 'N'. 01 COMPLEX-CONDITIONS. 05 CONDITION-A PIC X VALUE 'F'. 88 A-TRUE VALUE 'T'. 88 A-FALSE VALUE 'F'. 05 CONDITION-B PIC X VALUE 'F'. 88 B-TRUE VALUE 'T'. 88 B-FALSE VALUE 'F'. 05 CONDITION-C PIC X VALUE 'F'. 88 C-TRUE VALUE 'T'. 88 C-FALSE VALUE 'F'. 05 CONDITION-D PIC X VALUE 'F'. 88 D-TRUE VALUE 'T'. 88 D-FALSE VALUE 'F'. 01 VALIDATION-RESULTS. 05 INPUT-VALIDATION PIC X VALUE 'F'. 88 INPUT-VALID VALUE 'T'. 88 INPUT-INVALID VALUE 'F'. 05 BUSINESS-RULE-CHECK PIC X VALUE 'F'. 88 RULE-PASSED VALUE 'T'. 88 RULE-FAILED VALUE 'F'. 05 SECURITY-CHECK PIC X VALUE 'F'. 88 SECURITY-PASSED VALUE 'T'. 88 SECURITY-REJECTED VALUE 'F'. 05 AUTHORIZATION-CHECK PIC X VALUE 'F'. 88 AUTH-GRANTED VALUE 'T'. 88 AUTH-DENIED VALUE 'F'. 01 PROCESSING-CONTROL. 05 CONTINUE-PROCESSING PIC X VALUE 'T'. 88 SHOULD-CONTINUE VALUE 'T'. 88 SHOULD-STOP VALUE 'F'. 05 ERROR-OCCURRED PIC X VALUE 'F'. 88 HAS-ERROR VALUE 'T'. 88 NO-ERROR VALUE 'F'. 05 RETRY-ALLOWED PIC X VALUE 'T'. 88 CAN-RETRY VALUE 'T'. 88 NO-RETRY VALUE 'F'. 05 BATCH-MODE PIC X VALUE 'T'. 88 IS-BATCH-MODE VALUE 'T'. 88 IS-INTERACTIVE VALUE 'F'. 01 PERFORMANCE-METRICS. 05 TOTAL-EVALUATIONS PIC 9(7) VALUE 0. 05 TRUE-EVALUATIONS PIC 9(7) VALUE 0. 05 FALSE-EVALUATIONS PIC 9(7) VALUE 0. 05 COMPLEX-EVALUATIONS PIC 9(6) VALUE 0. 05 SIMPLE-EVALUATIONS PIC 9(6) VALUE 0. 05 LOGICAL-OPERATIONS PIC 9(6) VALUE 0. PROCEDURE DIVISION. MAIN-PROCESSING. PERFORM INITIALIZE-FALSE-PROCESSING PERFORM DEMONSTRATE-BASIC-FALSE-USAGE PERFORM DEMONSTRATE-COMPLEX-FALSE-LOGIC PERFORM DEMONSTRATE-BUSINESS-LOGIC-WITH-FALSE PERFORM DEMONSTRATE-VALIDATION-WITH-FALSE PERFORM DEMONSTRATE-CONTROL-FLOW-WITH-FALSE PERFORM DEMONSTRATE-LOGICAL-OPERATIONS PERFORM DISPLAY-FALSE-STATISTICS STOP RUN. INITIALIZE-FALSE-PROCESSING. DISPLAY 'Initializing FALSE condition processing...' SET CONDITION-FALSE TO TRUE SET EXPRESSION-FALSE TO TRUE SET CUSTOMER-INACTIVE TO TRUE SET ACCOUNT-INVALID TO TRUE SET TRANS-DENIED TO TRUE SET CREDIT-DENIED TO TRUE SET SECURITY-FAILED TO TRUE SET A-FALSE TO TRUE SET B-FALSE TO TRUE SET C-FALSE TO TRUE SET D-FALSE TO TRUE SET INPUT-INVALID TO TRUE SET RULE-FAILED TO TRUE SET SECURITY-REJECTED TO TRUE SET AUTH-DENIED TO TRUE DISPLAY 'FALSE condition initialization completed'. DEMONSTRATE-BASIC-FALSE-USAGE. DISPLAY 'Demonstrating basic FALSE usage...' *> Simple FALSE condition check IF CONDITION-FALSE DISPLAY 'Condition is FALSE' ADD 1 TO FALSE-COUNT ELSE DISPLAY 'Condition is not FALSE' ADD 1 TO TRUE-COUNT END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO SIMPLE-EVALUATIONS *> FALSE in boolean expression IF EXPRESSION-FALSE DISPLAY 'Expression evaluates to FALSE' ADD 1 TO FALSE-EVALUATIONS ELSE DISPLAY 'Expression does not evaluate to FALSE' ADD 1 TO TRUE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO SIMPLE-EVALUATIONS *> NOT FALSE condition IF NOT CONDITION-FALSE DISPLAY 'NOT FALSE condition is TRUE' ADD 1 TO TRUE-EVALUATIONS ELSE DISPLAY 'NOT FALSE condition is FALSE' ADD 1 TO FALSE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO SIMPLE-EVALUATIONS *> FALSE with EVALUATE EVALUATE CONDITION-FALSE WHEN TRUE DISPLAY 'EVALUATE: Condition is FALSE (TRUE case)' MOVE 'FALSE-EVAL' TO LOGICAL-OPERATION WHEN FALSE DISPLAY 'EVALUATE: Condition is not FALSE (FALSE case)' MOVE 'NOT-FALSE' TO LOGICAL-OPERATION END-EVALUATE ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO SIMPLE-EVALUATIONS. DEMONSTRATE-COMPLEX-FALSE-LOGIC. DISPLAY 'Demonstrating complex FALSE logic...' *> Multiple FALSE conditions with AND IF A-FALSE AND B-FALSE DISPLAY 'Both A and B are FALSE' MOVE 'AND-FALSE' TO LOGICAL-OPERATION ADD 1 TO FALSE-EVALUATIONS ELSE DISPLAY 'At least one of A or B is not FALSE' MOVE 'AND-MIXED' TO LOGICAL-OPERATION ADD 1 TO TRUE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO COMPLEX-EVALUATIONS ADD 1 TO LOGICAL-OPERATIONS *> Multiple FALSE conditions with OR IF A-FALSE OR B-FALSE DISPLAY 'At least one of A or B is FALSE' MOVE 'OR-FALSE' TO LOGICAL-OPERATION ADD 1 TO TRUE-EVALUATIONS ELSE DISPLAY 'Neither A nor B is FALSE' MOVE 'OR-TRUE' TO LOGICAL-OPERATION ADD 1 TO FALSE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO COMPLEX-EVALUATIONS ADD 1 TO LOGICAL-OPERATIONS *> Complex nested FALSE conditions IF (A-FALSE AND B-FALSE) OR (C-FALSE AND D-FALSE) DISPLAY 'Complex FALSE condition: (A AND B) OR (C AND D) is TRUE' MOVE 'COMPLEX-TRUE' TO LOGICAL-OPERATION ADD 1 TO TRUE-EVALUATIONS ELSE DISPLAY 'Complex FALSE condition: (A AND B) OR (C AND D) is FALSE' MOVE 'COMPLEX-FALSE' TO LOGICAL-OPERATION ADD 1 TO FALSE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO COMPLEX-EVALUATIONS ADD 1 TO LOGICAL-OPERATIONS *> FALSE with NOT operator IF NOT (A-FALSE AND B-FALSE) DISPLAY 'NOT (A-FALSE AND B-FALSE) is TRUE' MOVE 'NOT-AND-FALSE' TO LOGICAL-OPERATION ADD 1 TO TRUE-EVALUATIONS ELSE DISPLAY 'NOT (A-FALSE AND B-FALSE) is FALSE' MOVE 'NOT-AND-TRUE' TO LOGICAL-OPERATION ADD 1 TO FALSE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO COMPLEX-EVALUATIONS ADD 1 TO LOGICAL-OPERATIONS. DEMONSTRATE-BUSINESS-LOGIC-WITH-FALSE. DISPLAY 'Demonstrating business logic with FALSE...' *> Customer validation with FALSE conditions IF CUSTOMER-INACTIVE DISPLAY 'Customer is inactive - cannot process transaction' MOVE 'CUSTOMER-INACTIVE' TO LOGICAL-OPERATION ADD 1 TO FALSE-EVALUATIONS ELSE DISPLAY 'Customer is active - can process transaction' MOVE 'CUSTOMER-ACTIVE' TO LOGICAL-OPERATION ADD 1 TO TRUE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO SIMPLE-EVALUATIONS *> Account validation with FALSE conditions IF ACCOUNT-INVALID DISPLAY 'Account is invalid - transaction denied' MOVE 'ACCOUNT-INVALID' TO LOGICAL-OPERATION ADD 1 TO FALSE-EVALUATIONS ELSE DISPLAY 'Account is valid - transaction can proceed' MOVE 'ACCOUNT-VALID' TO LOGICAL-OPERATION ADD 1 TO TRUE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO SIMPLE-EVALUATIONS *> Transaction approval with multiple FALSE conditions IF CUSTOMER-INACTIVE OR ACCOUNT-INVALID OR TRANS-DENIED DISPLAY 'Transaction cannot be processed due to FALSE conditions' MOVE 'TRANS-BLOCKED' TO LOGICAL-OPERATION ADD 1 TO TRUE-EVALUATIONS ELSE DISPLAY 'All conditions met - transaction approved' MOVE 'TRANS-APPROVED' TO LOGICAL-OPERATION ADD 1 TO FALSE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO COMPLEX-EVALUATIONS ADD 1 TO LOGICAL-OPERATIONS *> Credit and security check with FALSE IF CREDIT-DENIED AND SECURITY-FAILED DISPLAY 'Both credit and security checks failed' MOVE 'DUAL-FAILURE' TO LOGICAL-OPERATION ADD 1 TO TRUE-EVALUATIONS ELSE DISPLAY 'At least one check passed' MOVE 'PARTIAL-SUCCESS' TO LOGICAL-OPERATION ADD 1 TO FALSE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO COMPLEX-EVALUATIONS ADD 1 TO LOGICAL-OPERATIONS. DEMONSTRATE-VALIDATION-WITH-FALSE. DISPLAY 'Demonstrating validation with FALSE...' *> Input validation with FALSE IF INPUT-INVALID DISPLAY 'Input validation failed' PERFORM HANDLE-INVALID-INPUT ADD 1 TO FALSE-EVALUATIONS ELSE DISPLAY 'Input validation passed' PERFORM PROCESS-VALID-INPUT ADD 1 TO TRUE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO SIMPLE-EVALUATIONS *> Business rule validation with FALSE IF RULE-FAILED DISPLAY 'Business rule validation failed' PERFORM HANDLE-RULE-FAILURE ADD 1 TO FALSE-EVALUATIONS ELSE DISPLAY 'Business rule validation passed' PERFORM PROCESS-RULE-SUCCESS ADD 1 TO TRUE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO SIMPLE-EVALUATIONS *> Security validation with FALSE IF SECURITY-REJECTED DISPLAY 'Security validation failed' PERFORM HANDLE-SECURITY-FAILURE ADD 1 TO FALSE-EVALUATIONS ELSE DISPLAY 'Security validation passed' PERFORM PROCESS-SECURITY-SUCCESS ADD 1 TO TRUE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO SIMPLE-EVALUATIONS *> Authorization check with FALSE IF AUTH-DENIED DISPLAY 'Authorization denied' PERFORM HANDLE-AUTH-DENIAL ADD 1 TO FALSE-EVALUATIONS ELSE DISPLAY 'Authorization granted' PERFORM PROCESS-AUTH-SUCCESS ADD 1 TO TRUE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO SIMPLE-EVALUATIONS *> Combined validation with FALSE IF INPUT-INVALID OR RULE-FAILED OR SECURITY-REJECTED OR AUTH-DENIED DISPLAY 'At least one validation failed' PERFORM HANDLE-VALIDATION-FAILURE ADD 1 TO TRUE-EVALUATIONS ELSE DISPLAY 'All validations passed' PERFORM PROCESS-VALIDATION-SUCCESS ADD 1 TO FALSE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO COMPLEX-EVALUATIONS ADD 1 TO LOGICAL-OPERATIONS. HANDLE-INVALID-INPUT. DISPLAY 'Handling invalid input condition' SET HAS-ERROR TO TRUE. PROCESS-VALID-INPUT. DISPLAY 'Processing valid input' SET NO-ERROR TO TRUE. HANDLE-RULE-FAILURE. DISPLAY 'Handling business rule failure' SET HAS-ERROR TO TRUE. PROCESS-RULE-SUCCESS. DISPLAY 'Processing business rule success' SET NO-ERROR TO TRUE. HANDLE-SECURITY-FAILURE. DISPLAY 'Handling security failure' SET HAS-ERROR TO TRUE. PROCESS-SECURITY-SUCCESS. DISPLAY 'Processing security success' SET NO-ERROR TO TRUE. HANDLE-AUTH-DENIAL. DISPLAY 'Handling authorization denial' SET HAS-ERROR TO TRUE. PROCESS-AUTH-SUCCESS. DISPLAY 'Processing authorization success' SET NO-ERROR TO TRUE. HANDLE-VALIDATION-FAILURE. DISPLAY 'Handling validation failure' SET HAS-ERROR TO TRUE. PROCESS-VALIDATION-SUCCESS. DISPLAY 'Processing validation success' SET NO-ERROR TO TRUE. DEMONSTRATE-CONTROL-FLOW-WITH-FALSE. DISPLAY 'Demonstrating control flow with FALSE...' *> Loop control with FALSE PERFORM UNTIL SHOULD-STOP DISPLAY 'Processing iteration...' *> Simulate condition that stops processing IF EVALUATION-COUNT > 15 SET SHOULD-STOP TO TRUE DISPLAY 'Setting SHOULD-STOP to TRUE (FALSE condition)' END-IF ADD 1 TO EVALUATION-COUNT END-PERFORM ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO SIMPLE-EVALUATIONS *> Error handling with FALSE IF HAS-ERROR DISPLAY 'Error occurred - checking retry flag' IF NO-RETRY DISPLAY 'Retry not allowed - terminating' SET SHOULD-STOP TO TRUE ELSE DISPLAY 'Retry allowed - continuing' SET NO-ERROR TO TRUE END-IF ELSE DISPLAY 'No error - continuing normal processing' END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO COMPLEX-EVALUATIONS ADD 1 TO LOGICAL-OPERATIONS *> Mode checking with FALSE IF IS-INTERACTIVE DISPLAY 'Interactive mode - user input required' MOVE 'INTERACTIVE' TO LOGICAL-OPERATION ELSE DISPLAY 'Batch mode - automated processing' MOVE 'BATCH' TO LOGICAL-OPERATION END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO SIMPLE-EVALUATIONS. DEMONSTRATE-LOGICAL-OPERATIONS. DISPLAY 'Demonstrating logical operations with FALSE...' *> Set some conditions to TRUE for testing SET A-TRUE TO TRUE SET C-TRUE TO TRUE *> AND operation with mixed TRUE/FALSE IF A-TRUE AND B-FALSE DISPLAY 'AND operation: TRUE AND FALSE = FALSE' MOVE 'AND-MIXED' TO LOGICAL-OPERATION ADD 1 TO FALSE-EVALUATIONS ELSE DISPLAY 'AND operation result is FALSE' MOVE 'AND-FALSE' TO LOGICAL-OPERATION ADD 1 TO TRUE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO LOGICAL-OPERATIONS *> OR operation with mixed TRUE/FALSE IF A-TRUE OR B-FALSE DISPLAY 'OR operation: TRUE OR FALSE = TRUE' MOVE 'OR-MIXED' TO LOGICAL-OPERATION ADD 1 TO TRUE-EVALUATIONS ELSE DISPLAY 'OR operation result is FALSE' MOVE 'OR-FALSE' TO LOGICAL-OPERATION ADD 1 TO FALSE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO LOGICAL-OPERATIONS *> Complex logical expression IF (A-TRUE OR B-FALSE) AND (C-TRUE AND D-FALSE) DISPLAY 'Complex: (TRUE OR FALSE) AND (TRUE AND FALSE) = FALSE' MOVE 'COMPLEX-LOGICAL' TO LOGICAL-OPERATION ADD 1 TO FALSE-EVALUATIONS ELSE DISPLAY 'Complex logical expression result is FALSE' MOVE 'COMPLEX-FALSE' TO LOGICAL-OPERATION ADD 1 TO TRUE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO COMPLEX-EVALUATIONS ADD 1 TO LOGICAL-OPERATIONS *> De Morgan's Law demonstration IF NOT (A-TRUE AND B-FALSE) DISPLAY 'De Morgan: NOT (TRUE AND FALSE) = NOT FALSE = TRUE' MOVE 'DEMORGAN-1' TO LOGICAL-OPERATION ADD 1 TO TRUE-EVALUATIONS ELSE DISPLAY 'De Morgan law result is FALSE' MOVE 'DEMORGAN-FALSE' TO LOGICAL-OPERATION ADD 1 TO FALSE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO COMPLEX-EVALUATIONS ADD 1 TO LOGICAL-OPERATIONS IF (NOT A-TRUE) OR (NOT B-FALSE) DISPLAY 'De Morgan: (NOT TRUE) OR (NOT FALSE) = FALSE OR TRUE = TRUE' MOVE 'DEMORGAN-2' TO LOGICAL-OPERATION ADD 1 TO TRUE-EVALUATIONS ELSE DISPLAY 'De Morgan equivalent result is FALSE' MOVE 'DEMORGAN-EQ-FALSE' TO LOGICAL-OPERATION ADD 1 TO FALSE-EVALUATIONS END-IF ADD 1 TO EVALUATION-COUNT ADD 1 TO TOTAL-EVALUATIONS ADD 1 TO COMPLEX-EVALUATIONS ADD 1 TO LOGICAL-OPERATIONS. DISPLAY-FALSE-STATISTICS. DISPLAY 'FALSE Condition Statistics:' DISPLAY '==========================' DISPLAY 'Total evaluations: ' TOTAL-EVALUATIONS DISPLAY 'TRUE evaluations: ' TRUE-EVALUATIONS DISPLAY 'FALSE evaluations: ' FALSE-EVALUATIONS DISPLAY 'Simple evaluations: ' SIMPLE-EVALUATIONS DISPLAY 'Complex evaluations: ' COMPLEX-EVALUATIONS DISPLAY 'Logical operations: ' LOGICAL-OPERATIONS DISPLAY 'Evaluation count: ' EVALUATION-COUNT DISPLAY 'TRUE count: ' TRUE-COUNT DISPLAY 'FALSE count: ' FALSE-COUNT DISPLAY 'Last operation: ' LOGICAL-OPERATION IF TOTAL-EVALUATIONS > 0 COMPUTE TRUE-EVALUATIONS = (TRUE-EVALUATIONS / TOTAL-EVALUATIONS) * 100 DISPLAY 'TRUE percentage: ' TRUE-EVALUATIONS '%' COMPUTE FALSE-EVALUATIONS = (FALSE-EVALUATIONS / TOTAL-EVALUATIONS) * 100 DISPLAY 'FALSE percentage: ' FALSE-EVALUATIONS '%' END-IF.