Enterprise COBOL for z/OS, Version 4.1 - Reserved word comparison





Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

Enterprise COBOL for z/OS, Version 4.1 - Reserved word comparison

Este apêndice contém uma tabela que mostra as diferenças entre as palavras reservadas do OS/VS COBOL, VS COBOL II, IBM COBOL e Enterprise COBOL.

Nota:
Novas palavras reservadas (excluindo novas palavras reservadas para desenvolvimento futuro) que foram adicionadas desde a IBM COBOL são destacadas em negrito.


 X  A palavra está reservada no produto
 X*  Dentro da coluna IBM COBOL, a palavra está reservada somente em COBOL para OS / 390 & VM, Versão 2 Release 2.
 Não está reservado na versão 1 versão 1 ou versões anteriores.
 X**  Dentro da coluna Enterprise COBOL, a palavra está reservada somente em Enterprise COBOL, versão 4 Release 1.
 Não está reservado na Enterprise COBOL Version 3.
 - (minus)  A palavra não está reservada no produto.
 (Isso inclui palavras reservadas obsoletas que já não são sinalizadas).
 CDW  A palavra é uma declaração diretiva do compilador COBOL Enterprise.
 Se usado como uma palavra definida pelo usuário, ele é marcado com uma mensagem grave.
 RFD  A palavra é reservada para desenvolvimento futuro.
 Se usado, é marcado com uma mensagem informativa.
 SYS  A palavra é uma palavra com significado específico para o sistema operacional.
 Ele pode ser usado apenas em contextos específicos dentro do programa.
 UNS  A palavra é uma palavra reservada padrão COBOL 1985 para um recurso não suportado por este compilador.
 Para algumas dessas palavras, o recurso é suportado pelo Report Writer Precompiler.
 Se usado em um programa, ele é reconhecido como uma palavra reservada e marcado com uma mensagem grave.

Reserved word comparison - Comparação de palavras reservadas

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


© Copyright IBM Corp.