IDENTIFICATION DIVISION
IDENTIFICATION DIVISION.
PROGRAM-ID. program-name [IS {COMMON | INITIAL} PROGRAM].
[AUTHOR. [comment-entry] ...]
[INSTALLATION. [comment-entry] ...]
[DATE-WRITTEN. [comment-entry] ...]
[DATE-COMPILED. [comment-entry] ...]
[SECURITY. [comment-entry] ...]
ENVIRONMENT DIVISION
[CONFIGURATION SECTION. [SOURCE-COMPUTER. [computer-name [WITH DEBUGGING MODE].]] [OBJECT-COMPUTER. [computer-name
[PROGRAM COLLATING SEQUENCE IS alphabet-name]
[SEGMENT-LIMIT IS segment-number].]] [SPECIAL-NAMES. [[implementor-name
{IS mnemonic-name [ON STATUS IS condition-name [OFF STATUS IS condition-name]]
|IS mnemonic-name [OFF STATUS IS condition-name [ON STATUS IS condition-name]]
|ON STATUS IS condition-name [OFF STATUS IS condition-name]
|OFF STATUS IS condition-name [ON STATUS IS condition-name]}
[ALPHABET alphabet-name IS
{STANDARD-1
| STANDARD-2
| NATIVE
| implementor-name
| literal [{THROUGH | THRU} literal | ALSO literal ...]...
}...]...
[SYMBOLIC CHARACTERS {{symbolic-character... {IS | ARE} integer...}...
[IN alphabet-name]}]...
[CLASS class-name IS {literal [{THROUGH | THRU} literal]}... ]...
[CURRENCY SIGN IS literal]
[DECIMAL-POINT IS COMMA].]]] [INPUT-OUTPUT SECTION.
FILE-CONTROL.
file-control-entry...
[I-O-CONTROL.
[[SAME [RECORD|SORT|SORT-MERGE] AREA FOR file-name...]...
[MULTIPLE FILE TAPE CONTAINS
{file-name [POSITION integer]}...]... .]]]]
[ENVIRONMENT DIVISION.