Category: Mainframes

CICS Tutorial

CICS Tutorial part-1 CICS is a transaction procession system owned by IBM and runs under Z/OS operating system. CICS stands for Customer Information Control System which works as a front end for the business applications written in COBOL, PL/1, C, C++, Assembler, PHP and JAVA but most of the applications which CICS supports are written

COBOL Renames Clause with Examples

COBOL Renames clause is used to regroup the elementary data items and gives them an alternative name. This is a logical grouping of the elementary data items which are defined in a sequential order.It is useful for renaming by overlapping elementary elements.66 Level number is used for defining it. ex: 01 WW-VAR1. 05 WW-V1 PIC

DB2 Table Space Types and its usage

Table Space concept in DB2: Table space is a database object where actually the table data gets stored. It is a like child of the database, where there can be multiple table spaces within a database. Each table space contains the ‘containers’. There can be one or more containers per table space. Containers can be

COBOL Arrays or Tables

Single dimensional arrays: Arrays are data structures that are used to simplify coding and improve processing efficiency. The primary uses of arrays are to define:  a series of similarly formatted input or output record fields in the FILE SECTION  a group of accumulators in WORKING-STORAGE for different categories of totals  a table in WORKING-STORAGE that


STRING AND UNSTRING with examples: TALLYING and COUNT options String is used to combine two or more strings/variables in to a single string. Examples: 01 name-in. 05 first-name pic x(10) value 'Mahender ' 05 Last name pic x(10) value 'Reddy ' 05 initial pic x(2) value 'G ' If you display the ‘name-in’ it shows

ESCAPE clause in SQL DB2

ESCAPE in DB2 Mainframes: In SQL the percent sign(%) and the under score(_) has special meaning. %’ – represents any set of characters _ – under score represents any single character. Ex: select * from emp where email like 'reddy_%'; This will display all the email ids starting with reddy like reddy123,reddy_34 etc. But here

Debug Tool Commands – Mainframes

IBM Debug Tool Commands for mainframes a Quick reference F2           – Line by Line Execution F9           – break point to break point execution F10          – Debug in full screen mode Setting Break Point-> – Place the cursor on the line where the break point

CICS Scrolling logic with examples

CICS scrolling logic looks very simple in algorithm representation but implementing it practically so many questions arises. This topic is to clear all the queries related to CICS scrolling (page Up / Down) logic with suitable examples. Let me give few basic points before getting into detailed implementation logic. Decide the number of rows(MAX-SCRN-SIZE) to

Online expediter commands – CICS

Below are the few online expeditor useful commands for basic debugging of a program. Expeditor Quick Reference → xpediter keep window size –  To increase or decrease the keep window size SET KEEP <n>                             n can be any number from 3

MDT and its usage in CICS with examples

Modified data Tag (MDT) is the most important feature in CICS programming consisting of MAPS. One who involves in CICS programming needs to know the importance of it for efficient coding. It is stored in 7th bit of a attribute byte of a screen field with either ‘0’(OFF) or ‘1’ (ON) as the values.(Every input