COBOL650

.
PL
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
INTRODUCTION
This manual is a guide on how to properly write Cobol
programs on the IBM-PC using Ansi-Standard COBOL Version
6.50. It is a guide on structured coding style and good
programming techniques, as well as a COBOL manual. It
will explain in detail the features used and the
examples, but will limit the discussion to the most
commonly used features of COBOL.
Our goal as programmers is to write reasonably efficient
programs that are easy for other programmers to read,
this is necessary for maintaining the program. Whenever
possible, I have tried to present a style that is useful
and has been tested on other computer systems,
especially the large IBM mainframe used in business. I
acknowledged the possibility that the reader may one day
use what he learns from this manual to write programs
for such mainframes, or may port software, that is
already written on these machines to the PC using COBOL
6.50.
LIMITIATIONS
You should note that :
1) COBOL Version 6.50 does not have the sort/merge
feature. This is being added and may be out by the
time you receive this manual. Please note the readme
file on the floppy.
NOTE:SORT MERGE HAS BEEN ADDED TO THE LIBARY.
2) It does not have the report writer feature and never
will.
3) It does not have the communications feature such as
CICS. I will probably add this into it, but at this
time I do not have any plans to.
4) Certain features are implimented at it's first or
lowest level.
5) It does have extensive screen formatting features
that are not available in Cobol for the mainframe.
The manual is divided into 2 parts. Chapters ? -
chapters ? will familiarize the reader with the most
important components of Ansi-Standard COBOL Version 6.50
and will allow him or her to start writing programs.
Chapters ? - chapters ? are very important once he or
she starts writing actual and especially more complex
programs. The last chapter is very important in that it
illustrates how to use the COBOL COMPILIER to write
programs and how to write applications.
INTRODUCTION PAGE 1
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
TABLE OF CONTENTS
Cobol Version 6.50 users Manual
Introduction
LIMITIATIONS
CHAPTER 1
Hardware and Software 1
Computer Systems 1
Types of Computer Systems 1
Hardware 2
Software 2
System Software 2
Programs 2
Pseudo Code 3
Figure 1.1 3
Applications 3
Developing Applications 3
CHAPTER 3
ANSI-COBOL Version 6.50 4
Introduction 4
General Characteristics 4
X3.23-1974 4
Components of COBOL 5
Statements 5
example 3.1 5
Sentence 6
example 3.2 6
Clause 6
example 3.3 6
Paragraph 7
example 3.4 7
Section 7
example 3.5 8
STATEMENT FORMAT 8
example 3.6 9
Cobol Character Set 10
Rules For Punctuation 10
Characters used in Conditions 10
Characters used in Arithmetic 11
Characters used for print editing 11
Types of Words 12
Reserved Words 12
Reserved Words List
Reserved words ACCEPT - RERUN 13
Reserved Words List
Reserved words list RESERVE - ZEROS 14
Non-reserved words rules 15
Data Format 15
Elementary Data Items 15
Group Data Items 16
Records 16
Files 16
COBOL Coding Form 17
CHAPTER 4
Basic COBOL Statements
INTRODUCTION 18
The ACCEPT statment (format 2)
TABLE OF CONTENTS PAGE 1

ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
Fig.4.1
The (PRINTER) DISPLAY STATEMENT
example 4.2 20
example 4.3 21
THE MOVE STATEMENT 21
EXAMPLE 4.4 21
EXAMPLE 4.5
THE ADD STATEMENT 23
EXAMPLE 4.6 23
EXAMPLE 4.7 24
THE SUBTRACT STATEMENT 24
EXAMPLE 4.8 24
EXAMPLE 4.9 25
THE MULTIPLY STATEMENT 25
EXAMPLE 4.10 25
EXAMPLE 4.11
THE DIVIDE STATEMENT 27
EXAMPLE 4.12 27
EXAMPLE 4.13 28
THE GIVING CLAUSE 28
EXAMPLE 4.14 28
EXAMPLE 4.15 29
THE ROUNDED CLAUSE 29
EXAMPLE 4.16 30
EXAMPLE 4.17 31
THE PERFORM STATEMENT 31
EXAMPLE 4.20 31
THE ON SIZE ERROR CLAUSE 32
EXAMPLE 4.22 32
THE GO TO STATEMENT 33
EXAMPLE 4.24 34
THE COMPUTE STATEMENT 35
EXAMPLE 4.26 35
CHAPTER 5
BASIC FILE OPERATIONS
INTRODUCTION 37
FILES 38
FILE ORGANIZATION 38
RECORDS 38
OPEN STATEMENT 39
OPEN RULES 39
THE CLOSE STATEMENT 39
THE READ STATEMENT 40
THE WRITE STATEMENT (PRINT FILE) 40
EXAMPLE 5.01 41
CHAPTER 6
CODING THE IDENTIFICATION
AND ENVIRONMENT DIVISIONS
INTRODUCTION 43
THE IDENTIFICATION DIVISION 44
THE ENVIRONMENT DIVISION. 44
THE CONFIGURATION SECTION 44
THE INPUT-OUTPUT SECTION 45
RULES FOR CODING
THE INPUT-OUTPUT SECTION 45
CHAPTER 7

ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
CODING THE DATA DIVISION

Introduction 46
Sections 47
File Section 47
FILE SECTION RULES 47
File Record Entries 47
Data Item Definition 48
Rules for coding
Data items 48
WORKING-STORAGE SECTION 49
LINKAGE SECTION 49
SCREEN SECTION 49
CHAPTER 8
CODING THE PROCEDURE DIVISION
INTRODUCTION 50
Structured programming 51
Program Constructs 51
The IF condition 51
Modular Programming 52
The Main Line Section 52
Other sections 52
Paragraphs 53
Procedure Names 53
Statements and Sentences 54
CHAPTER 9
Screen Processing
Accept 3 format
Introduction 55
Screen Format 56
Screen Header 56
Data Area 56
THE SCREEN SECTION 57
RULES FOR CODING THE
SCREEN SECTION 57
THE DISPLAY VERB
The Accept (3) 59
EXAMPLE 9.01 59
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
Chapter 1: Hardware and Software

INTRODUCTION
The first 2 chapters provide an introduction for those
who have no experience with developing applications or
writing programs. Hopefully they may have some
background in programming, possibly in BASIC. Otherwise
the reader may go immediately to chapter 3.
Computer Systems
A computer, or more accurately computer system, is a set
of electronic and electromechanical devices that perform
a series of functions under the control of a set of
instructions written by human being. This set of
devices is called hardware and this set of instructions
is software. This hardware under control of the proper
software will compute payroll of a company, guide a
spacecraft to the stars or allow Pacman to gobble up
dots on a video display.
Types of Computer Systems
There are several types of computers systems.
Mainframes are the medium to large computers used by
businesses or other large organizations. They can
handle many jobs running concurrently and have large
memories and can handle many input devices including
terminals. Many computers are smaller than mainframes
and are used in specialized applications by business
organizations. They handle a smaller number of jobs
concurrently and have a smaller number of input devices.
Microcomputers which include PCs are smaller than many
computers. They have only a limited number of devices,
can fit on the top of a desk, hence, are sometimes
called desktype computers and usually run only one job
at a given time. They are extremely useful for small
personal use and also for some very specialized use by a
small group even large business organizations.
PAGE 1
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
Hardware
The IBM-PC's are composed of several hardware
components. These are the systems unit, Electronics
comprising the microprocessor, either the 8088, 80186,
80286, 80386, and the newer 80486. Memory which maybe
extended, expanded or conventional and a video display
unit, This maybe any one of the types listed below and
who knows what will come up next. Monocrome, CGA, BGA,
VGA, VEGA drives the keyboard and the hard drives.
Software
There are 2 types of software. Applications software is
written to solve a specific user problem. Examples are
software that prints payroll checks or displays
inventory stock information. This software is either
written by the user himself using a language like COBOL,
BASIC, or FORTRAN or bought off the shelf as a complete
package. Software, manuals, technical support, etc.
Such packaged software is generally written by an
independent software company.
System's Software
System software does not solve specific problems, but
rather makes it easier for the user to use computer
system. It is generally developed by hardware or
independent software companies. Examples are operating
systems such as DOS, compilers such as Ansi-Standard
COBOL and interpreters such as IBM Basic, saved on
diskette or on hard drive and before it can be used it
must first be loaded into the computers memory. This is
done by typing in the proper command such as COBOL600
followed by the enter key.
Programs
A set of instructions written together as a single unit
defines both a beginning and an end is called a program.
Thus a program is a specific piece of software, system
software and application software. They are more
commonly known as systems programs and applications
programs respectively. In this manual the latter terms
will be used. Note that when a program is executing it
is said to be running. In other words the program
executes is the same as the program is running or the
program runs. Computer people often say the job runs or
the job is running.
PAGE 2
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
Pseudo Code
We will illustrate the concept of a program by using
Pseudo Code, which is a mix of words that are valid in
programs and other descriptive words that are not.
While a program written in it cannot execute because of
invalid words it's primary use is to make the program
logic easy to understand on paper. This is shown in
figure 1.1. Note the capitalized words are valid in
COBOL programs.
FIGURE 1.1
______________________________________________________________
: :
: ACCEPT first operator-entered number into memory. :
: ACCEPT second operator-entered number into memory. :
: ADD first number TO, second number GIVING result-field. :
: DISPLAY result-field. :
:______________________________________________________________:
Pseudo Code of a segment of a program code that adds 2 numbers and
displays the sum.
Applications
An application, more commonly known as an application
system to simple system, is a specific job or sequence
of jobs that run or will be run on the computer. For
instance, a payroll system prints out paychecks, W2
forms, etc. An inventory system allows the operator to
enter or verify stock information on a video display
unit, etc. In this user's manual we will use system for
a specific application, thus payroll system instead of
payroll application.
Developing Applications
When a computer user needs an application he has a
choice of either buying it off the shelf as a package
"programs, manuals, tech support, etc." or developing
the system himself. If he decides on the latter he
first has to determine his requirements in detail and
design a system that impliments the application. This
is known as system design. In large organizations this
systems design is generally done by the systems analyst
who consults the user on his requirements and then
translate them into a series of specifications that can
be given to the applications programmers. They in turn
translate these specifications into applications
programs that can be run on the computer.
PAGE 3
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
Chapter 3: ANSI-COBOL Version 6.50

