Author Archive

IEBGENER INVALID SPACE ALLOCATION ERROR

INVALID SPACE ALLOCATION – This error really confuses the developer as we thinks that it as the space allocation issue in the JCL but actually it is not. This occurs when the MAXLITS field value specified in the SYSIN DD * has the wrong number. It should have a value greater than or Equal to

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

Index Optimization Tips in DB2

Indexes are the data base objects which are stored physically on Disk, it contains the address of the actual data stored in tables that helps to retrieve the data quickly from the database. This can be considered as the ordered set of pointers which points to the data in actual table. These are created on

Reference Modification With OF

COBOL Reference Modification With OF Syntax to use reference modification for a filed, which exists in multiple groups. Ex: [crayon-5ba29ef7c40ae328632096/] name1 exists in both groups. So if we want to use reference modification for ww-grp1 [crayon-5ba29ef7c40b5667585638/] [crayon-5ba29ef7c40b8740250449/] 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

Useful list of TSO/ISPF Commands

1) To view the structure (details like starting position, end position, length and type of fields) of a copybook – This can be viewed from FILEAID option 8. 2) To Copy a member from one PDS to Another: Open the first PDS using 3.4, and type C before the member and ENTER it will ask

COBOL Line numbers – Quick Ref-1

How to remove the line numbers in 1 to 6 columns in TSO/ISPF i) First set the Bands – type BNDS on line-number of the editor panel Generally the default bands are set from 1 to 72 columns as shown below and this can be changed as per our requirement. This can also be used

Modifying a MAP using SDF II in CICS

CICS MAP – adding a new field Step by step Procedure using SDF II: [crayon-5ba29ef7c4e78518920417/] Step 1: Import the MAP from the production or any other region: From Utilities, Enter into Migrate functionality which is used to import Objects from other region into test region. It is very iseful for the MAP modifications as the
Bitnami