Blog Posts - Cobol



COBOL Usage is Pointer data item

Another extension of the USAGE clause is to define data items that contain addresses of data or procedures. These are POINTER items: POINTER A four-byte data item that holds the address of another data item. PROCEDURE-POINTER A four- or eight-byte da...

2 Top features of IBM DB2 CHECK DATA utility

The CHECK DATA option checks the violation of the referential integrity rules between two tables. It also checks whether data values conform to the data validation constraints applied to the table space that is specified with the utility command. For...

5 Essential features of COBOL REDEFINES phrase

In COBOL REDEFINES is one of the frequently being used phrase. It has many advantages if you use it pproperly. REDEFINES is possible at two levels: At group level  (01 level) At field level The REDEFINES clause allows you to define the same data fie...

ISPF basic editor commands for Software developers

COMMAND FUNCTION <  Data shift left Shifts a single line of program source code to the left without affecting the program labels or comment i.e. Data from column one to the first blank and data following several blanks are not moved. May be spec...

Mainframe COBOL Debugging mode ‘D’ in 7th Column

To get Display for each PARA instead of using 2-3 lines code we can do it by single line code. If you are writing a new code then it will be useful to use this tip. *SOURCE-COMPUTER.  IBM-370.   SOURCE COMPUTER IBM370.  WITH DEBUGGING MODE. And gi...

Mainframe tip to cut first 10 lines, last 10 lines from 10000 lines dataset

I have a dataset with 10,000 lines. I want to cut the first 10 lines and last 10 lines and paste into another dataset. When I cut the first 10 lines and then again the last 10 lines, only the last 10 lines are pasted into the new dataset. Is there an...

COBOL Different Error Handling Phrases

AT END NOT AT END END-OF-PAGE NOT END-OF-PAGE INVALID KEY NOT INVALID KEY NO DATA WITH DATA ON EXCEPTION NOT ON EXCEPTION ON OVERFLOW NOT ON OVERFLOW ON SIZE ERROR NOT ON SIZE ERROR Filed under: COBOL, Mainframe Tagged: cobol, COBOL Different Error H...

DB2- AVG Column function – Best example

The AVG function computes the average of the values for the column or expression specified as an argument. We should not give AVG function on CHAR arguments. This function operates only on numeric arguments. The following example calculates the avera...

5 Top ideas on JCL Checkpoint and Restart (1 of 2)

RD in JCL exec statement: There are two methods of restarting a job: restarting from a step (step restart) and restarting from a checkpoint (checkpoint restart). Step restart is simpler and doesn’t require the system to take a checkpoint. You s...

Calling Stored Procedure in DB2- best example

What is the role of stored procedure in DB2 Workloads in a client/server environment can be moved from the client to the sever by creating one or more stored procedures. Once a stored procedure has been created and registered with a database (by exec...

Mainframe: DB2 Tutorial For Software Developers (5 of 5)

Read my Part-4 post on DB2 tutorial. Indexes: What is an Index ? ‘An index is an ordered set of pointers to rows of a base table’. Or ‘An Index is a balanced B-tree structure that orders the values of columns in a table’ Why an Index ? One...

All about Mainframe DB2 VARCHAR Field

VARCHAR(n): Varying-length character strings with a maximum length of n bytes. n must be greater than 0 and less than a number that depends on the page size of the table space. The maximum length is 32704. Handling additional data in VARCHAR fileds...

Mainframe JCL- DD Statements for Tape data sets

DD statement parameters that you can use for tape data sets. Here, the only parameters that are new are the RETPD, EXPDT, and LABEL parameters. RETPD and EXPDT let you set a time limit for how long a data set should be kept, and LABEL is the paramet...

DB2- Different SQL Queries for Creating Index (1 of 2)

Provide a fast, efficient method for locating specific rows of data in very large tables. (In some cases, all the information needed to resolve a query may be found in the index itself, in which case the actual table data does not have to be accessed...

Best ways to handle unrecoverable errors in CICS programs

Method-1 Best one method is to call error program, by passing error parameters. WORKING-STORAGE SECTION. * COPY ERRPARM. C 01 ERROR-PARAMETERS. C * C 05 ERR-RESP PIC S9(8) COMP. C 05 ERR-RESP2 PIC S9(8) COMP. C 05 ERR-TRNID PIC X(4). C 05 ERR-RSRCE P...

COBOL- Alternative Key vs Alternative Index

The concept of Index, Primary key and Alternative key and Alternative index creates many questions, much confusion in the mind of COBOL programmers. There are many simple and powerful solutions for Alternative Key and Alternative index files. Alterna...

Mainframe: DB2 Tutorial For Software Developers (4 of 5)

Read my previous post(3 of 5). Functions Types are two : Column Function Scalar Function Column Functions Compute from a group of rows aggregate value for a specified column(s) AVG, COUNT, MAX, MIN, SUM Scalar Functions Are applied to a column or exp...

Top Data virtualization Techniques for BI projects (1 of 5)

The term data virtualization is based on the word virtualization. Virtualization is not a new concept in the IT industry. Probably the first application of virtualization was in the 1960s when IBM used this concept to split mainframes into separate v...

Mainframe: MQSeries for Senior Software Developers(1 of 3)

These posts specially for mainframe programmers, they can use these tips for development as well as for maintenance projects. Integrate your mainframe applications to different distributed applications using MQseries. A message queue, known simply as...

Mainframe: 10 Powerful Points for COBOL and SQL programs

In Mainframe it is possible to run a SQL query without writing a COBOL program. By using, SPUFI, QMF and IBM Studio SQL query must begin with EXEC SQL and end with END-EXEC. Second, your SQL query usually uses COBOL host variables. Host variables in...


Trending Topics

Close