Introduction
COBOL "common business-oriented language" is a language
developed specifically for the programming requirements
of business applications. Among programming languages
it is the most extensive file processing features,
allowing the programmer to manipulate a large amount of
data in various formats, for many types of devices. It
also has the extensive report formatting features
allowing the programmer, for instance, to easily print
numbers with dollar signs, commas, negative signs, etc.
COBOL was developed by the CONFERENCE ON DATA SYSTEMS
LANGUAGES "CODASYL" COBOL committee which is made up of
representatives of computer manufacturers and computer
users. However, current and future standards are into
the ospices of the American National Standards Institute
"ANSI". Manufacturers and independent software
programmers, myself included, can only use the name
COBOL if the product agrees with the standard. Ansi-
Standard COBOL Version 6.50 does!
General Characteristics
COBOL is close to English Pros in style which allows a
programmer to use easily understood and self-defining
words like MULTIPLING , STOP, WORKING-STORAGE, etc.
Instead of the short, hard to remember symbols required
in many other languages. The Language is also free form
allowing the programmer to write the code in any column
he wants with certain limits which the potential of
making the program easier to read and understand.
Ansi-Standard COBOL 6.50
COBOL Version 6.50 conforms to the low-intermediate
level of American National Standards. X3.23-1974. It
provides 9 out of the 12 standard COBOL functional
modules which are implimented in either Level I or Level
II capabilities.
The 3 modules not provided are the following:
1) Communication, note this is currently being added.
2) Sort-merge, note this is currently being added.
3) Report writer, note no plans at this time to add this
module.
PAGE 4
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
Components of COBOL
Although COBOL is close to the English Pros in style, it
has it's own Syntax rules. We can think of a COBOL
program as a book, consisting of 4 parts each being a
COBOL division. Each division consists of 1 or more
sections. Each section corresponding to a chapter in a
book. Each section in turn consists of 1 or more
paragraph which in turns consists of 1 or more
sentences. We will now define certain COBOL terms, but
we will restrict our discussion to how they are used in
the most common division, the PROCEDURE DIVISION, where
the logic is stated. Most definitions are however valid
for other divisions, which are much easier to code than
the PROCEDURE DIVISION.
STATEMENTS
A statement is a basic unit of the PROCEDURE DIVISION.
It is a correct combination of words and symbols that
specifies an action to be done, "ADD, MOVE, DIVIDE,
ETC.", or a condition to be tested "IF". Unless
subordinated to another statement as for example in IF
conditon it is best for program and readability to code
them starting in column 12. Figure 3.1 shows a segment
of a program code with 6 statements. The last statement
is quite long and therefore coded in 2 lines. Also for
readability the continuation is indented from this.
Your first exposure to typical COBOL program that the
code is quite easy to understand.
______________________________________________________________________________
1234567890123456789012345678901234567890123456789012345678901234567890123456789
0
IF W010-MONTH-SALES GREATER THAN 499.99
MOVE "*" TO W040-DETAIL-EXCEPTIONAL-SALES
ELSE MOVE TO W040-DETAIL-EXCEPTIONAL-SALES.
MOVE W010-MONTH-SALES TO W040-DETAIL-MONTH-SALES
MOVE W010-ANNUAL-SALES TO W040-DETAIL-ANNUAL-SALES
WRITE SALES-PERFORMANCE-LINE FROM W040-SALES-DETAIL-LINE
AFTER ADVANCING W040-PRINT-SKIP LINES.
EXAMPLE 3.1
_______________________________________________________________________________
PAGE 5
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
Sentence
A sentence is 1 or more statements that ends in a period
and is followed by a space. Notice it is followed by a
space. The beginning of a sentence is always a
statement that is not subordinated to another and should
therefore start in column 12. This concept of a
sentence is very important and the programmer is advised
to terminate a statement with a period when possible.
This makes a statement independent of other statements
and thus avoids potential problems as you will see later
on in figure 3.2. Figure 3.2 shows a segment of a
program code with 4 sentences. These are actually the
same statements as figure 3.1, but it now has 4
sentences from the 4 periods that end statements.
Figure 3.1 only has 2 sentences.
______________________________________________________________________________
1234567890123456789012345678901234567890123456789012345678901234567890123456789
0
IF W010-MONTH-CELLS GREATER THAN 499.99
MOVE "*" TO W040-DETAIL-EXCEPTIONAL-CELLS
ELSE MOVE TO W040-DETAIL-EXCEPTIONAL-CELLS.
MOVE W010-MONTH-CELLS TO W040-DETAIL-MONTH-CELLS.
MOVE W010-ANNUAL-CELLS TO W040-DETAIL-ANNUAL-CELLS.
WRITE CELLS-PERFORMANCE-LINE FROM W040-CELLS-DETAIL-LINE
AFTER ADVANCING W040-PRINT-SKIP LINES.
EXAMPLE 3.2
_______________________________________________________________________________
Clause
A clause is part of complex statement and is only
meaningful in specific statements. Examples are
"GIVING" "ROUNDED". Clauses of an arithmetic statement.
It maybe mandatory or optional depending on the
statement. Figure 3.3 shows use of 2 clauses and a
MULTIPLY statement.
______________________________________________________________________________
1234567890123456789012345678901234567890123456789012345678901234567890123456789
0
MULTIPLY W010-NUMBER-OF-HOURS BY W030-HOURLY-RATE
GIVING W020-WEEK-GROSS-PAY
ROUNDED.
EXAMPLE 3.3
______________________________________________________________________________
PAGE 6
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
Paragraph
A paragraph is 1 or more sentences that together perform
a certain function maybe grouped in 1 paragraph by
putting them under a paragraph header consisting of a
paragraph name and a period. For program readability,
this paragraph header is best coded starting in column
8. The concept of a paragraph is very important since
we will learn later on that it is best to execute the
logic by controlling paragraphs through the verb
PERFORM. Therefore adjacent paragraphs should be
seperated from each other by a line seperated. "* in
column 7". Figure 3.2 does 1 function for instance
print a detail line from data coming from a record. It
can then be coded as a paragraph putting a paragraph
header before it. Figure 3.4 is the result.
______________________________________________________________________________
1234567890123456789012345678901234567890123456789012345678901234567890123456789
0
*
*
C060-PRINT-CELLS-REPORT-DETAIL.
ROUNDED.
EXAMPLE 3.4
______________________________________________________________________________
Section
1 or more related paragraphs maybe grouped together in
one section by putting them under a section header which
consists of a section name followed by the literal
"SECTION" followed by period. The section ends
immediately before the next section header or at the end
of the program. Except for "DECLARATIVES SECTION" which
also ends with the "END DECLARATIVES" statement. The
concept of a section is very important in the PROCEDURES
DIVISION where as we will later discuss related
paragraphs are best grouped into sections. If we put
the paragraph into figure 3.4 under a section header we
get one section with 1 subordinate paragraph naturally
we can put as many paragraphs as you want in the same
section, but for readability of the program, the section
header is also coded started in column 8. Also we code
a line seperater which is an * in column 7 between the
section header and the paragraph header. The result is
in figure 3.5.
PAGE 7
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
______________________________________________________________________________
1234567890123456789012345678901234567890123456789012345678901234567890123456789
0
*
*
C000-PRINT-CELLS-REPORT SECTION.
*
C060-PRINT-CELLS-REPORT-DETAIL.
ROUNDED.
EXAMPLE 3.5
______________________________________________________________________________
STATEMENT FORMAT
Each statement in the language has a general format and
the programmer has to use the prescribed rules for each
statement regarding spelling "reserved words must be
spelled correctly". Providing the names of data to be
used and the order of the clauses in the statement. To
a large extent the rules of format follow common sense.
For instance, program logic is coded with statements
which start with a verb like "ADD, MOVE, MULTIPLY, ETC."
followed by the operend used by the verbs followed if
any by optional clauses. For instances, to multiply 2
numbers we code:
MULTIPLY first-operend BY second-operend
GIVING product-field
ROUNDED
ON SIZE ERROR,
imperative statements.
The 2 operends are multiplied and the product is placed
in the product field if the GIVING option is specified.
It maybe rounded off and it may not fit into high order
left most part of the product field. The imperative
statements will be executed instead of the next
following statement. Note that the GIVING, ROUNDED, and
ON SIZE ERROR are optional clauses. Before we go any
further, examine fig. 3.6.
PAGE 8
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
______________________________________________________________________________
1234567890123456789012345678901234567890123456789012345678901234567890123456789
0
IDENTIFICATION DIVISION.
*
PROGRAM-ID. EXMP36.
*
***********************************************************
* DATE-WRITTEN. 08/13/90. *
***********************************************************
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
*
WORKING-STORAGE SECTION.
01 HELLO-WORLD PIC X(20)
VALUE "Hello world".
*
PROCEDURE DIVISION.
*
DISPLAY HELLO-WORLD.
STOP RUN.
EXAMPLE 3.6
______________________________________________________________________________
The program logic is in the PROCEDURE DIVISION. At the

moment the reader should concern himself only with the
last 2 lines. The DISPLAY shows HELLO-WORLD from a
COBOL program on the video display and the STOP RUN
which as a name suggests stops execution of the program.
Thus you now know 2 verbs, DISPLAY and STOP in COBOL.
As you see they are self defining.
PAGE 9
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
COBOL Character Set

With the exception of non-numeric literals and comments
where the entire COBOLs character set maybe used only 52
characters are allowed in a COBOL program. They are :
1) letters A-Z and a-z.
2) spaces or blanks.
3) digits 0-9.
4) the following special characters:
+, -,*, =, >, <, $, , , ;, ., ", (, ), ', -.
If the computer detects any other characters, if not
found under these exceptions noted, an error will be
detected.
Characters Used in Words
A word is composed of a combination of not more than 30
characters. It cannot begin or end with a hyphen and
the valid characters are letters A-Z, digits 0-9, and
hyphen.
Characters Used for Punctuation
The following characters are used for punctuation: (, ),
,, ;,.
Rules for Punctuation
Punctuation characters are used according to the
following rules.
1) When used as punctuation a period, semicolon, or
comma must be followed by a space.
2) At least one space must appear between 2 successive
words in literals.
3) Relation characters (=, >, <) must always be
proceeded by a space and followed by another space.
4) You may optionally use a comma as a seperater between
successive oprands of a statement or between 2
subscripts.
5) You may optionally use a semicolon or comma to
seperate a series of statements or clauses.
6) You may use an apostrophe in place of a quotation
mark when delementing non-numeric literals.
Characters Used in Conditions
The following characters are used in conditions:
1) The greater than sign.
2) The less than sign.
3) The equal sign.
PAGE 10
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
Characters Used in Arithmetic

Arithmetic expressions are used in the COMPUTE statement
and they make use of the arithmetic operators.
Evaluation is done in the following order:
1) Expressions within the parenthesis are evaluated
first from the inner most pair to the outer most
pair.
2) Within a pair of parenthesis or if there is none the
order is according to the following operators:
a) Unary "+ or - in the variable or number".
b) Expodentation "**".
c) Mulitiplication and division.
d) Addition and subtraction.
3) For operators with the same order mulitplication and
division or addition and subtraction evaluation is
left to right.
Characters Used for Print Editing
Editing characters are replaced characters in a data
item to be printed. They are used to optimize a
presentation of the data item in a report. They are:
1) 9 numeric character.
2) V decimal point.
3) , comma.
4) Z zero suppress.
5) * check protection.
6) $ currency sign.
7) + plus.
8) - minus.
9) B blank.
10) 0 zero.
11) / slash.
12) CR credit.
13) DR debit.
PAGE 11
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
Types of Words
Reserved words are those that have a specific meaning in
COBOL and they must be spelled correctly and used in
only the way that they were intended. Examples are
"ADVANCING, MOVE, PAGE" etc. Program refined words,
non-reserved words, are coded by the programmer for the
following uses:
1) data names,
2) files names,
3) condition names,
4) procedure names.
Reserved Words
Reserved words have specific meanings in COBOL and
therefore use only according to proper Syntax rules.
These words must be spelled correctly. However, reserved
words enclosed in quotation marks become non-numerical
literals and are not reserved words. There are 3 types
of reserved words.
1) Key word - key word is a word which is required in
the statement. There are 3 types:
a) verbs, such as ADD, MOVE, READ.
b) required words that appear in certain statements,
such as TO and the ADD statement.
c) words that have specific functional meaning, such
as PAGE, ZERO, POSITIVE.
2) Optional words - an optional word may or may not be
included in a statement. Examples are GIVING,
ROUNDED, and ON SIZE ERROR, which are clauses in
arithmetic statements.
3) Connectives - connective is a word that joins or
connects 2 adjacent words. There are 2 types:
a) qualifier connective. This is "OF" which
associates a data name, condition name or
paragraph name with it's qualifier.
b) logical connectives. These are words used in
compound combinations. They are AND and OR.
PAGE 12
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
RESERVED WORDS LIST

===================
ACCEPT BLANK CONFIGURATION DYNAMIC

