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