とくにあぶなくないRiSKのブログ

危ないRiSKのブログだったかもしれない。本当はRiSKだけどググラビリティとか取得できるIDの都合でsscriskも使ったり。

予約語

360ほどある。おそるべしCOBOL
IS/ARE, ZERO/ZEROES/ZEROSなど、同じ意味の予約語がたくさんあり、英文に近く書けるよう非常に丁寧な作りです。
JISX3002-1992 4.8 予約語より抜き出して編集入れたものは以下。

ACCEPT 
ACCESS 
ADD 
ADVANCING 
AFTER 
ALL 
ALPHABET 
ALPHABETIC-LOWER 
ALPHABETIC-UPPER 
ALPHABETIC 
ALPHANUMERIC-EDITED 
ALPHANUMERIC 
ALSO 
ALTER 
ALTERNATE 
AND 
ANY 
ARE 
AREA 
AREAS 
ASCENDING 
ASSIGN 
AT 
AUTHOR 
BEFORE 
BINARY 
BLANK 
BLOCK 
BOTTOM 
BY 
CALL 
CANCEL 
CD 
CF 
CH 
CHARACTER 
CHARACTERS 
CLASS 
CLOCK-UNITS 
CLOSE 
COBOL 
CODE-SET 
CODE 
COLLATING 
COLUMN 
COMMA 
COMMON 
COMMUNICATION 
COMP 
COMPUTATIONAL 
COMPUTE 
CONFIGURATION 
CONTAINS 
CONTENT 
CONTINUE 
CONTROL 
CONTROLS 
CONVERTING 
COPY 
CORR 
CORRESPONDING 
COUNT 
CURRENCY 
DATA 
DATE-COMPILED 
DATE-WRITTEN 
DATE 
DAY-OF-WEEK 
DAY 
DE 
DEBUG-CONTENTS 
DEBUG-ITEM 
DEBUG-LINE 
DEBUG-NAME 
DEBUG-SUB-1 
DEBUG-SUB-2 
DEBUG-SUB-3 
DEBUGGING 
DECIMAL-POINT 
DECLARATIVES 
DELETE 
DELIMITED 
DELIMITER 
DEPENDING 
DESCENDING 
DESTINATION 
DETAIL 
DISABLE 
DISPLAY 
DIVIDE 
DIVISION 
DOWN 
DUPLICATES 
DYNAMIC 
EGI 
ELSE 
EMI 
ENABLE 
END-ADD 
END-CALL 
END-COMPUTE 
END-DELETE 
END-DIVIDE 
END-EVALUATE 
END-IF 
END-MULTIPLY 
END-OF-PAGE
END-PERFORM 
END-READ 
END-RECEIVE 
END-RETURN 
END-REWRITE 
END-SEARCH 
END-START 
END-STRING 
END-SUBTRACT 
END-UNSTRING 
END-WRITE 
END 
ENTER 
ENVIRONMENT 
EOP 
EQUAL 
ERROR 
ESI 
EVALUATE 
EVERY 
EXCEPTION 
EXIT 
EXTEND 
EXTERNAL 
FALSE 
FD 
FILE-CONTROL 
FILE 
FILLER 
FINAL 
FIRST 
FOOTING 
FOR 
FROM 
FUNCTION
GENERATE 
GIVING 
GLOBAL 
GO 
GREATER 
GROUP 
HEADING 
HIGH-VALUE 
HIGH-VALUES 
I-O-CONTROL 
I-O 
IDENTIFICATION 
IF 
IN 
INDEX 
INDEXED 
INDICATE 
INITIAL 
INITIALIZE 
INITIATE 
INPUT-OUTPUT 
INPUT 
INSPECT 
INSTALLATION 
INTO 
INVALID 
IS 
JUST 
JUSTIFIED 
KEY 
LABEL 
LAST 
LEADING 
LEFT 
LENGTH 
LESS 
LIMIT 
LIMITS 
LINAGE-COUNTER
LINAGE 
LINE-COUNTER 
LINE 
LINES 
LINKAGE 
LOCK 
LOW-VALUE 
LOW-VALUES 
MEMORY 
MERGE 
MESSAGE 
MODE 
MODULES 
MOVE 
MULTIPLE 
MULTIPLY 
NATIVE 
NEGATIVE 
NEXT 
NO 
NOT 
NUMBER 
NUMERIC-EDITED 
NUMERIC 
OBJECT-COMPUTER 
OCCURS 
OF 
OFF 
OMITTED 
ON 
OPEN 
OPTIONAL 
OR 
ORDER 
ORGANIZATION 
OTHER 
OUTPUT 
OVERFLOW 
PACKED-DECIMAL 
PADDING 
PAGE-COUNTER 
PAGE 
PERFORM 
PF 
PH 
PIC 
PICTURE 
PLUS 
POINTER 
POSITION 
POSITIVE 
PRINTING 
PROCEDURE 
PROCEDURES 
PROCEED 
PROGRAM-ID 
PROGRAM 
PURGE 
QUEUE 
QUOTE 
QUOTES 
RANDOM 
RD 
READ 
RECEIVE 
RECORD 
RECORDS 
REDEFINES 
REEL 
REFERENCE 
REFERENCES 
RELATIVE 
RELEASE 
REMAINDER 
REMOVAL
RENAMES 
REPLACE 
REPLACING 
REPORT 
REPORTING 
REPORTS 
RERUN 
RESERVE 
RESET 
RETURN 
REVERSED 
REWIND 
REWRITE 
RF 
RH 
RIGHT 
ROUNDED 
RUN 
SAME 
SD 
SEARCH 
SECTION 
SECURITY 
SEGMENT-LIMIT 
SEGMENT 
SELECT 
SEND 
SENTENCE 
SEPARATE 
SEQUENCE 
SEQUENTIAL 
SET 
SIGN 
SIZE 
SORT-MERGE 
SORT 
SOURCE-COMPUTER 
SOURCE 
SPACE 
SPACES 
SPECIAL-NAMES 
STANDARD-1 
STANDARD-2 
STANDARD 
START 
STATUS 
STOP 
STRING 
SUB-QUEUE-1 
SUB-QUEUE-2 
SUB-QUEUE-3 
SUBTRACT 
SUM 
SUPPRESS 
SYMBOLIC 
SYNC 
SYNCHRONIZED 
TABLE 
TALLYING 
TAPE 
TERMINAL 
TERMINATE 
TEST 
TEXT 
THAN 
THEN 
THROUGH 
THRU 
TIME 
TIMES 
TO 
TOP 
TRAILING 
TRUE 
TYPE 
UNIT 
UNSTRING
UNTIL 
UP 
UPON 
USAGE 
USE 
USING 
VALUE 
VALUES 
VARYING 
WHEN 
WITH 
WORDS 
WORKING-STORAGE 
WRITE 
ZERO 
ZEROES 
ZEROS 
+ 
- 
* 
/ 
** 
> 
< 
= 
>= 
<=