ACCESS BLINK CONTAINS ELSE
ADD BLOCK COPY EMPTY-CHECK
ADVANCING BOTTOM COUNT END
AFTER BY CURRENCY END-OF-PAGE
ALL CALL DATA ENVIRONMENT
ALPHABETIC CHAIN DATE EOP
ALTER CHAINING DATE-COMPILED EQUAL
AND CHARACTER DATE-WRITTEN ERASE
ARE CHARACTERS DAY ERROR
AREA CLOSE DEBUGGING ESCAPE
AREAS CODE-SET DECIMAL-POINT EVERY
ASCENDING COL DECLARATIVES EXCEPTION
ASCII COLLATING DELETE EXHIBIT
ASSIGN COLUMN DELIMITED EXIT
AT COMMA DELIMITER EXTEND
AUTHOR COMP DEPENDING FD
AUTO COMP-0 DESCENDING FILE
AUTO-SKIP COMP-3 DISK FILE-CONTROL
BACKGROUND-COLOR COMPUTATIONAL DISPLAY FILE-ID
BEEP COMPUTATIONAL-0 DIVIDE FILLER
BEFORE COMPUTATIONAL-3 DIVISION FIRST
BELL COMPUTE DOWN FOOTING
FOR IS NAMED POINTER
FOREGROUND-COLOR JUST NATIVE POSITIVE
FROM JUSTIFIED NEGATIVE PRINTER
FULL KEY NEXT PROCEDURE
GIVING LABEL NO PROCEDURES
GO LEADING NO-ECHO PROCEED
GREATER LEFT NOT PROGRAM
HIGH-VALUE LEFT-JUSTIFY NUMBER PROGRAM-ID
HIGH-VALUES LENGTH-CHECK NUMERIC PROMPT
HIGHLIGHT LESS OCCURS Q-RW-Q
I-O LIN OFF QUOTE
I-O-CONTROL LINAGE OMITTED QUOTES
IDENTIFICATION LINAGE-COUNTER ON RANDOM
IF LINE OPEN READ
INDEX LINES OR READY
INDEXED LINKAGE ORGANIZATION RECORD
INITIAL LOCK OUTPUT RECORDS
INPUT LOW-VALUE OVERFLOW REDEFINES
INPUT-OUTPUT LOW-VALUES PAGE RELATIVE
INSPECT MERGE PERFORM RELEASE
INSTALLATION MODE PIC REPLACING
INTO MOVE PICTURE REQUIRED
INVALID MULTIPLY PLUS RERUN
PAGE 13
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
RESERVE SIGN TO ZEROES

RESET SIZE TOP ZEROS
RESTART-FILE SORT TRACE
RETURN SORT-MERGED TRAILING
REVERSE-VIDEO SOURCE-COMPUTER TRAILING-SIGN
REWRITE SPACE UNDERLINE
RIGHT SPACE-FILL UNSTRING
RIGHT-JUSTIFY SPACES UNTIL
ROUNDED SPECIAL-NAMES UP
RUN STANDARD UPDATE
SAME STANDARD-1 UPON
SCREEN START USAGE
SD STATUS USE
SEARCH STOP USING
SECTION STRING VALUE
SECURE SUBTRACT VALUES
SECURITY SYNC VARYING
SELECT SYNCHRONIZED WHEN
SENTENCE TALLYING WITH
SEPARATE THAN WORKING-STORAGE
SEQUENCE THROUGH WRITE
SEQUENTIAL THRU ZERO
SET TIME ZERO-FILL
PAGE 14
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
Non-reserved words are coded according to these rules:

1) Only the 26 letters upper and lower case, digits 0-9,
and hyphen can be used.
2) All words must begin with a letter except procedure
names which may consist entirely of digits.
3) A word may not begin or end with a hyphen.
4) A word can have from 1-30 characters.
5) A data name or condition name does not have to be
unique as long as they may be qualified with unique
names of a higher level.
6) A word ends with a space or a punctuation mark.
Data Format
Data used in programs maybe represented in 4 ways. They
are:
1) Display. The data consists of a combination without
the numeric or special characters which each
character using 1 byte of memory. If the data
contains only numbers it maybe used in arithmetic
operation. The "USAGE IS DISPLAY" clause maybe
specified or omitted. Display is a default for the
usage clause.
2) Packed decimal. The data consists of digits with 2
digits packed together in 1 byte except the right
most digit which is packed with the sign. This field
is used for arithmetic or numeric move operations.
The "USAGE IS COMP-3 | COMPUTATIONAL-3". Clause must
be specified.
3) Binary item. The data consists of binary numbers.
The "USAGE IS COMP-0 | COMPUTATIONAL-0". Clause must
be specified.
4) Index. The data item which is defined with the usage
is index clause but without a picture clause is used
as an index data item in a relational condition as a
varying item and performing varying statement or in
place of a subscript.
Elementary Data Items
A data item that is not further subdivided into still
other items within a program is an elementary data item.
It is therefore the lowest level of data item in a
group. Examples are employee numbers, gross salary,
etc. The maximum level of elementary data item is 4,095
bytes.
PAGE 15
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
Group Data Item

A data item that is further subdivided into still other
data items is a group item. For instance, the group
item date of birth may consist of 3 elementary data
items - month, day, year. The elementary data item or
the group item maybe used in statements. The maximum
length of a group data item is 4,095 bytes. The
exception are at leve-01 group items records which are
not checked for length so that long tables can be used
in programs. However, statements and procedure division
cannot use data items longer than 4,095 byte limit.
There is no problem with tables because statements are
always referred to individual elements in the table, not
the whole table.
Records
Elementary and group data items that belong to a single
entity maybe grouped together under a single 01 level
record. For instance, all data items employee number,
gross salary, date hired, etc. belong to one employee
may be grouped into a single employee record.
Files
A group of records maybe written or grouped together in
a single file. For instance, all employee records for
all employees in a company belong to the employee master
file.
PAGE 16
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
The COBOL Coding Form

In good ole days when cards were used to enter programs
programmers used to write COBOL source programs on these
coding forms before punching them or having them punched
by keypunch operators. Now a days most programmers
enter their code directly on the screen via text editor
thus negating the need for coding forms. HOWEVER!!! You
still must adhere to the coding form rules and they are:
1) Columns 1-6 were originally used to enter line

numbers. The reason if some clot was to drop the
cards they can easily be sorted again. Today you may
or may not enter the line numbers, it does not make
any difference.
2) Column 7 is used 4 ways. They are:
a) if an asterisk is entered the line is considered a
comment.
b) if a slash is entered it will cause a page eject
in the program listing.
c) if non-numerical literal is to be continued on the
next line a hyphen must be entered.
d) if the letter D is entered than the line is
compiled as part of the program IF AND ONLY IF the
statement camps with debugging mode. Clauses
included in the SOURCE-COMPUTER paragraph of the
CONFIGURATION SECTION in the ENVIRONMENT DIVISION.
3) Columns 8-11 define area A a statement that starts a
group of related statements must start anywhere
within this area. Examples are division headers,
section headers, 01 level group items, paragraph
names, etc. However, for the sake of readability you
should always start them in Column A.
4) Columns 12-77 define area B all other statements that
cannot start in area A must start here.
5) Columns 78-80 are not processed by this compiler.
6) For the PC, characters may be entered in either
lowercase or uppercase.
PAGE 17
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
BASIC COBOL STATEMENTS

INTRODUCTION
Before we go into the details of coding, let us take a
few more simpilified program examples that will
familiarize us with many of the concepts that we will be
using later on. These concepts will be very useful when
we attempt to write larger programs. Let me remind you
that you have already seen the two verbs DISPLAY and
STOP.
PAGE 18
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
ACCEPT statement (format 2)

The ACCEPT verb may be used to allow the operator to
enter data on the console display in its normal
scrolling mode. This version (format 2) is generally
used if there is no need to have data entered on a
formatted screen (formatted screens are needed if a lot
of data is entered on the same screen). The program is
shown in fig. 4.1. Look at line 34 in the PROCEDURE
DIVISION which shows that the program accepts data from
the operator. The data then goes into field W005-
MESSAGE-FIELD, which line 28 shows can accommodate as
many as thirty-two characters. The same data is then
displayed back on the video display unit at line 35.
Note that each complete statement ends with a period,
making it a sentence.
PROGRAM LISTING 4.01
--------------------
PROG401 COB 12:00:14 02-Sep-90 PAGE

1
Line Number Source Line ANSI 74-85 Standard Cobol V.6.0 (c)1990.
1 IDENTIFICATION DIVISION.
2 *
3 PROGRAM-ID. PROG401.
4 *
5 ***************************************************
6 * *
7 * 1. DATE-WRITTEN. 08/01/90. *
8 * *
9 * 2. THIS PROGRAM DISPLAYS ON THE CONSOLE DISPLAY *
10 * A MESSAGE ENTERED BY THE OPERATOR. *
11 * *
12 ***************************************************
13 *
14 *
15 ENVIRONMENT DIVISION.
16 *
17 *
18 DATA DIVISION.
19 *
20 *
21 ****************************************************
22 * *
23 WORKING-STORAGE SECTION.
24 * *
25 ****************************************************
26 *
27 *
28 01 W005-MESSAGE-FIELD PIC X(32).
29 *
30 *
31 PROCEDURE DIVISION.
32 *
33 DISPLAY-ACCEPTED-MESSAGE.
PAGE 19
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
34 ACCEPT W005-MESSAGE-FIELD.
35 DISPLAY W005-MESSAGE-FIELD.
36 STOP RUN.
--------------------------------------------------------
The PRINTER DISPLAY STATEMENT

We have seen that the DISPLAY verb can display
information on the video display unit. Actually this
verb is very powerful and can also be used to display
information on the printer. Note that this is useful
for displaying a small amount of information only and
should not replace the technique of using the printer
as a afile which presents in a nice format a very large
amount of information. also, this feature should not
be intersperced with the printing of reports since it
will get mixed with the later. The program is shown in
fig.4.2. Note lines 17 to 21. These specify that the
printer will be used for displayed information. Lines
42 to 44 are similar to lines 34 to 36 of fig.4.1
execpt that the DISPLAY statement now includes the
operands "UPON PRINTER-DISPLAY". This ties up with
statement 21 and the information entered by the
operator on the console display is printed out at line
43. The result is fig.4.3. Note that the operator
entered "THIS MESSAGE IS OPERATOR ENTERED".
PROGRAM LISTING 4.2

-------------------
PROG402 COB 12:18:22 02-Sep-90 PAGE
1
2 *
4 *
5 ***************************************************
6 * *
7 * 1. DATE-WRITTEN. 08/01/90. *
8 * *
9 * 2. THIS PROGRAM DISPLAYS ON THE PRINTER *
11 * *
12 ***************************************************
13 *
14 *
16 *
17 CONFIGURATION SECTION.
18 *
19 SPECIAL-NAMES.
20 *
21 PRINTER IS PRINTER-DISPLAY.
PAGE 20
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
22 *
23 *
24 DATA DIVISION.
25 *
26 *
27 ****************************************************
28 * *
30 * *
31 ****************************************************
32 *
33 *
34 01 W005-MESSAGE-FIELD PIC X(32).
35 *
36 *
38 *
40 DISPLAY "PROGRAM PROG402: PRINT DISPLAY OUTPUT:"
41 UPON PRINTER-DISPLAY.
42 ACCEPT W005-MESSAGE-FIELD.
43 DISPLAY W005-MESSAGE-FIELD UPON PRINTER-DISPLAY.
44 STOP RUN.
--------------------------------------------------------
EXAMPLE 4.3
PROGRAM PROG402: PRINT DISPLAY OUTPUT:
THIS MESSAGE IS OPERATOR ENTERED
--------------------------------------------------------
THE MOVE STATEMENT

