Grammer

VS COBOL II COMPRESSED GRAMMAR -Compatible with ANSI COBOL 2002 - -Compiled by Mcmillan ** This Grammar is the compressed version of VS COBOL II by removing obsolete Language elements to be compatible with ANSI 2002. It is strongly recommended to code your new programs only with the following format. If you need Klein’s complete grammar book of VS COBOL II, download it from my site. ID DIVISION. PROGRAM-ID. <8char unreserved alphanumeric name> [COMMON] [INITIAL]. [ ENVIRONMENT DIVISION. [CONFIGURATION SECTION. | OBJECT-COMPUTER. [PROGRAM COLLATING SEQUENCE IS ] .| | SPECIAL-NAMES. [DECIMAL-POINT IS COMMA] [CURRENCY SIGN IS <“unreserved capital alphabet character (not ABCDEGPRSVXZ)”>] [CLASS IS THRU ]* [(SYSIN/SYSOUT/SYSLST/CONSOLE IS )* [ON STATUS IS OFF STATUS IS ]]* [ALPHABET IS NATIVE/EBCDIC/STANDARD-1/STANDARED-2 / (one char alphabet1 THRU/ (ALSO one char alphabet2)*)* ]* [SYMBOLIC CHARACTERS ( IS )*[IN ]] . | ] [INPUT-OUTPUT SECTION. | FILE-CONTROL. ((SELECT [OPTIONAL] ASSIGN TO [][S-] AS- <JCL variable>)* [RESERVE >integer> AREAS] | ORGANIZATION IS [SEQUENTIAL]/RELATIVE/INDEXED | | ACCESS MODE IS [SEQUENTIAL]/RANDOM/DYNAMIC | |RELATIVE/RECORD KEY | [ALTERNATIVE RECORD KEY < alphanumeric record field> [WITH DUPLICATES]* [PASSWORD IS ] [FILE STATUS IS <2 byte alphanumeric data item>, <6 byte group data item>] )*. | [I-O-CONTROL. [SAME RECORD AREA FOR ()*] . ] ] ] [ DATA DIVISION. [FILE SECTION. | (FD [EXTERNAL] [GLOBAL] [BLOCK CONTAINS 0 RECORDS] | RECODING MODE F/V/S/U | [LINAGE IS LINES WITH FOOTING TOP BOTTOM ] [CODE-SET IS ] )* | ] WORKING-STORAGE SECTION. 01/77 <30 char variable name> PIC [S]9]*[P/V][9]*/[X]*/[A]* LINKAGE SECTION.