Cobol Archive

Initialization in Cobol

Initialization in COBOL is used to set the declared variable values to an initial value. It sets the Alphanumeric type(alphabetic, alphanumeric, alphanumeric-edited, DBCS, national, or national-edited) field values to Spaces and Numeric type(numeric or numeric-edited) field values to Zeroes. It is equivalent of moving eirther zeroes are spaces to the variables according to their data

Reference Modification With OF

COBOL Reference Modification With OF Syntax to use reference modification for a filed, which exists in multiple groups. Ex: [crayon-5c1554a7755bc378918170/] name1 exists in both groups. So if we want to use reference modification for ww-grp1 [crayon-5c1554a7755c4634786684/] [crayon-5c1554a7755c7950256130/] Above one will not work as it is not correct syntactically. Basic details of Ref. Modification: This is

Difference Between LINK/XCTL and COBOL Calls

Difference Between LINK XCTL and COBOL Calls(Static & Dynamic) 1. LINK –> Every time a subprogram is invoked an initialized version of working storage is provided. Dynamic& Static –> Not every time a separate copy of working storage is provided. It is provided only for the first time invocation of sub-program and for the subsequent

COBOL RANDOM Function Examples

COBOL RANDOM Function generates the random fractional values ranging from 0 to 1. It generates values like 0.xxx For example if we declared the variable as below 01 WW-RANDOM-NUMBERS PIC 99.999 VALUE ZEROES. PERFORM VARYING WW-SUB1 FROM 1 BY 1 UNTIL WW-SUB1 > 9 COMPUTE WW-RANDOM-NUMBERS = FUNCTION RANDOM DISPLAY ‘–>’WW-RANDOM-NUMBERS END-PERFORM Result: –>00.443 –>00.060

COBOL INSPECT VERB USAGE & SYNTAX WITH EXAMPLES

INSPECT verb in COBOL is very useful and it is used to do the following functionalities  Count a particular Character in a string  Convert Lower case to upper case  Replace a particular Character with other character in a string  Replace a set of characters with another set of characters Below are the different examples on

COBOL DB2 Multi Row Fetch

Multi row Fetch Overview in COBOl Db2 program WITH EXAMPLE: Cobol Db2 multi row fetch concept will be used to retrieve multiple rows with a single fetch statement as opposed with a normal cursor which fetches only single record at a time. The multi-row fetch capability was introduced to DB2 z/OS in Version 8. This

COBOL Index & Subscript

Index & Subscript – performance considerations Both are used to reference an array or table element in COBOL programs. By knowing the basic differences between the two, one can code the programs efficiently in performance point of view. 1. Index –> Represents the displacement of a table entry from its begining which is being set

COBOL Perform Types and Usage with examples

Perform Verb in COBOL is used to execute a set of COBOL statements. There exists different types of performs based on the way that is being used. It is vital in keeping a cobol program structured by making it possible to call different paragraphs or sections from another paragraph or section. Following are some of

Cobol DB2 Program execution and Coding requirements

Unlike a normal COBOL program COBOL DB2 program has some special requirements to be considered while coding and execution. For ex: In the coding it is required to include the SQLCA and the program needs to be executed via Terminal monitor Program etc. COBOL DB2 Coding Part: 1. Do the coding as per the requirement,

Cobol-DB2 Cursor Overview

Db2-Cursor: Cursors in the application program are used to retrieve the multiple rows and process them one by one . Generally by using a singleton select statement in the application program, it is possible to retrieve only one row at a time as the host variable structure allows keeping one value at a time. Ex:
Bitnami