The MOVE verb moves data to a data field. The data may
be a literal specified in the statement or another data
field. The program is shown in fig. 4.4. The reader
should look at lines 38 and 40. These are the fields
involved in the MOVE statements in lines 49 and 50. The
operator will enter the data into the field "W005-
ACCEPT-MESSAGE-FIELD" and this is moved to the field
"W005-DISPLAY-MESSAGE-FIELD". The rest are the same as
in PROG402. The result is shown in fig.4.5.
PROGRAM LISTING 4.4

-------------------
PROG404 COB 12:34:20 02-Sep-90 PAGE 1
2 *
4 *
5 ***************************************************
PAGE 21
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
6 * *
7 * 1. DATE-WRITTEN. 08/01/90. *
8 * *
11 * *
12 * 3. THE MESSAGE IS INITIALLY ENTERED INTO ONE *
13 * WHICH IS THEN MOVED TO ANOTHER FIELD BEFORE *
14 * BEING PRINTED ON THE PRINTER. *
15 * *
16 ***************************************************
17 *
18 *
20 *
22 *
23 SPECIAL-NAMES.
24 *
26 *
27 *
28 DATA DIVISION.
29 *
30 *
31 ****************************************************
32 * *
34 * *
35 ****************************************************
36 *
37 *
38 01 W005-ACCEPT-MESSAGE-FIELD PIC X(32).
39 *
40 01 W005-DISPLAY-MESSAGE-FIELD PIC X(32).
41 *
42 *
44 *
46 DISPLAY "PROGRAM PROG404: PRINT DISPLAY OUTPUT:"
48 ACCEPT W005-ACCEPT-MESSAGE-FIELD.
49 MOVE W005-ACCEPT-MESSAGE-FIELD
50 TO W005-DISPLAY-MESSAGE-FIELD.
51 DISPLAY W005-DISPLAY-MESSAGE-FIELD
53 STOP RUN.
--------------------------------------------------------
EXAMPLE 4.5
PROGRAM PROG404: PRINT DISPLAY OUTPUT:
THIS MESSAGE IS OPERATOR ENTERED
--------------------------------------------------------
PAGE 22
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
THE ADD STATEMENT

The ADD verb adds two numbers and as options rounds off
the sum, checks it for overflow, or places it into a
specific field. Here, we will take up the most basic
version of the statement where we add two numbers
(contained in the two operands) and the sum is placed in
the second operand and thus replaces its original value.
The program is fig.4.6. Lines 34 and 36 specify the
operands to be used and their respective values. Line
42 does the ADD operation. The result is fig.4.7.
PROGRAM LISTING 4.6

--------------------
PROG406 COB 12:49:48 02-Sep-90 PAGE 1
2 *
4 *
5 ***************************************************
6 * *
7 * 1. DATE-WRITTEN. 08/01/90. *
8 * *
10 * A VALUE COMPUTED FROM AN ADD OPERATION. *
11 * *
12 ***************************************************
13 *
14 *
16 *
18 *
19 SPECIAL-NAMES.
20 *
22 *
23 *
24 DATA DIVISION.
25 *
26 *
27 ****************************************************
28 * *
30 * *
31 ****************************************************
32 *
33 *
34 01 W005-FIRST-OPERAND PIC 9 VALUE 2.
35 *
36 01 W005-SECOND-OPERAND PIC 99 VALUE 12.
37 *
PAGE 23
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
38 *
40 *
41 PRINT-COMPUTED-VALUE.
42 ADD W005-FIRST-OPERAND TO W005-SECOND-OPERAND.
43 DISPLAY "PROGRAM PROG406: THE SUM OF 2 + 12 IS:"
45 DISPLAY W005-SECOND-OPERAND UPON PRINTER-DISPLAY.
46 STOP RUN.
---------------------------------------------------------
EXAMPLE 4.7
PROGRAM PROG406: THE SUM OF 2 + 12 IS:
14
----------------------------------------------------------
THE SUBTRACT STATEMENT
The SUBTRACT verb subtracts two numbers and as options
rounds off the result, checks it for overflow, or places
it into a specific field. Here, we will take up the
most basic version of the statement where we subtract
two numbers (contained in the two operands ) and the
result is placed in the second operand ( the minuend)
and thus replaces the original value. The program is
shown in fig.4.8. Line 42 subtracts the two numbers,
which is then displayed on the printer. The result is
fig.4.9.
PROGRAM LIST 4.8

----------------
PROG408 COB 13:01:10 02-Sep-90 PAGE 1
2 *
4 *
5 ***************************************************
6 * *
7 * 1. DATE-WRITTEN. 08/01/90. *
8 * *
10 * A VALUE COMPUTED FROM A SUBTRACT OPERATION. *
11 * *
12 ***************************************************
13 *
14 *
16 *
18 *
19 SPECIAL-NAMES.
20 *
PAGE 24
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
22 *
23 *
24 DATA DIVISION.
25 *
26 *
27 ****************************************************
28 * *
30 * *
31 ****************************************************
32 *
33 *
34 01 W005-SUBTRAHEND PIC 9 VALUE 2.
35 *
36 01 W005-MINUEND PIC 99 VALUE 12.
37 *
38 *
40 *
42 SUBTRACT W005-SUBTRAHEND FROM W005-MINUEND.
43 DISPLAY "PROGRAM PROG408: THE RESULT OF 12 - 2 IS:"
45 DISPLAY W005-MINUEND UPON PRINTER-DISPLAY.
46 STOP RUN.
--------------------------------------------------------
EXAMPLE 4.9
PROGRAM PROG408: THE RESULT OF 12 - 2 IS:
10
---------------------------------------------------------
THE MULTIPLY STATEMENT
The MULTIPLY verb multiplies two numbers and as options
rounds off the product, checks it for overflow, or puts
it into a specific field. Here, we will take up the
most basic version of the statement where we multiply
two numbers (contained in the two operands) and the
product is placed in the second operand ( the
multiplier) and thus replaces its original value. The
program is shown in fig.4.10. Line 42 does the
multiplication which is then printed out. The result is
fig.4.11.
PROGRAM LIST 4.10

-----------------
PROG410 COB 13:13:40 02-Sep-90 PAGE 1
2 *
PAGE 25
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
4 *
5 ***************************************************
6 * *
7 * 1. DATE-WRITTEN. 08/01/90. *
8 * *
10 * A VALUE COMPUTED FROM A MULTIPLY OPERATION. *
11 * *
12 ***************************************************
13 *
14 *
16 *
18 *
19 SPECIAL-NAMES.
20 *
22 *
23 *
24 DATA DIVISION.
25 *
26 *
27 ****************************************************
28 * *
30 * *
31 ****************************************************
32 *
33 *
34 01 W005-MULTIPLICAND PIC 9 VALUE 2.
35 *
36 01 W005-MULTIPLIER PIC 99 VALUE 12.
37 *
38 *
40 *
42 MULTIPLY W005-MULTIPLICAND BY W005-MULTIPLIER.
43 DISPLAY "PROGRAM PROG410: THE PRODUCT OF 2 * 12 IS:"
45 DISPLAY W005-MULTIPLIER UPON PRINTER-DISPLAY.
46 STOP RUN.
---------------------------------------------------------
EXAMPLE 4.11
PROGRAM PROG410: THE PRODUCT OF 2 * 12 IS:
24
----------------------------------------------------------
PAGE 26
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
THE DIVIDE STATEMENT

The DIVIDE verb divides two numbers and as options
rounds off the quotient, checks it for overflow, or
places it into a specific field. Here, we will take up
the most basic version of the statement where we divide
two numbers and the quotient is placed in the second
operand (the dividend) and thus replaces its original
value. The program is shown in fig.4.12. Line 42
divides the two numbers and the result is then printed
out. The result is fig.4.13. You will notice that the
result is 06, not simply 6.
PROGRAM LIST 4.12

-------------------
PROG412 COB 13:25:31 02-Sep-90 PAGE 1

2 *
4 *
5 ***************************************************
6 * *
7 * 1. DATE-WRITTEN. 08/01/90. *
8 * *
10 * A VALUE COMPUTED FROM A DIVIDE OPERATION. *
11 * *
12 ***************************************************
13 *
14 *
16 *
18 *
19 SPECIAL-NAMES.
20 *
22 *
23 *
24 DATA DIVISION.
25 *
26 *
27 ****************************************************
28 * *
30 * *
31 ****************************************************
32 *
33 *
34 01 W005-DIVISOR PIC 9 VALUE 2.
35 *
PAGE 27
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
36 01 W005-DIVIDEND PIC 99 VALUE 12.

37 *
38 *
40 *
42 DIVIDE W005-DIVISOR INTO W005-DIVIDEND.
43 DISPLAY "PROGRAM PROG412: THE QUOTIENT OF 12 / 2 IS:"
45 DISPLAY W005-DIVIDEND UPON PRINTER-DISPLAY.
46 STOP RUN.
---------------------------------------------------------
EXAMPLE 4.13
PROGRAM PROG412: THE QUOTIENT OF 12 / 2 IS:
06
---------------------------------------------------------
THE GIVING CLAUSE
We have so far used the four arithmetic operations where
we allowed the result to replace one of the original
operands. This may be all right for some programs, but
in others you may want to preserve the original numbers
because you may need them later on. We accomplish this
by including the optional GIVING clause which specifies
a data item that will contain the result of the
arithmetic operation. An example is fig.4.14. Line 40
defines the data item that will receive the result of
the DIVIDE operation, which is coded in line 46. This
is the data item that we will also display on the
printer. The result is fig.4.15.

---------------------
PROG414 COB 13:37:26 02-Sep-90 PAGE 1
2 *
4 *
5 ***************************************************
6 * *
7 * 1. DATE-WRITTEN. 08/01/90. *
8 * *
11 * *
12 * 3. THE QUOTIENT IS PLACED INTO A DIFFERENT FIELD*
13 * *
14 ***************************************************
15 *
16 *
PAGE 28
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
18 *
20 *
21 SPECIAL-NAMES.
22 *
24 *
25 *
26 DATA DIVISION.
27 *
28 *
29 ****************************************************
30 * *
32 * *
33 ****************************************************
34 *
35 *
37 *
39 *
40 01 W005-QUOTIENT PIC 9.
41 *
43 *
45 DIVIDE W005-DIVISOR INTO W005-DIVIDEND GIVING W005-QUOTIENT.
46 DISPLAY "PROGRAM PROG414: THE QUOTIENT OF 12 / 2 IS:"
48 DISPLAY W005-QUOTIENT UPON PRINTER-DISPLAY.
49 STOP RUN.
---------------------------------------------------------
EXAMPLE 4.15
PROGRAM PROG414: THE QUOTIENT OF 12 / 2 IS:
6
---------------------------------------------------------
THE ROUNDED CLAUSE
In certain arithmetic operations, especially division
and sometimes multiplication with decimals, there may be
extra digits in the result to the right of the decinal
point that cannot be accommodated in the data item that
holds this result. ANSI-COBOL automatically truncates
these digits from the result without rounding off the
remaining loworder (rightmost) digit, unless the
optional ROUNDED clause is included. Fig. 4.16 shows
the differnce between division without rounding and one
with rounding. Both versions will be displayed for
comparison. Lines 50 to 53 shows division without
rounding, followed by the corresponding display; and
lines 54 to 58, those with rounding. Incidentally, line
52 shows how a non-numeric literal is continued in the
next line. The result is fig.4.17. The quotient of 5/3
PAGE 29
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
is 1 if not rounded, and 2 if rounded. Since the

