HP OpenVMS Systems Documentation

HP COBOL
Reference Manual

The reserved words listed in this appendix are both the default reserved words and the words that on Alpha and I64 systems are reserved only if activated by the COBOL command-line qualifier /RESERVED_WORDS=FOREIGN_EXTENSIONS or /RESERVED_WORDS=200X.

The XOPEN reserved words, which on Alpha and I64 systems are reserved by default, can be deactivated by the /RESERVED_WORDS=NOXOPEN qualifier.

These three categories of Alpha- and I64-only reserved words, which are activated or deactivated by command-line qualifiers, are marked in this appendix as follows:

Reserved Words

ACCEPT
ACCESS
ADD
ADDRESS [FOREIGN] (Alpha, I64)
ADVANCING
AFTER
ALL
ALLOWING
ALPHABET
ALPHABETIC
ALPHABETIC--LOWER
ALPHABETIC--UPPER
ALPHANUMERIC
ALPHANUMERIC--EDITED
ALSO
ALTER
ALTERNATE
AND
ANY
APPLY
ARE
AREA
AREAS
ASCENDING
ASSIGN
AT
AUTHOR
AUTO [XOPEN] (Alpha, I64)
AUTOMATIC
AUTOTERMINATE

BACKGROUND-COLOR [XOPEN] (Alpha, I64)
BATCH
BEFORE
BEGINNING
BELL [XOPEN] (Alpha, I64)
BINARY
BINARY-CHAR [200X] (Alpha, I64)
BINARY-DOUBLE [200X] (Alpha, I64)
BINARY-LONG [200X] (Alpha, I64)
BINARY-SHORT [200X] (Alpha, I64)
BIT
BITS
BLANK
BLINK [XOPEN] (Alpha, I64)
BLINKING
BLOCK
BOLD
BOOLEAN
BOTTOM
BY

CALL
CANCEL
CD
CF
CH
CHANGED [FOREIGN] (Alpha, I64)
CHARACTER
CHARACTERS
CLASS
CLOCK-UNITS
CLOSE
COBOL
CODE
CODE-SET
COL [200X] (Alpha, I64)
COLLATING
COLUMN
COMMA
COMMIT
COMMON
COMMUNICATION
COMP
COMP-1
COMP-2
COMP-3
COMP-4
COMP-5
COMP-6
COMP-X
COMPUTATIONAL
COMPUTATIONAL-1
COMPUTATIONAL-2
COMPUTATIONAL-3
COMPUTATIONAL-4
COMPUTATIONAL-5
COMPUTATIONAL-6
COMPUTATIONAL-X
COMPUTE
CONCURRENT
CONFIGURATION
CONNECT
CONTAIN
CONTAINS
CONTENT
CONTINUE
CONTROL
CONTROLS
CONVERSION
CONVERTING
COPY
CORE-INDEX [FOREIGN] (Alpha, I64)
CORR
CORRESPONDING
COUNT
CRT
CURRENCY
CURRENT
CURSOR

DATA
DATE
DATE-COMPILED
DATE-WRITTEN
DAY
DAY-OF-WEEK
DB
DB-ACCESS-CONTROL-KEY
DB-CONDITION
DB-CURRENT-RECORD-ID
DB-CURRENT-RECORD-NAME
DB-EXCEPTION
DB-KEY
DB-RECORD-NAME
DB-SET-NAME
DB-STATUS
DB-UWA
DBCS [FOREIGN] (Alpha, I64)
DBKEY
DE
DEBUG-CONTENTS
DEBUG-ITEM
DEBUG-LENGTH
DEBUG-LINE
DEBUG-NAME
DEBUG-NUMERIC-CONTENTS
DEBUG-SIZE
DEBUG-START
DEBUG-SUB
DEBUG-SUB-1
DEBUG-SUB-2
DEBUG-SUB-3
DEBUG-SUB-ITEM
DEBUG-SUB-N
DEBUG-SUB-NUM
DEBUGGING
DECIMAL-POINT
DECLARATIVES
DEFAULT
DELETE
DELIMITED
DELIMITER
DEPENDENCY
DEPENDING
DESCENDING
DESCRIPTOR
DESTINATION
DETAIL
DICTIONARY
DISABLE
DISCONNECT
DISP [FOREIGN] (Alpha, I64)
DISPLAY
DISPLAY-1 [FOREIGN] (Alpha, I64)
DISPLAY-6
DISPLAY-7
DISPLAY-9
DIVIDE
DIVISION
DOES
DOWN
DUPLICATE
DUPLICATES

