COBOL

*****************

High- Low-
Order Order
Digit Meaning Digit Meaning

0 Successful 0 No further information

completion 2
The input-output statement was successfully executed,
but a duplicate key was detected. For a READ statement
the key value for the current key of reference was equal
to the value of the same key in the next record within the
current key of reference. For a REWRITE or a WRITE
statement, the record was just written created a duplicate
key value for at least one alternate record key for which
duplicates are allowed.
4 A READ statement was successfully executed, but the
length of the record being processed did not conform to
the fixed file attributes for that file.
5 An OPEN statement is successfully executed but the
referenced optional file is not present at the time the
OPEN statement is executed. The open mode is I-O or
extend, the files has been created. This does not apply to
VSAM sequential files. File status 0 is returned.
7 For a CLOSE statement with the NO REWIND,
REEL/UNIT, or FOR REMOVAL phrase or for an
OPEN statement with the NO REWIND phrase, the
referenced file was on a non-reel/unit medium.
1 At End Condition 0 A sequential READ statement was attempted and no next
logical record existed in the file because the end of the
file had been reached, or the first READ was attempted
on an optional input file that was not present.

4 A sequential READ statement was attempted for a

relative file and the number of significant digits in the
relative record number was larger than the size of the
relative key data item described for the file.

2 Invalid Key 0 No further information.

 Condition 1 A sequence error exists for a sequentially accessed
indexed file. The prime record key value has been
changed by the program between the successful
execution of a READ statement and the execution of the
next REWRITE statement for that file, or the ascending
requirement for successive record key values were
violated.
2
An attempt was made to write a record that would create
a duplicate key in a relative file or an attempt was made
to write or rewrite a record that would create a duplicate
prime record key or a duplicate alternate record key
without the DUPLICATES phrase in an indexed file.
This key value applies to an indexed file in which the
alternate key has been declared ‘UNIQUE.’
3
An attempt was made to randomly access a record that
does not exist in the file, or a START or random READ
statement was attempted on an optional input file that
was not present.
4
An attempt was made to write beyond the externally
defined boundaries of a relative or indexed file. Or, a
sequential WRITE statement was attempted for a relative
file and the number of significant digits in the relative
record number was larger than the size of the relative
key data item described for the file.
3 Permanent Error 0 No further information
Condition 4 A permanent error exists because of a boundary
violation; an attempt was made to write beyond the
externally-defined boundaries of a sequential file.
An OPEN statement with the INPUT, I-O or EXTEND
5 phrase was attempted on a non-optional file that was not
present.
An OPEN statement was attempted on a file that would
7 not supported the open mode specified in the OPEN
statement. Possible violations are: 1) The EXTEND or
OUTPUT phrase was specified but the file would not
support write operations; 2) The I-O phrase was
specified but the file would not support the input and
output operations permitted; 3) The
INPUT phrase was specified but the file would not
support read operations.
An OPEN statement was attempted on a file previously
closed with lock.
The OPEN statement was unsuccessful because a
 8 conflict was detected between the fixed file attributes
and the attributes specified for that file in the program.
9 These attributes include the organization of the file
(sequential, relative, or indexed), the prime record key,
the code set, the maximum record size, the record type
(fixed or variable), and the blocking factor.

4 Logic Error 1 An OPEN statement was attempted for a file in the open
Condition mode.
2 A CLOSE statement was attempted for a file not in the
open mode.
3 For a mass storage file in the sequential access mode, the
last input-output statement executed for the associated
file prior to the execution of a REWRITE statement was
not a successfully executed for the associated file prior
to the execution of a REWRITE statement was not a
successfully executed READ statement.
For relative and indexed files in the sequential access
mode, the last input-output statement executed for the
file prior to the execution of a DELETE or REWRITE
statement was not a successfully executed READ
statement.
A boundary violation exists because an attempt was
4 made to rewrite a record to file and the record was not
the same size as the record being replaced, or an attempt
was made to write or rewrite a record that was larger
than the largest or smaller than the smallest record
allowed by the RECORD IS VARYING clause of the
associated file-name.
A sequential READ statement was attempted on a file
open in the input or I-O more and no validation next
6 record had been established because: 1) The preceding
READ statement was unsuccessful but did not cause an
at end condition; 2) The preceding statement caused an
at end condition.
The execution of a READ statement was attempted on a
file not open in the input or I-O mode.
The execution of a WRITE statement was attempted on a
7 file not open in the I-O , output, or extend mode.
The execution of a DELETE or REWIRTE statement
was attempted on a file not open in the I-O mode.
8
9

9 Other Errors 0 No further information.

1 For VSAM only: Password failure.
2 Logic Error
3 For VSAM only: Resource not available.
4 For VSAM with CMPR2 compiler-option only: No file
position indicator for sequential request
5 For VSAM only: Invalid or incomplete file information
For VSAM only: No DD statement specified for this
6 file.
For VSAM only: OPEN statement execution successful;
7 file integrity verified

COBOL Functions
Calendar Functions

1.Current-Date -- Returns 21 bytes Timestamp IN

yyyymmddHHMMSShhh-HgMg
hh - Hundredth of Second
Hg - Hours ahead/Behind Greenwich meridian(0-12)
Mg - Minutes ahead/Behind Greenwich meridian(00-59)
2. When-Compiled -- Returns 21 bytes timestamp of compilation
3. Date-of-Integer -- Converts a 7 bytes integer into yyyymmdd
4. Integer-of-Date -- Reverse of previous Function
5. Day-of-Integer -- Converts a 7 bytes integer into yyddd
6. Integer-of-Day -- Reverse of previous Function

Numeric Analysis Function

1. Integer - Returns Rounded value of a float( 4 if 3.2)

2. Integer-Part - Returns integer portion (3 if 3.2)
3. Max - Returns maximum value of arguments
4. Min - Returns minimum value of arguments
5. Ordmax - Returns position of maximum value
6. Ordmin - Returns position of minimum value
7. Sum - Returns the sum of arguments
8. Sqrt - Returns the square root of the argument
9. Numval - Return pure numeric value after removing editing symbols
10. Numval-C - Like previous function for floating digits
11. Log - Returns Natural logarithm of a number
12. Log10 - Returns Log base 10
13. Variance - Returns Variance
14. Median - Returns middle no. from a list of Numbers
15. Midrange - Returns the average between lowest nah highest of
16. Mean - Returns the average of the list of arguments
17. Rem - Returns the reminder obtained when arg1 is divided by arg2
18. Mod - Returns the greatest integer value of the reminder
19. Range - Returns difference between the largest and smallest arg
20. Factorial
21. Random - Returns a random value
22. Standard-Deviation - Returns SD

Financial Function.

1. ANNUITY - To compute the value of an investment over a period of

 time that requires two arguments. Interest and Time
For e.g. COMPUTE INCOME = 5000 * FUNCTION
ANNUITY (0.01, 240) -will computes the value of 5000
after 20 years with 12% pa
2. Present-Value - Returns the present value of the future investment that also
requires two arguments interest and amount String
Functions

Trigonometric Functions

1. ACOS, 2. ASIN, 3. ATAN, 4. COS, 5. SIN, 6.TAN

Others
1. Upper -Case - Converts into Upper Case of given string
2. Lower -Case - Reverse of previous function
3. Length - Returns the length of the given string
4. Ord - Returns the ASCII value of a Character
5. Char - Returns the Character value of an ASCII value
6. Reverse - Reverses the given string