rounded version is closer to the true answer, this
option should always be used if truncation can occur.
--------------------
PROG416 COB 14:01:37 02-Sep-90 PAGE 1
2 *
4 *
5 *********************************************************
6 * *
7 * 1. DATE-WRITTEN. 08/01/90. *
8 * *
11 * *
12 * 3. THE QUOTIENT IS PLACED INTO A DIFFERENT FIELD *
13 * *
14 * 4. THE DIVIDE OPERATION AND DISPLAY WILL BE DONE TWICE*
15 * A) TRY #1 - QUOTIENT IS NOT ROUNDED OFF. *
16 * B) TRY #2 - QUOTIENT IS ROUNDED OFF. *
17 * *
18 *********************************************************
19 *
20 *
22 *
24 *
25 SPECIAL-NAMES.
26 *
28 *
29 *
30 DATA DIVISION.
31 *
32 *
33 ****************************************************
34 * *
36 * *
37 ****************************************************
38 *
39 *
41 *
43 *
45 *
46 *
PAGE 30
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
48 *
51 DISPLAY "PROGRAM PROG414: THE QUOTIENT OF 5 / 3 UNROUNDED IS
52 - ":" UPON PRINTER-DISPLAY.
54 DIVIDE W005-DIVISOR INTO W005-DIVIDEND
55 GIVING W005-QUOTIENT ROUNDED.
PROG416 COB 14:01:37 02-Sep-90 PAGE 2

56 DISPLAY "PROGRAM PROG414: THE QUOTIENT OF 5 / 3 ROUNDED IS:"
59 STOP RUN.
-----------------------------------------------------------
EXAMPLE 4.17
PROGRAM PROG416: THE QUOTIENT OF 5 / 3 UNROUNDED IS:
1
PROGRAM PROG416: THE QUOTIENT OF 5 / 3 ROUNDED IS:
2
----------------------------------------------------------
THE PERFORM STATEMENT
The PERFORM verb executes a set of one or more
contiguous sections or paragraphs, then returns control
to the statement following the PERFORM. It is thus a
temporary branch from the current set of statements
being executed. It is an extremely useful verb and is
generally used to control the program logic by selecting
which statements are to be executed at any given time.
The program is shown in fig.4.20.

--------------------
PROG420 COB 14:35:22 02-Sep-90 PAGE 1
2 *
4 *
6 *
8 *
9 SPECIAL-NAMES.
PAGE 31
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
10 *
12 *
13 *
14 DATA DIVISION.
15 *
16 *
18 *
20 *
22 *
24 *
25 *
27 *
28 MAIN-LINE-LOGIC.
29 PERFORM PRINT-COMPUTED-VALUE.
30 STOP RUN.
31 *
32 *
35 DISPLAY "12/2 IS".
36 DISPLAY W005-QUOTIENT.
---------------------------------------------------------
THE ON SIZE ERROR CLAUSE
If after decimal point alignment and rounding, the high-
order (left-most) portion of the result cannot fit in
the data item for the result, the "size error" condition
occurs. If the ON SIZE ERROR option is not used in the
arithmetic statement, the result is unpredictable.
Otherwise, the imperative statements that fall under the
ON SIZE ERROR clause will be executed. An example is
fig.4.22.

--------------------
PROG422 COB 14:36:08 02-Sep-90 PAGE 1
2 *
3 PROGRAM-ID. CHAP422.
4 *
6 *
8 *
9 SPECIAL-NAMES.
PAGE 32
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
10 *
12 *
13 DATA DIVISION.
14 *
16 *
18 *
20 *
22 *
23 *
25 *
26 MAIN-LINE-LOGIC.
27 PERFORM PRINT-COMPUTED-VALUE.
28 STOP RUN.
29 *
30 *
32 DIVIDE W005-DIVISOR INTO W005-DIVIDEND GIVING W005-QUOTIENT
33 ON SIZE ERROR
34 DISPLAY "ON SIZE ERROR ENCOUNTERED"
35 DISPLAY "PROGRAM ABORTING"
36 STOP RUN.
37 DISPLAY "No On Size error".
38 DISPLAY "PROGRAM EXITING NORMALLY".
39 STOP RUN.
---------------------------------------------------------
THE GO TO STATEMENT
The GO TO statement verb provides an unconditional
branch from the current set of statements to a specific
section or paragraph in the program. Unlike the PERFORM
verb, there is no return to where it came from and the
execution will continue right at the section or
paragraph specified as the operand of the verb. Many
studies in structured programming have shown that the
uncontrolled use of this verb can make the program logic
hard to follow because of the many "jumps" that occur.
I therefore suggest that we only use this verb in
certain conditions. Fig. 4.24 shows an example of the
GO TO.
PAGE 33
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990

--------------------
PROG424 COB 14:37:39 02-Sep-90 PAGE 1
2 *
4 *
6 *
8 *
9 SPECIAL-NAMES.
11 *
12 *
13 DATA DIVISION.
14 *
16 *
18 *
20 *
22 *
23 *
25 *
26 MAIN-LINE-LOGIC.
27 GO TO PRINT-COMPUTED-VALUE.
28 *
29 *
31 DIVIDE W005-DIVISOR INTO W005-DIVIDEND GIVING W005-QUOTIENT
32 ON SIZE ERROR
33 DISPLAY "ON SIZE ERROR ENCOUNTERED"
34 DISPLAY "PROGRAM ABORTING"
35 STOP RUN.
36 DISPLAY "No On Size error".
37 DISPLAY "PROGRAM EXITING NORMALLY".
38 STOP RUN.
PAGE 34
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
THE COMPUTE STATEMENT

The COMPUTE statement is used to evaluate an arithmetic
expression. It can therefore be used in place of
individual ADD, SUBTRACT, MULTIPLY, or DIVIDE
statements. It is also used ijn exponentialtion
(raising a number to a power), although VERSION 6.50
only allows integers for the exponent. It's main
drawback is that the intermediate results are
manipulated by the statement (not the programmer) and
may result in truncation of digits to the right of tthe
decimal point. Therefore, be careful when using this
statement. An example of the use of COMPUTE is
fig.4.26.
--------------------
PROG426 COB 14:41:15 02-Sep-90 PAGE 1
1 *
3 *
5 *
7 *
9 *
10 SPECIAL-NAMES.
12 *
13 *
14 DATA DIVISION.
15 *
17 *
18 *
19 01 W005-GROSS-PAY PIC 9(4)V99.
20 *
21 01 W005-BASE-PAY PIC 999V99 VALUE 500.
22 *
23 01 W005-WEEK-HOURS PIC 99V99 VALUE 39.5.
24 *
25 *
27 *
28 MAIN-LINE-LOGIC.
29 GO TO PRINT-COMPUTED-VALUE.
30 *
31 *
33 COMPUTE W005-GROSS-PAY ROUNDED =
34 W005-BASE-PAY * ( 1 + 1.5 * ( W005-WEEK-HOURS - 35 ) / 35 )
35 DISPLAY W005-GROSS-PAY.
PAGE 35
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
36 COMPUTE W005-GROSS-PAY ROUNDED =

37 W005-BASE-PAY * ( 1 + ( 1.5 / 35 )
38 * ( W005-WEEK-HOURS - 35)).
39 DISPLAY W005-GROSS-PAY.
40 STOP RUN.
PAGE 36
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
CHAPTER 5
BASIC FILE OPERATIONS
INTRODUCTION
Cobol was deveeloped for business applications and as
such was designed to make it easier ( compared to other
language ) for programmers to write programs for
applications like PAYROLL, INVENTORY CONTROL, ACCOUNTS
REC. ECT. While its arithmetic capablities, though more
than adequate for business applications, are not as
extensive as those of fortran, its ablitity to process
large amounts of data of different formats from
different locations make it the most popular programming
language for commercial applications.
PAGE 37
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
FILES
Data used in COBOL programs (except for low-volume data

like an end-of-cycle date entered at the begining of the
computer run) are generally contained in files. We may
think of files as similar to file cabinets that contain
a lot of information about a particular subject matter.
In a payrole application, the PAYROLE MASTER FILE is one
that contains information for all employees in the
company. In an Inventory application, the INVENTORY
MASTER FILE contains the relevant information about all
items being stocked by the company.
FILE ORGANIZATION
Files used by ANSI-STANDARD COBOL 6.50 may fall under
four types of organization. The regular sequential
(usually called sequential) organization file is the
type normally created by COBOL programs. The records are
only logically sequential because the will appear that
way to the program. They may not really be physically
in sequence since DOS uses the first available sector on
the disk on file operations. However, thisdoes not
concern the programmer in cobol because DOS will
retrieve these records in the proper sequence.
The records in the file are of variable length and each
one has a 2-byte prefix created by DOS containing the
record number. This prefix is transparent to COBOL and
is therefore not defined as part of the record.
The line sequentional organization file has each record
followed by a CR/LF. This type file is created normally
by a word proc.
The indexed organization and relative organization will
be discussed in greater detail later on in the text.
RECORDS
Each record in the file may have up to 4,095 bytes but
no more.
PAGE 38
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
THE OPEN STATEMENT

Each file used must be opened before any activity is
allowed on it; else an error occurs. Any sequential
READ statement will then retrieve the first record in
the file. The format of the OPEN statement is:
OPEN INPUT|OUTPUT|I-O|EXTEND FDFILENAME
The following rules apply:

1. Filename corresponds to those in the SELECT and FD
(file description) entries.
2. Files that are simultaneously opend as either
INPUT,OUTPUT,I-O, or EXTEND may be grouped together.
3. INPUT,OUTPUT,I-O, and EXTEND may be coded in the same
statement.
4. Use INPUT if the file already exists and will be used
only for "READING" data from it.
5. Use OUTPUT if the file does not exist or you want to
replace an existing file with new records generated
in the program. The printer is ALWAYS an output file.
6. Use I-O if you want to add new records (WRITE), or
update old records (REWRITE after a READ) to an
existing disk file. NOTE: the file must already exist
if the I-O mode is used. Also, the WRITE verb cannot
be used in I-O mode if organization is sequential.
7. Use EXTEND if you want to append new records at the
end of an existing file. NOTE: The file must already
exist if tthe EXTEND mode is used. Only WRITE
statements are allowed and only sequential files may
be opened in EXTEND mode.
THE CLOSE STATEMENT
Each file used must be closed if no longer required, as
for instance when all records have been read from or
written to it. Closing files allows the operating
system to do its housekeeping chores on the file,
disposing of them properly depending on their nature.
The format of the CLOSE statement is :
CLOSE FDFILENAME WITH LOCK.
You may thus close as many files you want in a single
statement. The WITH LOCK option makes sure that the
file cannot be reopened in the same program. If
required, it is coded for the specific files that
require them.
PAGE 39
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
THE READ STATEMENT

The read statement brings an existing record into your
program. It can only be used for files that are opened
as INPUT or I-O. The format is:
READ FDFILENAME INTO DATA-NAME
AT END, statements
The INTO option specifies a data name in the WORKING-
STORAGE section that will receive the data. The AT END
condition specifies the imperative statements that will
be executed when that are no more records in the file.
THE WRITE STATEMENT (PRINT FILE)

The WRITE statement writes records into an output file.
Here, we will only discuss it's use in generating print
lines on the printer. This is used to prepare well-
structured reports of the type used by management and
employee personal, unlike the DISPLAY verb, which is
basically used to print unstructured, short messages for
the computer operator. Extreme care must be made when
using both features since we don't want messages mixed
in with reports. The format for the WRITE statement is:
WRITE print-record AFTER ADVANCING data-name|literal
LINES|PAGE
Print-record is th 01-level record defined as part of
the FD entry for the file. The "AFTER ADVANCING" clause
specifies the printer carrage control skipping action
before the line is printed. The "AFTER ADVANCING PAGE"
option specifies that the line is printed after the
paper is positioned on a new page. The "AFTER ADVANCING
data-name|literal LINES" option specifies that the paper
is advanced so many lines before the line is printed.
The literal must be an unsigned integer and the data-
name defined as an unsigned integer, and skipping will
occur according to the following values they hold:
VALUE CARRIAGE CONTROL ACTION
--------------------------------------------------------
0 NO SPACING
1 NORMAL (PRINT ON NEXT LINE)
2 1 BLANK SPACE BEFORE PRINTING
3 2 BLANK SPACES BEFORE PRINTING
. ....
. ....
120 119 BLANK SPACES BEFORE PRINTING
PAGE 40
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990