ECHO
EDITING
EGI
EJECT [FOREIGN] (Alpha, I64)
ELSE
EMI
EMPTY
ENABLE
END
END-ACCEPT
END-ADD
END-CALL
END-COMMIT
END-COMPUTE
END-CONNECT
END-DELETE
END-DISCONNECT
END-DIVIDE
END-ERASE
END-EVALUATE
END-FETCH
END-FIND
END-FINISH
END-FREE
END-GET
END-IF
END-KEEP
END-MODIFY
END-MULTIPLY
END-OF-PAGE
END-PERFORM
END-READ
END-READY
END-RECEIVE
END-RECONNECT
END-RETURN
END-REWRITE
END-ROLLBACK
END-SEARCH
END-START
END-STORE
END-STRING
END-SUBTRACT
END-UNSTRING
END-WRITE
ENDING
ENTER
ENTRY [FOREIGN] (Alpha, I64)
ENVIRONMENT
EOL [XOPEN] (Alpha, I64)
EOP
EOS [XOPEN] (Alpha, I64)
EQUAL
EQUALS
ERASE [XOPEN] (Alpha, I64)
ERROR
ESI
EVALUATE
EVERY
EXAMINE [FOREIGN] (Alpha, I64)
EXCEEDS
EXCEPTION
EXCLUSIVE
EXHIBIT [FOREIGN] (Alpha, I64)
EXIT
EXOR
EXTEND
EXTERNAL

FAILURE
FALSE
FD
FETCH
FILE
FILE-CONTROL
FILLER
FINAL
FIND
FINISH
FIRST
FLOAT-EXTENDED [200X] (Alpha, I64)
FLOAT-LONG [200X] (Alpha, I64)
FLOAT-SHORT [200X] (Alpha, I64)
FOOTING
FOR
FOREGROUND-COLOR [XOPEN] (Alpha, I64)
FREE
FROM
FULL [XOPEN] (Alpha, I64)
FUNCTION

GENERATE
GET
GIVING
GLOBAL
GO
GOBACK [FOREIGN] (Alpha, I64)
GREATER
GROUP

HEADING
HIGH-VALUE
HIGH-VALUES
HIGHLIGHT [XOPEN] (Alpha, I64)

I-O
I-O-CONTROL
ID [FOREIGN] (Alpha, I64)
IDENT
IDENTIFICATION
IF
IN
INCLUDING
INDEX
INDEXED
INDICATE
INITIAL
INITIALIZE
INITIATE
INPUT
INPUT-OUTPUT
INSPECT
INSTALLATION
INTO
INVALID
IS

JUST
JUSTIFIED

KANJI [FOREIGN] (Alpha, I64)
KEEP
KEY

LABEL
LAST
LD
LEADING
LEFT
LENGTH
LESS
LIMIT
LIMITS
LINAGE
LINAGE-COUNTER
LINE
LINE-COUNTER
LINES
LINKAGE
LOCALLY
LOCK
LOCK-HOLDING
LOW-VALUE
LOW-VALUES
LOWLIGHT [XOPEN] (Alpha, I64)

MANUAL
MATCH
MATCHES
MEMBER
MEMBERSHIP
MEMORY
MERGE
MESSAGE
MODE
MODIFY
MODULES
MOVE
MULTIPLE
MULTIPLY

NAMED [FOREIGN] (Alpha, I64)
NATIVE
NEGATIVE
NEXT
NO
NON-NULL
NOT
NOTE [FOREIGN] (Alpha, I64)
NULL
NUMBER
NUMERIC
NUMERIC-EDITED

OBJECT-COMPUTER
OCCURS
OF
OFF
OFFSET
OMITTED
ON
ONLY
OPEN
OPTIONAL
OPTIONS [200X] (Alpha, I64)
OR
ORDER
OTHERWISE [FOREIGN] (Alpha, I64)

