| Chapter 7 |
|
7
|
Intrinsic Functions
|
|
7.1
|
Introduction
|
|
Command 1
|
Intrinsic Function
|
|
7.2
|
ACOS
|
|
7.3
|
ANNUITY
|
|
7.4
|
ARGCOUNT (OpenVMS Only)
|
|
7.5
|
ASIN
|
|
7.6
|
ATAN
|
|
7.7
|
CHAR
|
|
7.8
|
COS
|
|
7.9
|
CURRENT-DATE
|
|
7.10
|
DATE-OF-INTEGER
|
|
7.11
|
DATE-TO-YYYYMMDD
|
|
7.12
|
DAY-OF-INTEGER
|
|
7.13
|
DAY-TO-YYYYDDD
|
|
7.14
|
FACTORIAL
|
|
7.15
|
INTEGER
|
|
7.16
|
INTEGER-OF-DATE
|
|
7.17
|
INTEGER-OF-DAY
|
|
7.18
|
INTEGER-PART
|
|
7.19
|
LENGTH
|
|
7.20
|
LOG
|
|
7.21
|
LOG10
|
|
7.22
|
LOWER-CASE
|
|
7.23
|
MAX
|
|
7.24
|
MEAN
|
|
7.25
|
MEDIAN
|
|
7.26
|
MIDRANGE
|
|
7.27
|
MIN
|
|
7.28
|
MOD
|
|
7.29
|
NUMVAL
|
|
7.30
|
NUMVAL-C
|
|
7.31
|
ORD
|
|
7.32
|
ORD-MAX
|
|
7.33
|
ORD-MIN
|
|
7.34
|
PRESENT-VALUE
|
|
7.35
|
RANDOM
|
|
7.36
|
RANGE
|
|
7.37
|
REM
|
|
7.38
|
REVERSE
|
|
7.39
|
SIN
|
|
7.40
|
SQRT
|
|
7.41
|
STANDARD-DEVIATION
|
|
7.42
|
SUM
|
|
7.43
|
TAN
|
|
7.44
|
TEST-DATE-YYYYMMDD
|
|
7.45
|
TEST-DAY-YYYYDDD
|
|
7.46
|
UPPER-CASE
|
|
7.47
|
VARIANCE
|
|
7.48
|
WHEN-COMPILED
|
|
7.49
|
YEAR-TO-YYYY
|
| Chapter 8 |
|
8
|
Source Text Manipulation
|
|
8.1
|
Text-Word Definition Rules
|
|
8.1.1
|
COPY
|
|
8.1.2
|
REPLACE
|
| Appendix A |
|
Appendix A
|
Compaq COBOL Reserved Words
|
| Appendix B |
|
Appendix B
|
Character Sets
|
| Appendix C |
|
Appendix C
|
File Status Values
|
| Appendix D |
|
Appendix D
|
Report Writer Presentation Rules and Tables
|
|
D.1
|
Organization
|
|
D.2
|
LINE NUMBER Clause Notation
|
|
D.3
|
LINE NUMBER Clause Sequence Substitutions
|
|
D.4
|
Saved-Next-Group-Integer Description
|
|
D.5
|
REPORT HEADING Group Presentation Rules
|
|
D.6
|
PAGE HEADING Group Presentation Rules
|
|
D.7
|
Body Group Presentation Rules
|
|
D.8
|
PAGE FOOTING Group Presentation Rules
|
|
D.9
|
REPORT FOOTING Group Presentation Rules
|
| Appendix E |
|
Appendix E
|
RTL Routines for Accessing the RAB and FAB Structures (OpenVMS Only)
|
|
Command 2
|
DCOB$RMS_CURRENT_FAB
|
|
Command 3
|
DCOB$RMS_CURRENT_RAB
|
| Glossary |
|
Glossary
|
Glossary
|
| Index |
Index |
| Examples |
| 5-1 |
Multiple Record Definition Structure |
| 6-1 |
Subscripting Example |
| 6-2 |
Indexing Example |
| 6-3 |
Separately Compiled Program 1 |
| 6-4 |
Separately Compiled Program 2 |
| 6-5 |
Separately Compiled Program 3 |
| 6-6 |
Separately Compiled Program 1 |
| 6-7 |
Separately Compiled Program 2 |
| 6-8 |
Separately Compiled Program 3 |
| 6-9 |
Resolving References to Miscellaneous Names |
| 8-1 |
COPY with No REPLACING Phrase |
| 8-2 |
Replacing a Word with a Literal |
| 8-3 |
Replacing a Word by a Literal and Pseudo-Text by Pseudo-Text |
| 8-4 |
Matching a Nonnumeric Literal |
| 8-5 |
Multiple-Line Pseudo-Text Replacement Item |
| 8-6 |
Matching Pseudo-Text That Includes Separators |
| 8-7 |
Command File That Creates Oracle CDD/Repository Directories and Objects in Figure 8-1 (OpenVMS) |
| 8-8 |
Using a Logical Name in a COPY Statement (OpenVMS) |
| 8-9 |
Using a Full Pathname in a COPY Statement (OpenVMS) |
| 8-10 |
Command File That Creates Oracle CDD/Repository Directories and Objects in Figure 8-2 (OpenVMS) |
| Figures |
| 1-1 |
Source Program Line |
| 2-1 |
Structure of a COBOL Program |
| 5-1 |
Hierarchical Record Structure |
| 5-2 |
Level-Number Record Structure |
| 5-3 |
Record Alignment Boundaries |
| 5-4 |
Effect of Boundary and Location Equivalence Rules on Sample Record |
| 5-5 |
Storage Allocation for Sample Record |
| 5-6 |
Storage Allocation Without and With Boundary Equivalence |
| 5-7 |
Format 3 Clause Combinations |
| 5-8 |
Control Break Levels and Their Printed Report Groups |
| 5-9 |
Logical Page Areas Resulting from a LINAGE Clause |
| 5-10 |
PICTURE Symbol Precedence Rules |
| 6-1 |
Possible Combinations of Status Keys 1 and 2 |
| 6-2 |
Valid and Invalid Nested PERFORM Statements |
| 6-3 |
PERFORM ... VARYING with the TEST BEFORE Phrase and One Condition |
| 6-4 |
PERFORM ... VARYING with the TEST BEFORE Phrase and Two Conditions |
| 6-5 |
PERFORM ... VARYING with the TEST AFTER Phrase and One Condition |
| 6-6 |
PERFORM ... VARYING with the TEST AFTER Phrase and Two Conditions |
| 8-1 |
Hierarchical Repository Structure (OpenVMS) |
| 8-2 |
Nonhierarchical Repository Structure (OpenVMS) |
| D-1 |
REPORT HEADING Group Presentation Rules |
| D-2 |
PAGE HEADING Group Presentation Rules Table |
| D-3 |
Body Group Presentation Rules |
| D-4 |
PAGE FOOTING Group Presentation Rules |
| D-5 |
REPORT FOOTING Group Presentation Rules |
| Tables |
| 1-1 |
The COBOL Character Set |
| 1-2 |
COBOL User-Defined Words |
| 1-3 |
Special Registers |
| 1-4 |
Numeric Literals |
| 1-5 |
Floating-Point Literals |
| 1-6 |
Nonnumeric Literals |
| 1-7 |
Hexadecimal Literals |
| 1-8 |
Figurative Constants |
| 1-9 |
Separators |
| 4-1 |
CRT STATUS Termination Codes |
| 4-2 |
Required Manual Record-Locking Phrases (Compaq Standard) |
| 5-1 |
Maximum Physical Record Size for Tape and Disk Devices |
| 5-2 |
Classes and Categories of Data Items |
| 5-3 |
Comparison of Major-Minor and Left-Right Locations |
| 5-4 |
Alpha Alignment and Padding |
| 5-5 |
Color Table |
| 5-6 |
Page Regions Established by the PAGE Clause |
| 5-7 |
Summary of PICTURE Clause Rules |
| 5-8 |
PICTURE Clause Symbols |
| 5-9 |
Using Sign Control Symbols in Fixed Insertion Editing |
| 5-10 |
Using Sign Control Symbols in Floating Insertion Editing |
| 5-11 |
Positive and Negative Signs for All Numeric Digits |
| 5-12 |
Unscaled Data Items, Allocated Storage, and Corresponding Data Types |
| 5-13 |
Scaled Data Items, Allocated Storage, and Data Types |
| 6-1 |
Types and Categories of COBOL Statements |
| 6-2 |
Contents of COBOL Sentences |
| 6-3 |
Relational Operators and Corresponding True Conditions |
| 6-4 |
How Logical Operators Affect Evaluation of Conditions |
| 6-5 |
Combinations of Conditions, Logical Operators, and Parentheses |
| 6-6 |
Expanded Equivalents for Abbreviated Combined Relation Conditions |
| 6-7 |
Relation of GIVING Phrase to RETURN-CODE Special Register |
| 6-8 |
Field Editing Keys for OpenVMS Alpha Systems |
| 6-9 |
Field Editing Keys for Tru64 UNIX and Windows NT Systems |
| 6-10 |
SCREEN SECTION Keys for OpenVMS Alpha Systems |
| 6-11 |
SCREEN SECTION Keys for Tru64 UNIX and Windows NT Systems |
| 6-12 |
Effects of CLOSE Statement Formats on Files by Category |
| 6-13 |
Valid MOVE Statements |
| 6-14 |
Opening Available and Unavailable Sequential, Line Sequential, Relative, and Indexed Files |
| 6-15 |
Allowable Input-Output Statements for Sequential, Line Sequential, Relative, and Indexed Files |
| 6-16 |
Opening Available and Unavailable Report Writer Files |
| 6-17 |
Allowable Statements for Report Writer Files |
| 6-18 |
Validity of Operand Combinations in Format 1 SET Statements |
| 7-1 |
Intrinsic Functions |
| 8-1 |
Oracle CDD/Repository Data Types and Compaq COBOL Equivalents (OpenVMS) |
| C-1 |
I-O File Status Values for the Default -std 85 Flag or /STANDARD =85 Qualifier Option |
| C-2 |
I-O File Status Values for the V3 and 85 Options |