--------------------
PROG501 COB 15:25:03 02-Sep-90 PAGE 1
2 *
4 *
5 DATE-WRITTEN. 08/13/90.
6 *
7 AUTHOR. BOB NOWECK.
8 *
9 SECURITY. NONE.
10 *
11 *
13 *
14 INPUT-OUTPUT SECTION.
15 *
16 FILE-CONTROL.
17 *
18 SELECT EMPLOYEE-ADDRESS-MASTER
19 ASSIGN TO DISK
20 ORGANIZATION IS LINE SEQUENTIAL.
21 *
22 SELECT EMPLOYEE-ADDRESS-PRINT
23 ASSIGN TO PRINTER.
24 *
25 *
26 DATA DIVISION.
27 *
28 FILE SECTION.
29 *
30 FD EMPLOYEE-ADDRESS-MASTER
31 LABEL RECORDS STANDARD
32 VALUE OF FILE-ID IS "FIOPRT.DAT".
33 01 EMPLOYEE-ADDRESS-MASTER-RECORD.
34 05 EMPLOYEE-ADDRESS-MASTER-NAME PIC X(30).
35 05 EMPLOYEE-ADDRESS-MASTER-STREET PIC X(30).
36 05 EMPLOYEE-ADDRESS-MASTER-CITY PIC X(30).
37 *
38 FD EMPLOYEE-ADDRESS-PRINT
39 LABEL RECORDS OMITTED.
40 01 EMPLOYEE-ADDRESS-PRINT-LINE PIC X(30).
41 *
42 *
44 *
45 01 W005-END-OF-FILE-SWITCH PIC X.
46 88 W005-END-OF-FILE VALUE "1".
47 01 W005-LINE-SKIP PIC 99.
48 *
50 *
PAGE 41
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
51 C000-MAIN-LINE-LOGIC.
52 *
53 OPEN INPUT EMPLOYEE-ADDRESS-MASTER
54 OUTPUT EMPLOYEE-ADDRESS-PRINT.
55 MOVE "0" TO W005-END-OF-FILE-SWITCH.
PROG501 COB 15:25:03 02-Sep-90 PAGE 2
56 PERFORM C060-READ-EMPLOYEE-MASTER.
57 PERFORM C020-PROCESS-EMPLOYEE-MASTER
58 UNTIL W005-END-OF-FILE.
59 CLOSE EMPLOYEE-ADDRESS-MASTER
60 EMPLOYEE-ADDRESS-PRINT.
61 STOP RUN.
62 *
63 C020-PROCESS-EMPLOYEE-MASTER.
64 *
65 MOVE EMPLOYEE-ADDRESS-MASTER-NAME
66 TO EMPLOYEE-ADDRESS-PRINT-LINE.
67 MOVE 3 TO W005-LINE-SKIP.
68 PERFORM C040-WRITE-DETAIL-LINE.
69 MOVE EMPLOYEE-ADDRESS-MASTER-STREET
73 MOVE EMPLOYEE-ADDRESS-MASTER-CITY
77 PERFORM C060-READ-EMPLOYEE-MASTER.
78 *
79 C040-WRITE-DETAIL-LINE.
80 *
81 WRITE EMPLOYEE-ADDRESS-PRINT-LINE
82 AFTER ADVANCING W005-LINE-SKIP LINES.
83 *
84 C060-READ-EMPLOYEE-MASTER.
85 *
86 READ EMPLOYEE-ADDRESS-MASTER
87 AT END, MOVE "1" TO W005-END-OF-FILE-SWITCH.
PAGE 42
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
CODING THE IDENTIFICATION AND ENVIRONMENT DIVISIONS

INTRODUCTION
In the past chapters, we have discussed enough basic
features of COBOL for the reader to code simple
programs. In the previous chapter, we mentioned the
concept of "structured programming" to write programs
that are easy to read and therefore maintain. From now
on, we will broaden this concept to include specific
techniques that are useful in the four COBOL divisions.
This extends the concept beyond the original idea of
structured programming, which was mainly for easy-to-
read code in the PROCEDURE DIVISION.
PAGE 43
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
THE IDENTIFICATION DIVISION

This division identifies the program, and as options may
identify it author, it's purpose, and other
characteristics like when it was written, ect. Besides
the division header "IDENTIFICATION DIVISION." which is
coded starting in column 8, there is only one other
required entry for the division and this is the
"PROGRAM-ID." entry which is also coded starting in
column 8. The operand must be 8 characters or less and
start with an alphabetic character.
The periods after "IDENTIFICATION DIVISION." are
manditory, as well as the "PROGRAM-ID.".
DATE-WRITTEN.
SOURCE-COMPUTER.
OBJECT-COMPUTER.
AUTHOR.
SECURITY.
are not manditory but maybe added for arcival purposes.
THE ENIVRONMENT DIVISION
This division, which starts with the division header
"ENVIRONMENT DIVISION." coded starting in column 8,
contains the entries that relate your program to the
physical characteristics of the hardware to be used.
While COBOL is to a large extent machine-independent,
this division is needed to specify things like file
organization, device type, and others which are to some
extent machine-dependent.
CONFIGURATION SECTION
This division contains two opional sections,
"CONFIGURATION SECTION." and "INPUT-OUTPUT SECTION."
which are coded in column 8 and must be in that order if
both are present, There are 2 paragraphs in the
"CONFIGURATION SECTION.". The "SOURCE-COMPUTER."
paragraph is used in debugging and will be explained
later on. The "SPECIAL-NAMES." paragraph has severial
entries, one of which is the "PRINTER IS" entry which is
coded in column 12 and is used with displaying of
information on the printer.
PAGE 44
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
INPUT-OUTPUT SECTION
The "INPUT-OUTPUT SECTION." contains the "FILE-CONTROL."
paragraph, which is coded in column 8, and which is
required if the program uses files. There will be
entries under this paragraph, one for each file used.
Each entry is a SELECT statement that starts in column
12, and may be continued on the next line, and ends with
a period. The format for the SELECT statement is:
SELECT data-file-name ASSIGN TO DISK|PRINTER
FILE STATUS IS data-name
ACCESS MODE IS SEQUENTIAL|RANDOM|DYNAMIC
ORGANIZATION IS SEQUENTIAL|LINE
SEQUENTIAL|RELATIVE|INDEXED
RECORD KEY IS data-name-2
RELATIVE KEY IS data-name-3
1. Use filenames that are self-documenting. In the
example I use EMPLOYEE-ADDRESS-MASTER and EMPLOYEE-
ADDRESS-PRINT as file names.
2. Use DISK if it is a disk file and PRINTER if it is
the printer.
3. The FILE STATUS clause is used for disk files with
relative or indexed file organization, data-name is a
two-character data item that contains the value set
after every I-O statement. The returned values are:
FILE STATUS value MEANING
______________________________________________
00 SUCCESSFUL COMPLETION
10 END OF FILE
21 KEY NOT IN SEQUENCE(INDEXED)
22 DUPLICATE KEY ON WRITE
23 NO RECORD FOUND
24 DISK FULL
30 HARDWARE ERROR (DISK NOT READY ECT.)
91 FILE STRUCTURED DESTROYED
PAGE 45
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
CHAPTER 7
CODING THE DATA DIVISION
Introduction
The data division is where data used in the program
except for literals used in statements are defined.
The data maybe coming from a file will be written to
a file or used in intermediate processing. It is
important that certain techniques be used so that the
data names can be easily located and read from the
program listing and thus facilitate program
debugging. It is also important that we select the
proper data format so as to help make the program
more efficient.
PAGE 46
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
Sections
This division starts with the division header "DATA
DIVISION" that is coded starting in column 8. There
are 4 optional sections that maybe defined all of
which start with a section header that is coded
starting in column 8. These sections are "FILE
SECTION", "WORKING-STORAGE SECTION", "LINKAGE
SECTION", "SCREEN SECTION" and must appear in that
order if defined.
FILE SECTION
This section starts with header "FILE SECTION" and
contains one entry for each file defined in the
select statement in the file control paragraph of the
ENVIRONMENT DIVISION. The file description entry has
the following format.
FD file name
LABEL RECORD | RECORDS IS | ARE OMITTED | STANDARD
VALUE OF FILE ID IS data name.

1) the 2 clauses LABEL RECORDS AND VALUE OF can be in
any order.
2) the FD "file description" literal is coded in
column 8, but file name in clauses are coded
starting in column 12.
3) all file names defined by select statements must
have a corresponding FD entry and the spelling of
the file name is naturally identical for both
entries.
4) the LABEL RECORDS must be specified as standard
for disc files and omitted for printer.
5) the value of file ID clause must be specified for
disc files and omitted for printer. It is used by
DOS for locating the file during the computer run
and is therefore defined according to the rules
for file names for DOSS. It has the format
DRIVE:FILE NAME.EXTENSION.
FILE RECORD ENTRIES
The format for records in each file is coded right after
the corresponding FD entry. Each record is defined with
an O1 Level with the level number starting in column 8.
The data name itself starts in column 12. This record
maybe further subdivided into lower level data items or
fields.
PAGE 47
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
Data Item Definition

The data items coded in various sections of this
division except for those of screen formatting use
similar formats. The format is:
level # data-name REDEFINES data name.
level # data-name PICTURE | PIC IS picture type
OCCURS integer TIMES
INDEX BY index-name
USAGE IS usage-type
VALUE IS literal.
1) The level # is 01 if we are defining a record. A
record here means that either a file record entry at
the file section, a group of data names at the
working storage section or the linkage section or the
format of the whole screen in the screen section.
2) The level # for entries under the 01 range from 02-
49. However it is best to use numbered steps like
05,10,15, etc. so any further changes later on maybe
easily made by using numbers in between.
3) The level number for a condition name entry is 88.
This entry can only have a data name in the value
clause.
4) I suggest that you do not use level 77 which are
independent from other data items. It is better to
code data names which are used together as groups so
they are easily seen together in the program listing.
This is also used full when you write COBOL for
mainframes because of paging problems in virtual
storage systems.
5) Data name should be defined so that the reader
immediately notices what the data represents just
from it's name. An example is EMPLOYEE-ADDRESS-
MASTER.
6) The redefines clause specifies that the area occupied
by data-name-2 will also contain data-name-1. It is
often used to provide alternate grouping or
description of the same data item. If coded it
should be the first clause following data-name-1 and
data-name-2 is a data item coded just ahead of it.
7) Pic or picture specifies the format of the data item
and should be coded only for elementary data items.
The different picture types are the following:
a) Alphanumeric. This applies to a data item which
may contain alphabet and numeric characters and
therefore not used in arithmetic operations.
Picture type is specified with Xs. A number
enclosed in parenthesis means a repeat of one
occurence of an X. For instance, picXXXXX is
identical to picX[5].
b) Numeric. This field contains only numbers and is
usefful for fields in arithmetic operations. This
is defined with an S. If there is a sign 9 is
PAGE 48
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
used for digits and V for the assumed position of

