Compaq COBOL AAQ2G1FTK User Manual page 14

D Porting to Compaq COBOL from Other Compilers
D.1 Porting Assistance . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
D.2 Flagged Foreign Extensions . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
D.3 Implemented Extensions . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
Index
Examples
1-1 Accessing Environment Variables and Command-Line Arguments . . .
Main Program and Subprograms . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1-2
1-3 Command Procedure to Link a Program as a Shareable Image . . . . . .
Accessing Logicals and Command-Line Arguments . . . . . . . . . . . . . . .
1-4
1-5 Using RMS Special Registers to Detect Errors (OpenVMS) . . . . . . . . .
Using RMS-CURRENT Special Registers to Detect Errors
1-6
(OpenVMS) . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
2-1 Success/Failure Test . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
3-1 Item Concatenation Using Two MOVE Statements . . . . . . . . . . . . . . .
3-2 Sample Record Description Using the MOVE CORRESPONDING
Statement . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4-1 One-Dimensional Table . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
Multiple Data Items in a One-Dimensional Table . . . . . . . . . . . . . . . .
4-2
4-3 Defining a Table with an Index and an Ascending Search Key . . . . . .
Defining a Two-Dimensional Table . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4-4
4-5 Defining a Three-Dimensional Table . . . . . . . . . . . . . . . . . . . . . . . . . .
4-6 Defining a Variable-Length Table . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4-7 Sample Record Description Defining a Table . . . . . . . . . . . . . . . . . . . .
4-8 Record Description Containing a COMP SYNC Item . . . . . . . . . . . . . .
4-9 Adding an Item Without Changing the Table Size . . . . . . . . . . . . . . . .
4-10 How Adding 3 Bytes Adds 4 Bytes to the Element Length . . . . . . . . .
Initializing Tables with the VALUE Clause . . . . . . . . . . . . . . . . . . . . .
4-11
4-12 Initializing a Table with the OCCURS Clause . . . . . . . . . . . . . . . . . . .
Initializing Mixed Usage Items . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4-13
4-14 Initializing Alphanumeric Items . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
Using a Literal Subscript to Access a Table . . . . . . . . . . . . . . . . . . . . .
4-15
4-16 Subscripting a Multidimensional Table . . . . . . . . . . . . . . . . . . . . . . . .
Subscripting with Index Name Items . . . . . . . . . . . . . . . . . . . . . . . . . .
4-17
4-18 Sample Table . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4-19 A Serial Search . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4-20 Using SEARCH and Varying an Index Other than the First Index . . .
4-21 Using SEARCH and Varying an Index Data Item . . . . . . . . . . . . . . . .
4-22 Using SEARCH and Varying an Index not Associated with the Target
Table . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4-23 Doing a Serial Search Without Using the VARYING Phrase . . . . . . . .
A Multiple-Key, Binary Search . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4-24
5-1 Using the STRING Statement and Literals . . . . . . . . . . . . . . . . . . . . .
Sample Overflow Condition . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
5-2
xiv
D-1
D-3
D-3
1-24
1-45
1-45
1-49
1-56
1-58
2-5
3-6
3-11
4-2
4-2
4-3
4-4
4-5
4-6
4-7
4-8
4-8
4-9
4-10
4-10
4-11
4-12
4-13
4-13
4-15
4-19
4-20
4-21
4-21
4-22
4-22
4-23
5-2
5-5