PACKED-DECIMAL
PADDING
PAGE
PAGE-COUNTER
PASSWORD [FOREIGN] (Alpha, I64)
PERFORM
PF
PH
PIC
PICTURE
PLUS
POINTER
POSITION
POSITIONING [FOREIGN] (Alpha, I64)
POSITIVE
PREVIOUS
PRINTING
PRIOR
PROCEDURE
PROCEDURES
PROCEED
PROGRAM
PROGRAM-ID
PROTECTED
PURGE

QUEUE
QUOTE
QUOTES

RANDOM
RD
READ
READERS
READY
REALM
REALMS
RECEIVE
RECONNECT
RECORD
RECORD-NAME
RECORD-OVERFLOW [FOREIGN] (Alpha, I64)
RECORDING [FOREIGN] (Alpha, I64)
RECORDS
REDEFINES
REEL
REFERENCE
REFERENCE-MODIFIER
REFERENCES
REGARDLESS
RELATIVE
RELEASE
RELOAD [FOREIGN] (Alpha, I64)
REMAINDER
REMARKS [FOREIGN] (Alpha, I64)
REMOVAL
RENAMES
REORG-CRITERIA [FOREIGN] (Alpha, I64)
REPLACE
REPLACING
REPORT
REPORTING
REPORTS
REQUIRED [XOPEN] (Alpha, I64)
RERUN
RESERVE
RESET
RETAINING
RETRIEVAL
RETURN
RETURN-CODE [XOPEN] (Alpha, I64)
RETURNING [FOREIGN] (Alpha, I64)
REVERSE-VIDEO [XOPEN] (Alpha, I64)
REVERSED
REWIND
REWRITE
RF
RH
RIGHT
RMS-CURRENT-FILENAME
RMS-CURRENT-STS
RMS-CURRENT-STV
RMS-FILENAME
RMS-STS
RMS-STV
ROLLBACK
ROUNDED
RUN

SAME
SCREEN [XOPEN] (Alpha, I64)
SD
SEARCH
SECTION
SECURE [XOPEN] (Alpha, I64)
SECURITY
SEGMENT
SEGMENT-LIMIT
SELECT
SEND
SENTENCE
SEPARATE
SEQUENCE
SEQUENCE-NUMBER
SEQUENTIAL
SERVICE [FOREIGN] (Alpha, I64)
SET
SETS
SIGN
SIGNED [200X] (Alpha, I64)
SIZE
SKIP1 [FOREIGN] (Alpha, I64)
SKIP2 [FOREIGN] (Alpha, I64)
SKIP3 [FOREIGN] (Alpha, I64)
SORT
SORT-MERGE
SOURCE
SOURCE-COMPUTER
SPACE
SPACES
SPECIAL-NAMES
STANDARD
STANDARD-1
STANDARD-2
START
STATUS
STOP
STORE
STREAM
STRING
SUB-QUEUE-1
SUB-QUEUE-2
SUB-QUEUE-3
SUB-SCHEMA
SUBTRACT
SUCCESS
SUM
SUPPRESS
SYMBOL [200X] (Alpha, I64)
SYMBOLIC
SYNC
SYNCHRONIZED

TABLE
TALLYING
TAPE
TENANT
TERMINAL
TERMINATE
TEST
TEXT
THAN
THEN
THROUGH
THRU
TIME
TIMES
TO
TOP
TRACE [FOREIGN] (Alpha, I64)
TRAILING
TRANSFORM [FOREIGN] (Alpha, I64)
TRUE
TYPE

UNDERLINE [XOPEN] (Alpha, I64)
UNDERLINED
UNEQUAL
UNIT
UNLOCK
UNSIGNED [200X] (Alpha, I64)
UNSTRING
UNTIL
UP
UPDATE
UPDATERS
UPON
USAGE
USAGE-MODE
USE
USING

VALUE
VALUES
VARYING
VFU-CHANNEL

WAIT
WHEN
WHERE
WITH
WITHIN
WORDS
WORKING-STORAGE
WRITE
WRITERS

ZERO
ZEROES
ZEROS

+
-
*
/
**
>
< =
> =
< =