the decimal point. This data item has the usage
display oprand as a default or must have the comp-
0 "binary" or comp-3 "packed decimal" specified.
c) Editing. This field is used for editing numeric
fields in preparation for printing them the
reports.
d) Try to code pic or picture somewhere in column 44
or 48 or even further to a line off picture
specification for easy reading. You will
generally have enough space on the left for the
data items and on the right for the other clauses.
e) In this section, file section, the value clause is
only used for condition names and not data names.
f) Code line seperators as in other divisions.
-------------------------------------------------------------------------------
WORKING STORAGE SECTION
This section contains data that are mainly used for
intermediate processing such as counters, tables, etc.
This data are generally not directly related to records
and files. The file record entries under FDs except
where we use the into option of verb or from option of
the write or rewrite verbs. Coding techniques for this
section is basically identical to those of the file
section except the following:
1) The 01 level group item does not correspond to any
record and therefore the programmer may group data
items under it in any way he chooses. He should,
however, try to group data together that are related.
2) The value clause maybe used in this section.
LINKAGE SECTION
This section is used if the program is being called by
another program. It will contain description of data
items that the called program needs and has the
correspondence to certain data items defined in the
working storage section of the calling program. This
section will actually not have memory allocated for it,
but will just use the memory allocated to the
corresponding files in the calling program. Just like
the data items in the file section the value clause
maybe specified only for condition names.
SCREEN SECTION
This section defines format of the screen to be used in
the program for displaying formatted data. Display or
exhibit verbs or accepting formatted data except verbs.
PAGE 49
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
CODING THE PROCEDURE DIVISION

Introduction
This division contains specific instructions that the
programmer wants executed and thus carries logic of the
program. It is the division that can benefit most from
good programming techniques and it contributes most to
the rehability and efficiency of the program.
PAGE 50
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
Structure Programming
This is a technique that grew out of research begun in
the academic community some 30 or 40 years ago. It's
main aim was to make programs easier to read and thus
understand by having the programmer code them in a
certain style. One of it's main ideas is to avoid any
GO TO statements since they made the larger quota to
follow. The unconditional branch caused by each GO TO
disrupts the normal flow of control from a statement to
the one following it. Some proponents of structure
programmings have expand and redefined this idea to
include many other techniques. They have not eliminated
GO TOs all together, but just restrict their use to
certain conditions.
Program Constructs
Structured programming requires statements follow the
rule of one entry and one exit. Constructs which
consists of one or more statements must acquire control
starting execution at only one point in a relinquished
control stop execution at only one point. Reading the
program listing is thus made easier since we know that a
construct will eventually exit at one point. Any branch
outside of the construct will only be temporary done
through performed verbs. From this we can conclude that
GO TOs are to be avoided. GO TOs are supported although
in version 6.50. Examples of this are MOVE, DISPLAY,
EXHIBIT, etc. Statements which we simply execute before
proceeding in the next statement. Let's look at the
following set of statements. MOVE "ERA 5" TO MESSAGE
005-MESSAGE-CODE. EXHIBIT NAMED W005-MESSAGE-CODE.
DISPLAY "TEST 01 RUN ABORTED". You will note that each
statement is simply executed and control flows right
through to the next statement.
The IF Condition
We must understand that statements under the true or
false boxes could be a combination of valid constructs.
The important thing is always is to have one entry point
and one exit thus nested IFs something that may seem
tricky to use are very powerful to the structure
programming. While confusing if done improperly they
are easy to understand if properly indented. Note that
the constructs start at the IF statement and ends with a
period. No matter what values of W005-TRANS-HOURS and
W01-HOURS-LIMIT are. Control will eventually reach the
statement following the construct. Perform until
constructs. The construct governed by the false
condition the performed body will be executed repeatedly
until condition becomes true. At which time the
apparent original construct exists. When the constructs
in the performed body must eventually set the condition
true to enable use to exit from the apparent construct
PAGE 51
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
otherwise we have it endlessly.

Note that the paragraph C200-0-OUT-CELLS will be
executed repeatedly until the value of W05CELLS I is
greater than the value of total stores. The sentence
statement will cause this to happen at some point in the
construct exits.
Modular Programming
One of the developments in structure programming was the
idea of modularizing the program by coding into it's
sections. This idea is extensively used to COBOL
programs written for mainframes where the use of
advanced features like Sort require it. It is also
useful and is used in COBOL 6.50. It is mandatory if
the program is too large for computer memory requiring
it to be segmented. Secondly you may some day want to
write COBOl programs for mainframes or port the programs
that you have already written over to mainframes and you
would need to know how these sections are used.
The Main Line Section
The programs start to execute at the first verb of the
PROCEDURE DIVISION excluding statements and the
declarative section. It is therefore a good idea to
control the program logic in this area. It is also the
first part of the program a programmer would look at.
The most common name for this section is C000-MAIN-LINE.
C00 is a prefix which will be described later on. The
first paragraph of this section as a minimum does the
following:
1) Performs initialization section if any. This section
will execute the initial routines like read and
attail, accept the date used in processing, etc.
2) Open the files to be used in the section.
3) Perform the initial read of the input files.
4) Perform the paragraph that processes the input files
until the end of file perform until.
5) Performs the finalization section if any. This
section executes a final housekeeping routines like
print control, etc.
6) Close files using the section.
7) Issues a stop run statement.
Other Sections
Sections invogued by the mainline section to the perform
statements are coded in the following matter:
1) The first paragraph the section controls through the
perform statement the processing of the whole
section. It therefore does the following:
a) opens all files to be processed in the section.
b) performs initial read of the input files.
PAGE 52
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
c) performs a paragraph that processes the files

until all records have been processed.
d) closes all files processed in thesection.
e) exit section.
Paragraphs
Paragraphs that fall under the section are coded as they
are needed. Each one should only do one function so as
to keep it as simple and as easy to read as possible.
If the paragraph you are currently coding does too many
different functions than you should break it up into
several paragraphs. Seperate all paragraphs from each
other. In front of section headers, space and a line
seperator between them.
Prefixes for Procedure Names
In much the same manner that the prefixes for data names
make it easier to pinpoint their location in the program
listing section and paragraph name should also have
prefixes. This task just is to have the prefix
consisting of a letter followed by 3 digit number
followed by hyphen. You can easily use the letter C for
the first section, F for the second, J for the third,
etc. However you prefer to do it. And have enough
letters in between for future modifications. The digits
start with 000 for the section header and incremented by
20 for the paragraphs. This should give you enough
numbers for the paragraphs in the section. Otherwise
makes succeeding paragraphs have 4 digit numbers in the
prefix.
Self Documented Procedure Names

Just like data names it is important that the procedures
names be self documenting. You are allowed 30
characters for this procedure names and this is
generally enough to allow the user to understand the
function of the procedure from the name. A paragraph
name like C200-COMPUTE-GLOSSARY-PAY is much better than
C200-COMPUTE.
PAGE 53
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
Statements and Sentences

The logic in the PROCEDURE DIVISION is coded with
statements each one being sentactically correct
combination of words and symbols thus specifies an
action to be done, ADD, MULTIPLY, MOVE, etc. or a
condition to be tested, IF. One or more statements that
terminates with a period is called a sentence. The
following are suggested in coding statements and
sentences:
1) there should only be one statement per line.
2) always start each sentence in column 12.
3) if the statement has to be continued in another line
indent the continuation line relative to the start of
the sentence.
4) if a statement is independent of other statements
make it into a sentence ending it with a period.
5) If a statement has several optional clauses code them
in succeeding lines instead of the same line so they
standout better. They should also be indented
relative to the start of the statement.
6) if you use IFs if subordinate to other IFs than aline
the Ls to the corresponding IF for readability.
PAGE 54
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
CHAPTER 9
Screen Processing Format Accept 3
Introduction
One feature of personal computers is of any display unit
which is extensively used to accept data entered by or
displayed for the operator. Unlike typical COBOL
programs written for mainframes where the datas are
generally batched together by the data entry department
unless a teleprocessing package like CICS is used the
ANSI-STANDARD COBOL 6.50 allows use of format it's
grades for easily input and output of information. Much
like an online system the operator may enter data via
the keyboard and this maybe immediately used by the
program to add update retrieve for delete records and
files. We will deal here with the screen processing
based on the format 3 version of the accept verb. This
allows the processing of individual fields as they are
entered in the keyboard. Format 4 processing which is
actually simpler to code will be discussed later on.
PAGE 55
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
Screen Format
We will deal only with the IBM Monochrome Display Unit
which is 24 by 80 columns for information. While there
is a total of 1980 characters that maybe entered the
program generally uses only a portion of this capacity
in applications.
Screen Header or Title

A typical screen used will have 3 areas defined. The
top one are 2 lines will be the header or title and has
literal value that will be indicated to the operator
what he or she is using. Typically headers would be
"ACCOUNTS RECEIVABLE ENTRY or PAYROLL ENTRY", something to
tell the operator what he is looking at. The header must
naturally be self defining and is usually defined with
the highlight oprand so it can be easily read.
Application Data Area
The main portion of the screen is where the application
data which contains the information entered by the
operator which comes from files. This consists of 2
types of data. One is field identifiers which are used
to identify the fields on the screen. This has literal
value that will indicate to the operator what he or she
is looking at. The field identifier is generally coded
just above the data it defines or to it's left in which
case it generally ends with a semicolon. Some typical
field identifiers have values like "NAME:" to identify
the name field, "DEPT:" for a department number. This
field is generally specified with the HIGHLIGHT operand
so it can be easily seen on the screen. The data itself
is the information that is important to the operator and
is usually defined with the REVERSE-VIDEO operand so it
is easily differentiated from its field identifier.
Some programmers may prefer to define this with the
HIGHLIGHT operand instead of the REVERSE-VIDEO operand.
In this case, make sure that the identifier does no have
the HIGHLIGHT operand so the two can be differentiated.
THE OPERATOR MESSAGE AREA
The operator message area is generally coded at the
bottom of the screen and contains the literal that is
displayed for the operator. If this message corresponds
to an error, the programmer should define the field with
both the HIGHLIGHT and BLINK operands so it is easily
seen by the operator. If this message guides the
operator, then it should be defined with either REVERSE-
VIDEO (prefered) or HIGHLIGHT operand.
PAGE 56
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
THE SCREEN SECTION.

