COBOL Manual for TNS and TNS/R Programs

Contents
HP COBOL Manual for TNS and TNS/R Programs—522555-006
xliii
Examples (continued)
Examples (continued)
Example 27-4. Labeled Tape File 27-10
Example 27-5. Converting a COBOL95 Program to Use Labeled Tape Files 27-11
Example 27-6. Copying an EBCDIC File to a New ASCII File 27-13
Example 27-7. Copying an EBCDIC File to an Existing ASCII File 27-13
Example 27-8. Copying an EBCDIC File to an Existing ASCII File 27-13
Example 27-9. DEFINE for Unlabeled Tape File With Variable-Length
Records 27-18
Example 27-10. DEFINE for Unlabeled Tape File With Fixed-Length Records 27-18
Example 27-11. DEFINE for Labeled Tape File With Variable-Length Records and
Labels to Be Bypassed 27-23
Example 27-12. DEFINE for Labeled Tape File With Variable-Length Records and
Standard IBM Labels 27-23
Example 27-13. DEFINE for Labeled Tape File With Fixed-Length Records and
Standard ASCII Labels 27-24
Example 28-1. File Accessible Only to Owner and Only Locally 28-5
Example 28-2. File Accessible Only to Owner 28-5
Example 28-3. File Readable and Executable to Owner’s User Group 28-5
Example 28-4. File Readable to Any User 28-5
Example 28-5. Setting Default File Security to “UUUU” 28-5
Example 28-6. Setting Default File Security to “CUCU” 28-5
Example 28-7. Relative File Without Alternate Keys 28-17
Example 28-8. Indexed File Without Alternate Keys 28-18
Example 28-9. Creating a Queue File With a Timestamp and a User Key 28-19
Example 28-10. Key of Reference 28-21
Example 28-11. Generic Positioning 28-25
Example 28-12. Use of START With the POSITION Phrase 28-27
Example 28-13.
Purging a File From an HP COBOL Program 28-43
Example 28-14.
Dynamic File Assignment 28-47
Example 29-1. ACCEPT and DISPLAY Statements With a Terminal 29-3
Example 29-2. Using a Terminal as a File 29-5
Example 29-3. READ Statement With PROMPT Phrase 29-6
Example 29-4. Transferring Break Ownership 29-10
Example 29-5. Using DISPLAY Statements to Write to a Console 29-11
Example 29-6. Reading and Writing Numeric Data 29-13
Example 30-1. Level-1 Spooling 30-8
Example 30-2. Level-2 Spooling 30-10
Example 30-3. PERUSE Output 30-12
Example 30-4. END-OF-PAGE Phrase 30-21