Uncategorized

How to calculated maximum space using primary and secondary units Before I start my question, let me provide an example     How much total space be allowed for  SPACE=(TRK,(10,5))  I read somewhere during my training that the total units can be calculated by using the following formula Total units(Trks/blks/cyl)= Primary + 15 * Secondary. SPACE=(TRK,(10,5)) […]

Splitting a file into equal number of records I have a file which contains a very huge number of records. The file is fed to a job and we are planning to split the file into 5 different files so that we can have parallel jobs process I need to split the file into equal

I was facing sql code -804 while executing a query from cobol db2 program.  The explanation for this sql code on ibm site was described as following   AN ERROR WAS FOUND IN THE APPLICATION PROGRAM INPUT PARAMETERS FOR THE SQL STATEMENT, REASON reason

There may be scenarios where you wish to check if a file is empty or not one example for such situation is you are sending a report to client if there are transactions processed and if the file is empty then you do not wish to send the  The following JCL using IDCAMS can be

Description of a DB2 Table The describe command does not work on mainframe DB2. Generally we use the following command on UDB database or database on oracle But this does not work with mainframe DB2. You can use the following command to get the description of columns in a table. The following query will list the description

How to fetch last n rows only in DB2? I Know there is a command in SQL to fetch first n rows only SELECT Employee_no, Salary FROM Employee-table The above query will fetch first 10 rows from Employee-table But if I have to fetch last 10 rows from a table, I tried using   “FETCH LAST

STRING DELIMITED ON OVERFLOW The following COBOL program depicts the use of  STRING DELIMITED ON OVERFLOW command        01 WS-STRING1    PIC X(5) VALUE SPACES.       ** ON OVERFLOW GIVES US THE OPTION TO SPECIFIY ACTION       ** WHEN TARGET STRING IS NOT LARGE ENOUGH TO CARRY THE STRING     

Verification of Consistency token in SYSPACKAGE, DBRMLIB and LOADLIB. When a Job abends at a program due to bind error with SQL code of -805 or -818 then generally there is issue with consistency token (often referred as CONTOKEN). These kind of abends can be easily fixed if we can find where the CONTOKEN mismatch occurs. STEP1:-

Changing the primary key on existing DB2 Table How to change the primary key on an existing DB2 Table? If you want to change the primary key of a table that already exists then you can use the following ALTER query ALTER TABLE Table_Name DROP PRIMARY KEY; ALTER TABLE Table_Name ADD PRIMARY KEY (Column_One, Column_Two);

fetch multiple rows without using CURSORS Is it possible to fetch multiple rows in a COBOL program without using CURSORS. I could find that we can fetch multiple rows using FETCH but then we still would need CURSORS. see the following article for details http://publib.boulder.ibm.com/infocenter/dzichelp/v2r2/index.jsp?topic=/com.ibm.db2.doc.relg/fmlt.htm Any thoughts?? “; ; ; ;