While the programmer is able to display or accept
information on the screen without formatting, this has
limited capabilities because only the formatted screen
as defined in the SCREEN SECTION of the DATA DIVISION
will allow the programmer to use aids such as HIGHLIGHT,
REVERSE-VIDEO, FOREGROUND-COLOR, ect. This is almost
mandatory for typical applications since they require
the entry of several different types of data where a
formatted screen is needed. The following is
'suggested' rules for coding the SCREEN SECTION:
1). The whole screen corresponds to a 01-level screen-name.
2). The fields on the screen are defined with level
02 to 49 just like those in the WORKING-STORAGE
SECTION.
3). Each elementary item is defined as follows:
a. The level number is specified in the same
manner as in the WORKING-STORAGE SECTION.
b. Screen-name is defined if we use the group
or elementary item in ACCEPT and DISPLAY
statements in the PROCEDURE DIVISION.
Therefore, data fields and operator messages
have their corresponding screen-names.
Headers and field identifiers do not
normally need screen-names.
c. BLANK SCREEN. Is always coded by itself as
the first entry after the 01-level entry.
This erases the previous screen before a new
screen is displayed.
d. All elementary items must have the LINE
NUMBER and COLUMN NUMBER operands. This
specifies the exact location on the screen
that the data-item will start.
e. The REVERSE-VIDEO operand is used for data
fields, and is the logical choice for non-
error initiated operator messages.
f. The HIGHLIGHT opernad is used for the screen
headers. It is the logical choice for field
identifiers if the data fields are defined
with the REVERSE-VIDEO operand. It is also
the second choice for operator messages that
are not error-initiated. The HIGHLIGHT and
BLINK operands together is the logical
choice for operator messages that are
displayed on errors.
g. The BLINK operand, as noted before, is used
in conjunction with the HIGHLIGHT operand
for error-initiated operator messages.
i. The FOREGROUND-COLOR operand sets the
foreground color, it should be coded on a
line by itself. It must have an integer or
integer constant to specify the color
choice.
0 - BLACK
PAGE 57
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
1 - LOW-LEVEL BLUE
2 - LOW-LEVEL GREEN
3 - LOW-LEVEL LIGHT BLUE
4 - LOW-LEVEL RED
5 - LOW-LEVEL MAGENTA
6 - LOW-LEVEL BROWN
7 - LOW-LEVEL WHITE
8 - LOW-LEVEL GRAY
9 - HIGH-LEVEL BLUE
10 - HIGH-LEVEL GREEN
11 - HIGH-LEVEL LIGHT BLUE
12 - HIGH-LEVEL RED
13 - HIGH-LEVEL MAGENTA
14 - HIGH-LEVEL YELLOW
15 - HIGH-LEVEL WHITE
j. The BACKGROUND-COLOR operand is coded as the
FOREGROUND-COLOR operand with the exception
of only the 0 - 9 colors.
k. The "VALUE IS literal" operand is used for
headers and field identifiers or any field
that must contain an initial value when the
screen is displayed. Data fields generally
do not have this operand because the data
will be what is entered by the operator.
l. The "PIC IS picture string" operand is used
for data fields, the "FROM", "TO", and
"USING" operands in certain combinations.
m. For most applications, the "USING
identifier" is the most useful. This means
that the data item will receive the data
entered be the operator via the ACCEPT verb
and will also be the source of the data on
the DISPLAY verb.
n. The "FROM indentifier" operand will contain
data to be displayed on the screen through a
MOVE instruction. This operand functions
only in the DISPLAY mode.
o. The "TO indentifier" operand is used for
data entry fields. This operand functions
only with the ACCEPT verb.
THE DISPLAY VERB
In chapters 3 and 4, I explained the use of the DISPLAY
verb. I will now give a more detailed explanation,
especially on the aspect of the verb that displays data
on the formatted screens. the format is:
DISPLAY screen-name
Screen-name is the same as that defined in the SCREEN
SECTION. The location on the display where the data
items will show is defined in the LINE and COLUMN
operands of that item. If you wish you can write to the
screen location by using the DISPLAY verb. The format
is:
PAGE 58
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
DISPLAY ( ROW, COLUMN )

THE ACCEPT FORMAT 3
The format 3 version is:
ACCEPT ( position-spec ) identifier WITH AUTO-SKIP
1). Position-spec has the same value as in the DISPLAY verb.
2). Identifier is the field that will receive data.
3). The "WITH AUTO-SKIP" is useful for fixed-length
input fields. The input will automatically end
without the operator having to press the enter key,
when the length is reached, as defined by the PIC
operand.
4). The ACCEPT ends, which means we go to the next
following statement, if:
a. A terminator key is hit. These are ENTER, TAB,
BACK-TAB(shift + tab), ESCAPE, and the Function
Keys.
b. AUTO-SKIP is specified and the operator entered
a character in the low-order(rightmost) data
input position.
--------------------
PROG901 COB 13:38:54 03-Sep-90 PAGE 1
Line Number Source Line ANSI 74-85 Standard Cobol V.6.50(c)1990.
2 *
4 * *
5 ***************************************************************
6 * *
7 * 1. DATE-WRITTEN. 08/03/90. *
8 * *
9 * 2. THIS PROGRAM ACCEPTS ENTRIES FROM THE CONSOLE DISPLAY *
10 * AND DISPLAYS THEM ON THE PRINTER. THE FIELDS ARE: *
11 * A) FIELD 1 - NAME *
12 * B) FIELD 2 - ADDRESS *
13 * C) FIELD 3 - CITY/STATE *
14 * *
15 ***************************************************************
16 *
17 *
19 *
21 *
22 SPECIAL-NAMES.
23 *
PAGE 59
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
25 *
26 *
27 DATA DIVISION.
28 *
29 ***************************************************************
30 * *
32 * *
33 ***************************************************************
34 *
35 * USES OF W005-KEYBOARD-KEY-SWITCH
36 * ] . F9 KEY -- END OF JOB.
37 *
38 01 W005-KEYBOARD-KEY-SWITCH PIC 99.
39 88 W005-F9-KEY-ACTIVATED VALUE 10.
40 *
41 01 W005-RECORD-ACCEPTED-COUNT PIC 9(4) VALUE +0.
42 *
43 01 W010-EMPLOYEE-WK-RECORD.
44 05 W010-EMPLOYEE-WK-NAME PIC X(30).
45 05 W010-EMPLOYEE-WK-STREET PIC X(25).
46 05 W010-EMPLOYEE-WK-CITY PIC X(25).
PROG901 COB 13:38:54 03-Sep-90 PAGE 2
47 /
48 ***************************************************************
49 * *
50 SCREEN SECTION.
51 * *
52 ***************************************************************
53 *
54 *
55 01 SCREEN1-ADDRESS-ENTRY.
56 05 BLANK SCREEN.
57 05 LINE 1 COLUMN 16 VALUE "E M P L O Y E E"
58 HIGHLIGHT.
59 05 LINE 1 COLUMN 35 VALUE "A D D R E S S"
60 HIGHLIGHT.
61 05 LINE 1 COLUMN 52 VALUE "E N T R Y"
62 HIGHLIGHT.
63 05 LINE 3 COLUMN 24 HIGHLIGHT
64 VALUE "NAME:".
65 05 SCREEN1-NAME LINE 3 COLUMN 30
66 PIC X(30)
67 REVERSE-VIDEO
68 USING W010-EMPLOYEE-WK-NAME.
70 VALUE "STREET:".
71 05 SCREEN1-STREET LINE 5 COLUMN 30
72 PIC X(25)
73 REVERSE-VIDEO
74 USING W010-EMPLOYEE-WK-STREET.
PAGE 60
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
76 VALUE "CITY/STATE:".
77 05 SCREEN1-CITY LINE 7 COLUMN 30
78 PIC X(25)
79 REVERSE-VIDEO
80 USING W010-EMPLOYEE-WK-CITY.
PROG901 COB 13:38:54 03-Sep-90 PAGE 3
81 /
83 *
84 ***************************************************************
85 * *
86 C000-MAIN-LINE SECTION.
87 * *
88 ***************************************************************
89 *
90 C020-MAIN-LINE-LOGIC.
91 MOVE 98 TO W005-KEYBOARD-KEY-SWITCH.
92 PERFORM C120-DISPLAY-NEW-SCREEN.
93 PERFORM C040-PROCESS-NAME-ENTRY
94 THRU C100-PROCESS-SCREEN-EXIT
95 UNTIL W005-F9-KEY-ACTIVATED.
96 PERFORM C980-EOJ-ROUTINE.
97 STOP RUN.
98 *
99 C040-PROCESS-NAME-ENTRY.
100 ACCEPT ( 3, 30 )
101 W010-EMPLOYEE-WK-NAME.
102 ACCEPT W005-KEYBOARD-KEY-SWITCH FROM ESCAPE KEY.
103 IF W005-F9-KEY-ACTIVATED
104 GO TO C100-PROCESS-SCREEN-EXIT.
105 *
106 C060-PROCESS-STREET-ENTRY.
107 ACCEPT ( 5, 30 )
108 W010-EMPLOYEE-WK-STREET.
112 *
113 C080-PROCESS-CITY-ENTRY.
114 ACCEPT ( 7, 30 )
115 W010-EMPLOYEE-WK-CITY.
119 EXHIBIT NAMED W010-EMPLOYEE-WK-NAME UPON PRINTER-DISPLAY.
120 EXHIBIT NAMED W010-EMPLOYEE-WK-STREET UPON PRINTER-DISPLAY.
121 EXHIBIT NAMED W010-EMPLOYEE-WK-CITY UPON PRINTER-DISPLAY.
122 ADD 1 TO W005-RECORD-ACCEPTED-COUNT.
123 PERFORM C120-DISPLAY-NEW-SCREEN.
124 C100-PROCESS-SCREEN-EXIT. EXIT.
125 *
126 C120-DISPLAY-NEW-SCREEN.
127 MOVE SPACES TO W010-EMPLOYEE-WK-NAME
PAGE 61
ANSI-COBOL 6.50
USERS MANUAL
COPYWRITE 1990
128 W010-EMPLOYEE-WK-STREET
129 W010-EMPLOYEE-WK-CITY.
130 DISPLAY SCREEN1-ADDRESS-ENTRY.
PROG901 COB 13:38:54 03-Sep-90 PAGE 4
131 /
132 C980-EOJ-ROUTINE.
133 IF W005-RECORD-ACCEPTED-COUNT GREATER THAN ZEROS
134 DISPLAY "JOB PROG901: SUCCESSFUL ENTRY COMPLETED"
135 UPON PRINTER-DISPLAY
136 ELSE DISPLAY "JOB PROG901: UNSUCCESSFUL ENTRY"
138 EXHIBIT NAMED W005-RECORD-ACCEPTED-COUNT
PAGE 62

COBOL650

Uploaded by

Copyright:

Available Formats

COBOL650

Uploaded by

Document Information

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

COBOL650

Uploaded by

Copyright:

Available Formats

.

TABLE OF CONTENTS PAGE 1

TABLE OF CONTENTS PAGE 2

CODING THE DATA DIVISION

Chapter 1: Hardware and Software

Chapter 3: ANSI-COBOL Version 6.50

The program logic is in the PROCEDURE DIVISION. At the

COBOL Character Set

Characters Used in Arithmetic

RESERVED WORDS LIST

ACCEPT BLANK CONFIGURATION DYNAMIC

RESERVE SIGN TO ZEROES

Non-reserved words are coded according to these rules:

Group Data Item

The COBOL Coding Form

1) Columns 1-6 were originally used to enter line

BASIC COBOL STATEMENTS

ACCEPT statement (format 2)

PROG401 COB 12:00:14 02-Sep-90 PAGE

The PRINTER DISPLAY STATEMENT

PROGRAM LISTING 4.2

THE MOVE STATEMENT

PROGRAM LISTING 4.4

THE ADD STATEMENT

PROGRAM LISTING 4.6

PROGRAM LIST 4.8

PROGRAM LIST 4.10

THE DIVIDE STATEMENT

PROGRAM LIST 4.12

PROG412 COB 13:25:31 02-Sep-90 PAGE 1

36 01 W005-DIVIDEND PIC 99 VALUE 12.

PROGRAM LISTING 4.14

is 1 if not rounded, and 2 if rounded. Since the

PROG416 COB 14:01:37 02-Sep-90 PAGE 2

PROGRAM LISTING 4.20

PROGRAM LISTING 4.22

PROGRAM LISTING 4.24

THE COMPUTE STATEMENT

36 COMPUTE W005-GROSS-PAY ROUNDED =

Data used in COBOL programs (except for low-volume data

THE OPEN STATEMENT

The following rules apply:

THE READ STATEMENT

THE WRITE STATEMENT (PRINT FILE)

PROGRAM LISTING 5.01

CODING THE IDENTIFICATION AND ENVIRONMENT DIVISIONS

THE IDENTIFICATION DIVISION

The following rules apply:

Data Item Definition

used for digits and V for the assumed position of

CODING THE PROCEDURE DIVISION

otherwise we have it endlessly.

c) performs a paragraph that processes the files

Self Documented Procedure Names

Statements and Sentences

Screen Header or Title

THE SCREEN SECTION.

DISPLAY ( ROW, COLUMN )

You might also like