IEBEDIT Example- JCL to submit particular steps of another JCL You may get a scenario where you wish to submit/execute only particular steps of a jcl and exclude others. Although this can be handled by using COND parameter but this would require editing the original JCL to include COND parameter at each step and may […]
JCL to submit particular steps of another JCL using IEBEDIT Read More »
SORT JCL to SUM up values If you wish to sum up the values at a particular position sorted at some value then you can use the following sort card The following card will sum values (lets assume salaries) appearing at pos 7th (4 bytes) grouped/sorted on data (emp numbers) at 37th position of 10bytes.
SORT JCL to SUM up values Read More »
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);
Changing the primary key on existing DB2 Table Read More »
SORT JCL to append data in a record using INREC or OUTREC There may be instances when you wish to append some data at the end or between a record. The following SORT parm will come handy in such situations The following sort card will add char ‘LITERAL’ in the output file at 5th position.
SORT JCL to append data in a record using INREC or OUTREC Read More »
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?? “; ; ; ;
fetch multiple rows without using CURSORS Read More »
INSPECT REPLACING ALL SPACES BY LITERAL The following COBOL program depicts the use of INSPECT REPLACING ALL SPACES BY LITERAL     01 TEST-STRING  PIC X(50) VALUE SPACES.     01 WS-COUNTER   PIC 9(9)  VALUE ZEROES.     01 SEARCH-STRING PIC X(2)  VALUE SPACES.       Â
INSPECT REPLACING ALL SPACES BY LITERAL Read More »
How to Execute CLIST Â When we start learning CLIST, we learn few commands and are quite excited to test them. Most of the training and tutorials would educate you the methods of executing your CLISTs, but it happens so that these methods do not work on your installation. The following tutorial will list down
The following COBOL program depicts the use of     01 PARA-NUM PIC 9 VALUE ZEROS.        DISPLAY ‘PARA NAME IS  10000-FIRST-PARA’        DISPLAY ‘PARA NAME IS  20000-FIRST-PARA’.        DISPLAY ‘PARA NAME IS  25000-SECOND-PARA’.      Â
COBOL GO TO DEPENDING ON Read More »
Precompile compile and link edit jcl for cobol db2 program The following JCL can be used for compilng and link editing a COBOL DB2 program. This JCL has mainly three steps The PRE COMPILATION Step executes the utility DSNHPC and uses the COBOL DB2 program present in source library and copy library for DCLGEN’s  as input
precompile compile and link edit jcl for cobol db2 program Read More »
SORT JCL to filter data using INREC or OUTREC INREC can be used to filter or reformat the input data so that the sorting is more efficient. In the following sort card the inrec statement will take the data from 7th pos (3 bytes) and put at positions 1st(3bytes) in the  output file and
SORT JCL to filter data using INREC or OUTREC Read More »
