COBOL Manual for TNS and TNS/R Programs

Contents
HP COBOL Manual for TNS and TNS/R Programs522555-006
xxxvii
Examples (continued)
Examples (continued)
Example 8-9. CORRESPONDING Phrase 8-23
Example 8-10. SIZE ERROR Phrase and TRAP2 Directive 8-25
Example 8-11. Simple Relation Conditions 8-57
Example 8-12. Conditional Variables 8-62
Example 8-13. External Switches 8-62
Example 8-14. Sign Conditions 8-63
Example 8-15. Concatenation Expressions 8-70
Example 9-1. ACCEPT Statement Reading From a Terminal 9-4
Example 9-2. ACCEPT Statement Reading Alphanumeric Data 9-4
Example 9-3. ACCEPT Statement Reading Numeric Data 9-5
Example 9-4. ACCEPT Statements Reading Current Data and Time 9-8
Example 9-5. ADD CORRESPONDING Statement 9-16
Example 9-6. ALTER Statement 9-17
Example 9-7. Alternative to ALTER Statement 9-17
Example 9-8. Called Program That Calls Another Program 9-29
Example 9-9. COMPUTE Statement 9-42
Example 9-10. Combination of IF and COMPUTE Statements 9-43
Example 9-11. CONTINUE Statement 9-44
Example 9-12. DELETE Statement 9-47
Example 9-13. DISPLAY Statement 9-48
Example 9-14. DIVIDE INTO Statement With GIVING and REMAINDER
Phrases 9-57
Example 9-15. DIVIDE BY Statement With GIVING and REMAINDER
Phrases 9-57
Example 9-16. Calling a pTAL Routine That Does Not Ignore Trailing Spaces 9-65
Example 9-17. HP COBOL Program Calling TAL Routine 9-66
Example 9-18.
HP COBOL Program Calling TAL Routine in Object File 9-66
Example 9-19.
EVALUATE Statement as “Case” Statement 9-70
Example 9-20. EVALUATE Statement With Both Ranges and Discrete Values 9-70
Example 9-21. EVALUATE Statement With Two Distinct Subjects 9-71
Example 9-22. EVALUATE Statement as a Decision Table 9-71
Example 9-23. EXIT PERFORM Statement 9-78
Example 9-24. EXIT PERFORM CYCLE Statement 9-79
Example 9-25.
EXIT Statement in Nested In-Line PERFORM Statement 9-80
Example 9-26.
Three-Way Conditional GO TO Statement 9-83
Example 9-27. Simple Conditional IF Statement 9-89
Example 9-28. Delimited-Scope IF Statement 9-89
Example 9-29. Simple Conditional IF ELSE Statement 9-89