Compaq COBOL AAQ2G1FTK - Manual (Page 14)

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