Rational Developer for System z
Enterprise COBOL for z/OS, Version 4.1, Compiler and Runtime Migration Guide


COBOL reserved word comparison

This appendix contains a table showing differences between OS/VS COBOL, VS COBOL II, IBM COBOL, and Enterprise COBOL reserved words. Information on source language comparison can be found in:
Note: New reserved words (excluding new words reserved for future development) that have been added since IBM COBOL are highlighted in boldface type.
Key:
X
The word is reserved in the product.
X*
Within the IBM COBOL column, the word is reserved in COBOL for OS/390 & VM, Version 2 Release 2 only. It is not reserved in Version 2 Release 1 or earlier versions.
X**
Within the Enterprise COBOL column, the word is reserved in Enterprise COBOL, Version 4 Release 1 only. It is not reserved in Enterprise COBOL Version 3.
-
The word is not reserved in the product. (This includes obsolete reserved words that are no longer flagged.)
CDW
The word is an Enterprise COBOL compiler directing statement. If used as a user-defined word, it is flagged with a severe message.
RFD
The word is reserved for future development. If used, it is flagged with an informational message.
SYS
The word is a word with specific meaning to the operating system. It can be used only in specific contexts within the program.
UNS
The word is a COBOL 1985 Standard reserved word for a feature not supported by this compiler. For some of these words, the feature is supported by the Report Writer Precompiler. If used in a program, it is recognized as a reserved word and flagged with a severe message.
Table 1. Reserved word comparison
Reserved word Enterprise COBOL IBM COBOL VS COBOL II OS/VS COBOL
ACCEPT X X X X
ACCESS X X X X
ACTIVE-CLASS RFD - - -
ACTUAL - - - X
ADD X X X X
ADDRESS X X X X
ADVANCING X X X X
AFTER X X X X
ALIGNED RFD - - -
ALL X X X X
ALLOCATE RFD - - -
ALPHABET X X X -
ALPHABETIC X X X X
ALPHABETIC-LOWER X X X -
ALPHABETIC-UPPER X X X -
ALPHANUMERIC X X X -
ALPHANUMERIC-EDITED X X X -
ALSO X X X X
ALTER X X X X
ALTERNATE X X X X
AND X X X X
ANY X X X -
ANYCASE RFD - - -
APPLY X X X X
ARE X X X X
AREA X X X X
AREAS X X X X
ARITHMETIC - RFD RFD -
AS X** - - -
ASCENDING X X X X
ASSIGN X X X X
AT X X X X
ATTRIBUTES X** - - -
AUTHOR X X X X
AUTOMATIC RFD - - -
B-AND RFD RFD RFD -
B-EXOR - RFD RFD -
B-LESS - RFD RFD -
B-NOT RFD RFD RFD -
B-OR RFD RFD RFD -
B-XOR RFD - - -
BASED RFD - - -
BASIS CDW CDW CDW X
BEFORE X X X X
BEGINNING X X X X
BINARY X X X -
BINARY-CHAR RFD - - -
BINARY-DOUBLE RFD - - -
BINARY-LONG RFD - - -
BINARY-SHORT RFD - - -
BIT RFD RFD RFD -
BITS - RFD RFD -
BLANK X X X X
BLOCK X X X X
BOOLEAN RFD RFD RFD -
BOTTOM X X X X
BY X X X X
CALL X X X X
CANCEL X X X X
CBL CDW CDW CDW X
CD UNS UNS UNS X
CF UNS UNS UNS X
CH UNS UNS UNS X
CHANGED - - - X
CHARACTER X X X X
CHARACTERS X X X X
CLASS X X X -
CLASS-ID X X - -
CLOCK-UNITS UNS UNS UNS -
CLOSE X X X X
COBOL X X X -
CODE X X X X
CODE-SET X X X X
COL RFD - - -
COLLATING X X X X
COLS RFD - - -
COLUMN UNS UNS UNS X
COLUMNS RFD - - -
COM-REG X X X -
COMMA X X X X
COMMIT - RFD RFD -
COMMON X X X -
COMMUNICATION UNS UNS UNS X
COMP X X X X
COMP-1 X X X X
COMP-2 X X X X
COMP-3 X X X X
COMP-4 X X X X
COMP-5 X X* RFD -
COMP-6 - RFD RFD -
COMP-7 - RFD RFD -
COMP-8 - RFD RFD -
COMP-9 - RFD RFD -
COMPUTATIONAL X X X X
COMPUTATIONAL-1 X X X X
COMPUTATIONAL-2 X X X X
COMPUTATIONAL-3 X X X X
COMPUTATIONAL-4 X X X X
COMPUTATIONAL-5 X X* RFD  
COMPUTATIONAL-6 - RFD RFD -
COMPUTATIONAL-7 - RFD RFD -
COMPUTATIONAL-8 - RFD RFD -
COMPUTATIONAL-9 - RFD RFD -
COMPUTE X X X X
CONDITION RFD - - -
CONFIGURATION X X X X
CONNECT - RFD RFD -
CONSOLE SYS SYS SYS X
CONSTANT RFD - - -
CONTAINED - RFD RFD -
CONTAINS X X X X
CONTENT X X X -
CONTINUE X X X -
CONTROL UNS UNS UNS X
CONTROLS UNS UNS UNS X
CONVERTING X X X -
COPY CDW CDW CDW X
CORR X X X X
CORR-INDEX - - - X
CORRESPONDING X X X X
COUNT X X X X
CRT RFD - - -
CSP SYS SYS SYS X
CURRENCY X X X X
CURRENT - RFD RFD -
CURRENT-DATE - - - X
CURSOR RFD - - -
C01 SYS SYS SYS X
C02 SYS SYS SYS X
C03 SYS SYS SYS X
C04 SYS SYS SYS X
C05 SYS SYS SYS X
C06 SYS SYS SYS X
C07 SYS SYS SYS X
C08 SYS SYS SYS X
C09 SYS SYS SYS X
C10 SYS SYS SYS X
C11 SYS SYS SYS X
C12 SYS SYS SYS X
DATA X X X X
DATA-POINTER RFD - - -
DATE X X X X
DATE-COMPILED X X X X
DATE-WRITTEN X X X X
DAY X X X X
DAY-OF-WEEK X X X -
DB - RFD RFD -
DB-ACCESS-CONTROL-KEY - RFD RFD -
DB-DATA-NAME - RFD RFD -
DB-EXCEPTION - RFD RFD -
DB-RECORD-NAME - RFD RFD -
DB-SET-NAME - RFD RFD -
DB-STATUS - RFD RFD -
DBCS X X X -
DE UNS UNS UNS X
DEBUG - - - X
DEBUG-CONTENTS X X X X
DEBUG-ITEM X X X X
DEBUG-LINE X X X X
DEBUG-NAME X X X X
DEBUG-SUB-1 X X X X
DEBUG-SUB-2 X X X X
DEBUG-SUB-3 X X X X
DEBUGGING X X X X
DECIMAL-POINT X X X X
DECLARATIVES X X X X
DEFAULT RFD RFD RFD -
DELETE X X X X
DELIMITED X X X X
DELIMITER X X X X
DEPENDING X X X X
DESCENDING X X X X
DESTINATION UNS UNS UNS X
DETAIL UNS UNS UNS X
DISABLE UNS UNS UNS X
DISCONNECT - RFD RFD -
DISP - - - X
DISPLAY X X X X
DISPLAY-ST - - - X
DISPLAY-1 X X X -
DISPLAY-2 - RFD RFD -
DISPLAY-3 - RFD RFD -
DISPLAY-4 - RFD RFD -
DISPLAY-5 - RFD RFD -
DISPLAY-6 - RFD RFD -
DISPLAY-7 - RFD RFD -
DISPLAY-8 - RFD RFD -
DISPLAY-9 - RFD RFD -
DIVIDE X X X X
DIVISION X X X X
DOWN X X X X
DUPLICATE - RFD RFD -
DUPLICATES X X X X
DYNAMIC X X X X
EC RFD - - -
EGCS X X X -
EGI UNS UNS UNS X
EJECT CDW CDW CDW X
ELEMENTS X** - - -
ELSE X X X X
EMI UNS UNS UNS X
EMPTY - RFD RFD -
ENABLE UNS UNS UNS X
ENCODING X** - - -
END X X X X
END-ACCEPT RFD - - -
END-ADD X X X -
END-CALL X X X -
END-COMPUTE X X X -
END-DELETE X X X -
END-DISABLE - RFD RFD -
END-DISPLAY RFD - - -
END-DIVIDE X X X -
END-ENABLE - RFD RFD -
END-EVALUATE X X X -
END-EXEC X X* - -
END-IF X X X -
END-INVOKE X X - -
END-MULTIPLY X X X -
END-OF-PAGE X X X X
END-PERFORM X X X -
END-READ X X X -
END-RECEIVE UNS UNS UNS -
END-RETURN X X X -
END-REWRITE X X X -
END-SEARCH X X X -
END-SEND - RFD RFD -
END-START X X X -
END-STRING X X X -
END-SUBTRACT X X X -
END-TRANSCEIVE - RFD RFD -
END-UNSTRING X X X -
END-WRITE X X X -
END-XML X - - -
ENDING X X X X
ENTER X X X X
ENTRY X X X X
ENVIRONMENT X X X X
EO RFD - - -
EOP X X X X
EQUAL X X X X
EQUALS - RFD RFD -
ERASE - RFD RFD -
ERROR X X X X
ESI UNS UNS UNS X
EVALUATE X X X -
EVERY X X X X
EXACT - RFD RFD -
EXAMINE - - - X
EXCEEDS - RFD RFD -
EXCEPTION X X X X
EXCEPTION-OBJECT RFD - - -
EXCLUSIVE - RFD RFD -
EXEC X X* - -
EXECUTE X X* - -
EXHIBIT - - - X
EXIT X X X X
EXTEND X X X X
EXTERNAL X X X -
FACTORY X X* - -
FALSE X X X -
FD X X X X
FETCH - RFD RFD -
FILE X X X X
FILE-CONTROL X X X X
FILE-LIMIT - - - X
FILE-LIMITS - - - X
FILLER X X X X
FINAL UNS UNS UNS X
FIND - RFD RFD -
FINISH - RFD RFD -
FIRST X X X X
FLOAT-EXTENDED RFD - - -
FLOAT-LONG RFD - - -
FLOAT-SHORT RFD - - -
FOOTING X X X X
FOR X X X X
FORMAT RFD RFD RFD -
FREE RFD RFD RFD -
FROM X X X X
FUNCTION X X - -
FUNCTION-ID RFD - - -
FUNCTION-POINTER X - - -
GENERATE UNS UNS UNS X
GET RFD RFD RFD -
GIVING X X X X
GLOBAL X X X -
GO X X X X
GOBACK X X X X
GREATER X X X X
GROUP UNS UNS UNS X
GROUP-USAGE X - - -
HEADING UNS UNS UNS X
HIGH-VALUE X X X X
HIGH-VALUES X X X X
I-O X X X X
I-O-CONTROL X X X X
ID X X X X
IDENTIFICATION X X X X
IF X X X X
IN X X X X
INDEX X X X X
INDEX-1 - RFD RFD -
INDEX-2 - RFD RFD -
INDEX-3 - RFD RFD -
INDEX-4 - RFD RFD -
INDEX-5 - RFD RFD -
INDEX-6 - RFD RFD -
INDEX-7 - RFD RFD -
INDEX-8 - RFD RFD -
INDEX-9 - RFD RFD -
INDEXED X X X X
INDICATE UNS UNS UNS X
INHERITS X X - -
INITIAL X X X X
INITIALIZE X X X X
INITIATE UNS UNS UNS X
INPUT X X X X
INPUT-OUTPUT X X X X
INSERT CDW CDW CDW X
INSPECT X X X X
INSTALLATION X X X X
INTERFACE RFD - - -
INTERFACE-ID RFD - - -
INTO X X X X
INVALID X X X X
INVOKE X X - -
IS X X X X
JNIENVPTR X - - -
JUST X X X X
JUSTIFIED X X X X
KANJI X X X -
KEEP - RFD RFD -
KEY X X X X
LABEL X X X X
LAST UNS UNS UNS X
LD - RFD RFD -
LEADING X X X X
LEAVE - - - X
LEFT X X X X
LENGTH X X X X
LESS X X X X
LIMIT UNS UNS UNS X
LIMITS UNS UNS UNS X
LINAGE X X X X
LINAGE-COUNTER X X X X
LINE X X X X
LINE-COUNTER UNS UNS UNS X
LINES X X X X
LINKAGE X X X X
LOCALLY - RFD RFD -
LOCAL-STORAGE X X - -
LOCALE RFD - - -
LOCK X X X X
LOW-VALUE X X X X
LOW-VALUES X X X X
MEMBER - RFD RFD -
MEMORY X X X X
MERGE X X X X
MESSAGE UNS UNS UNS X
METACLASS - X - -
METHOD X X - -
METHOD-ID X X - -
MINUS RFD - - -
MODE X X X X
MODIFY - RFD RFD -
MODULES X X X X
MORE-LABELS X X X X
MOVE X X X X
MULTIPLE X X X X
MULTIPLY X X X X
NAMED - - - X
NAMESPACE X** - - -
NAMESPACE-PREFIX X** - - -
NATIONAL X - - -
NATIONAL-EDITED X - - -
NATIVE X X X X
NEGATIVE X X X X
NESTED RFD - - -
NEXT X X X X
NO X X X X
NOMINAL - - - X
NONE - RFD RFD -
NOT X X X X
NOTE - - - X
NULL X X X -
NULLS X X X -
NUMBER UNS UNS UNS X
NUMERIC X X X X
NUMERIC-EDITED X X X -
OBJECT X X - -
OBJECT-COMPUTER X X X X
OBJECT-REFERENCE RFD - - -
OCCURS X X X X
OF X X X X
OFF X X X X
OMITTED X X X X
ON X X X X
ONLY - RFD RFD -
OPEN X X X X
OPTIONAL X X X X
OPTIONS RFD - - -
OR X X X X
ORDER X X X -
ORGANIZATION X X X X
OTHER X X X -
OTHERWISE - - - X
OUTPUT X X X X
OVERFLOW X X X X
OVERRIDE X X - -
OWNER - RFD RFD -
PACKED-DECIMAL X X X -
PADDING X X X -
PAGE X X X X
PAGE-COUNTER UNS UNS UNS X
PARAGRAPH - RFD RFD -
PASSWORD X X X X
PERFORM X X X X
PF UNS UNS UNS X
PH UNS UNS UNS X
PIC X X X X
PICTURE X X X X
PLUS UNS UNS UNS X
POINTER X X X X
POSITION X X X X
POSITIONING - - - X
POSITIVE X X X X
PRESENT RFD RFD RFD -
PREVIOUS RFD RFD - -
PRINT-SWITCH - - - X
PRINTING UNS UNS UNS -
PRIOR - RFD RFD -
PROCEDURE X X X X
PROCEDURE-POINTER X X - -
PROCEDURES X X X X
PROCEED X X X X
PROCESSING X X X X
PROGRAM X X X X
PROGRAM-ID X X X X
PROGRAM-POINTER RFD - - -
PROPERTY RFD - - -
PROTECTED - RFD RFD -
PROTOTYPE RFD - - -
PURGE UNS UNS UNS -
QUEUE UNS UNS UNS X
QUOTE X X X X
QUOTES X X X X
RAISE RFD - - -
RAISING RFD - - -
RANDOM X X X X
RD UNS UNS UNS X
READ X X X X
READY X X X X
REALM - RFD RFD -
RECEIVE UNS UNS UNS X
RECONNECT - RFD RFD -
RECORD X X X X
RECORD-NAME - RFD RFD -
RECORD-OVERFLOW - - - X
RECORDING X X X X
RECORDS X X X X
RECURSIVE X X - -
REDEFINES X X X X
REEL X X X X
REFERENCE X X X -
REFERENCES X X X X
RELATION - RFD RFD -
RELATIVE X X X X
RELEASE X X X X
RELOAD X X X X
REMAINDER X X X X
REMARKS - - - X
REMOVAL X X X X
RENAMES X X X X
REORG-CRITERIA - - - X
REPEATED - RFD RFD -
REPLACE X X X -
REPLACING X X X X
REPORT UNS UNS UNS X
REPORTING UNS UNS UNS X
REPORTS UNS UNS UNS X
REPOSITORY X X - -
REREAD - - - X
RERUN X X X X
RESERVE X X X X
RESET X X X X
RESUME RFD - - -
RETAINING - RFD RFD -
RETRIEVAL - RFD RFD -
RETRY RFD - - -
RETURN X X X X
RETURN-CODE X X X X
RETURNING X X - -
REVERSED X X X X
REWIND X X X X
REWRITE X X X X
RF UNS UNS UNS X
RH UNS UNS UNS X
RIGHT X X X X
ROLLBACK - RFD RFD -
ROUNDED X X X X
RUN X X X X
SAME X X X X
SCREEN RFD - - -
SD X X X X
SEARCH X X X X
SECTION X X X X
SECURITY X X X X
SEEK - - - X
SEGMENT UNS UNS UNS X
SEGMENT-LIMIT X X X X
SELECT X X X X
SELECTIVE - - - X
SELF X X - -
SEND UNS UNS UNS X
SENTENCE X X X X
SEPARATE X X X X
SEQUENCE X X X X
SEQUENTIAL X X X X
SERVICE X X X X
SESSION-ID - RFD RFD -
SET X X X X
SHARED - RFD RFD -
SHARING RFD - - -
SHIFT-IN X X X -
SHIFT-OUT X X X -
SIGN X X X X
SIZE X X X X
SKIP-1 - - - X
SKIP-2 - - - X
SKIP-3 - - - X
SKIP1 CDW CDW CDW -
SKIP2 CDW CDW CDW -
SKIP3 CDW CDW CDW -
SORT X X X X
SORT-CONTROL X X X -
SORT-CORE-SIZE X X X X
SORT-FILE-SIZE X X X X
SORT-MERGE X X X X
SORT-MESSAGE X X X X
SORT-MODE-SIZE X X X X
SORT-RETURN X X X X
SOURCE UNS UNS UNS X
SOURCE-COMPUTER X X X X
SOURCES RFD - - -
SPACE X X X X
SPACES X X X X
SPECIAL-NAMES X X X X
SQL X X* - -
STANDARD X X X X
STANDARD-1 X X X X
STANDARD-2 X X X -
STANDARD-3 - RFD RFD -
STANDARD-4 - RFD RFD -
START X X X X
STATUS X X X X
STOP X X X X
STORE - RFD RFD -
STRING X X X X
SUB-QUEUE-1 UNS UNS UNS X
SUB-QUEUE-2 UNS UNS UNS X
SUB-QUEUE-3 UNS UNS UNS X
SUB-SCHEMA RFD RFD RFD -
SUBTRACT X X X X
SUM UNS UNS UNS X
SUPER X X - -
SUPPRESS X X X X
SYMBOLIC X X X X
SYNC X X X X
SYNCHRONIZED X X X X
SYSIN SYS SYS SYS X
SYSIPT SYS SYS SYS -
SYSLIST SYS SYS SYS X
SYSLST SYS SYS SYS -
SYSOUT SYS SYS SYS X
SYSPCH SYS SYS SYS -
SYSPUNCH SYS SYS SYS X
SYSTEM-DEFAULT RFD - - -
S01 SYS SYS SYS X
S02 SYS SYS SYS X
S03 SYS SYS SYS -
S04 SYS SYS SYS -
S05 SYS SYS SYS -
TABLE UNS UNS UNS X
TALLY X X X X
TALLYING X X X X
TAPE X X X X
TENANT - RFD RFD -
TERMINAL UNS UNS UNS X
TERMINATE UNS UNS UNS X
TEST X X X -
TEXT UNS UNS UNS X
THAN X X X X
THEN X X X X
THROUGH X X X X
THRU X X X X
TIME X X X X
TIME-OF-DAY - - - X
TIMES X X X X
TITLE CDW CDW CDW -
TO X X X X
TOP X X X X
TOTALED - - - X
TOTALING - - - X
TRACE X X X X
TRACK-AREA - - - X
TRACK-LIMIT - - - X
TRACKS - - - X
TRAILING X X X X
TRANSCEIVE - RFD RFD -
TRANSFORM - - - X
TRUE X X X -
TYPE X X* - -
TYPEDEF RFD - - -
UNEQUAL - RFD RFD -
UNIT X X X X
UNIVERSAL RFD - - -
UNLOCK RFD - - -
UNSTRING X X X X
UNTIL X X X X
UP X X X X
UPDATE RFD RFD RFD -
UPON X X X X
UPSI-0 SYS SYS SYS X
UPSI-1 SYS SYS SYS X
UPSI-2 SYS SYS SYS X
UPSI-3 SYS SYS SYS X
UPSI-4 SYS SYS SYS X
UPSI-5 SYS SYS SYS X
UPSI-6 SYS SYS SYS X
UPSI-7 SYS SYS SYS X
USAGE X X X X
USAGE-MODE - RFD RFD -
USE X X X X
USER-DEFAULT RFD - - -
USING X X X X
VAL-STATUS RFD - - -
VALID RFD RFD RFD -
VALIDATE RFD RFD RFD -
VALIDATE-STATUS RFD - - -
VALUE X X X X
VALUES X X X X
VARYING X X X X
WAIT - RFD RFD -
WHEN X X X X
WHEN-COMPILED X X X X
WITH X X X X
WITHIN - RFD RFD -
WORDS X X X X
WORKING-STORAGE X X X X
WRITE X X X X
WRITE-ONLY X X X X
XML X - - -
XML-CODE X - - -
XML-DECLARATION X** - - -
XML-EVENT X - - -
XML-NAMESPACE X** - - -
XML-NAMESPACE-PREFIX X** - - -
XML-NNAMESPACE X** - - -
XML-NNAMESPACE-PREFIX X** - - -
XML-NTEXT X - - -
XML-TEXT X - - -
ZERO X X X X
ZEROES X X X X
ZEROS X X X X
< X X X X
<= X X X -
+ X X X X
* X X X X
** X X X X
- X X X X
/ X X X X
> X X X X
>= X X X -
= X X X X

Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)