Declare numeric field with More than 18 Digits in Cobol

Have you ever wondered about the 18digits maximum limit of Numerical variable declaration (PIC 9(18) ) in Cobol? Well you can override it in Enterprise Cool, or in other words if Language environment (a.k.a LE) is available at your shop. The Language environment is introduced back in 2000 by IBM, which is a common application […]

Programming a CICS-DPL-COBOL application & setting up the region.

DPL (Distributed Program Link) enables a Local CICS program to issue a EXEC CICS LINK to a program in the remote CICS region which return control to the calling program. DPL provides the below advantages for a CICS application. It allows a non OS390/zOS application to use DL/I, SQL, BDAM and VSAM files owned by […]

DSNTIAR & DSNTIAC–SQLCA formatter for Batch & CICS

We must check for the SQLCODE before we issue commit on a table in DB2, handle the errors- Display description or whatever. handling/remembering reason for each and every sqlcode every time is a time pressing task always. There is DSNTIAR and DSNTIAC comes in picture. DSNTIAR and DSNTIAC are two assembler routine which helps to […]

CURSORS in DB2

When we are using the DB2 in our applications we can only have one row of data at a time. So what we will do if we don’t know which row exactly we need?, what if we have more than 1 row to work with? well the answer is “CURSORS”. Cursor is used when more […]

SORTING A TABLE in COBOL

Hi folks, I could see the folds on you forehead. I can understand what you are thinking while reading the heading “Sorting table! its not required because we have sort utilities to do this”. But trust me there can be situations in CICS-COBOL program. Few days back one of my friend contacted me to get […]

String and Unstring

Today we are are gonna discuss the String and Unstring statements of Cobol. These statements are used for concatenate or parse a string/or characters. These statements are utilizing Identification division to get the desired results. these statements will remove the multiple instances of delimiter character.All the embedded spaces will be treated as a single space. […]

Line Sequential File support in Enterprise Cobol.

  IBM has added the support for the input and output of line sequential files to Enterprise COBOL. This allows a Cobol program running in mvs to use data stored in zOS/ Unix/HFS file (HFS – Hierarchical File System, is the is the system used to support z/OS UNIX) Line sequential Files contain only characters(DISPLAY) […]