COBOL Manual for TNS/E Programs (H06.03+)
Contents
HP COBOL Manual for TNS/E Programs—520347-003
xxxiv
Examples (continued)
Examples (continued)
Example 9-36. INSPECT TALLYING With Multiple Compare-Strings 9-92
Example 9-37. INSPECT Statement Converting Leading Spaces to Zeros 9-96
Example 9-38. One INSPECT Statement, Several Replacements 9-97
Example 9-39. INSPECT CONVERTING Statement 9-104
Example 9-40. LOCKFILE Statement With TIME LIMIT Phrase 9-107
Example 9-41. MERGE Statement 9-115
Example 9-42. MOVE TO Statements 9-118
Example 9-43. MULTIPLY BY Statement 9-123
Example 9-44. MULTIPLY BY Statement With ROUNDED Phrase 9-123
Example 9-45. MULTIPLY GIVING Statement 9-126
Example 9-46. OPEN Statements 9-144
Example 9-47. Unconditional PERFORM Statement With One Paragraph 9-149
Example 9-48. Unconditional PERFORM Statement With Several
Paragraphs 9-149
Example 9-49. In-Line PERFORM Statement With Delimited-Scope
Statements 9-149
Example 9-50. PERFORM TIMES Statement 9-151
Example 9-51. PERFORM TIMES Statement 9-151
Example 9-52. PERFORM UNTIL Statement 9-154
Example 9-53. PERFORM VARYING Statement Used to Display a List 9-164
Example 9-54. PERFORM VARYING Statement Used to Build a Table 9-165
Example 9-55. Reading a Sequential File 9-178
Example 9-56. Reading a Dynamic Indexed File 9-179
Example 9-57. Reading $RECEIVE With Timed Input-Output 9-179
Example 9-58. Reading a Random Indexed File 9-188
Example 9-59. REWRITE Statement for Indexed File 9-195
Example 9-60.
SEARCH VARYING Statement 9-202
Example 9-61.
SEARCH ALL Statement 9-206
Example 9-62. Typical Use of Input and Output Procedures 9-224
Example 9-63. START Statement for Indexed File 9-236
Example 9-64. START Statement With GENERIC Phrase for Sequential File 9-237
Example 9-65. START Statement With POSITION Phrase 9-238
Example 9-66. STRING Statement 9-247
Example 9-67.
UNLOCKFILE Statement 9-256
Example 9-68.
UNSTRING Statement 9-267
Example 9-69. UNSTRING Statement 9-267
Example 9-70. USE AFTER EXCEPTION Statement 9-273
Example 9-71. ADVANCING Phrase 9-281










