Skip to Content

Custom Search

COBOL EXAMPLES

COBOL EXAMPLES

This section of the website hosts COBOL example programs illustrating the use of various COBOL CLAUSE, COBOL KEYWORDS, COBOL VERBS etc.

Please keep coming to this page for more such examples.

Free COBOL Compilers

Smallest Program

REDEFINE CLAUSE

ACCEPT and DISPLAY

Initialize a filler in cobol

COBOL Allowed Moves

COBOL PERFORM PARA

EVALUATE ARITHMETIC EXPRESSION

EVALUATE CONDITIONAL EXPRESSION

EVALUATE IDENTIFIER

EVALUATE LITERAL

EVALUATE TRUE ALSO TRUE

; ; ; ;

GO TO DEPENDING ON

INSPECT REPLACING ALL SPACES BY LITERAL

INSPECT REPLACING CHARACTERS BY LITERAL BEFORE INITIAL LITERAL

INSPECT REPLACING LEADING SAPCES BY LITERAL

INSPECT TALLYING FOR ALL IDENTIFIER

INSPECT TALLYING FOR ALL LITERAL

INSPECT TALLYING FOR ALL SPACES

INSPECT TALLYING FOR CHARACTER

INSPECT TALLYING FOR CHARACTER AFTER INITIAL SPACES

INSPECT TALLYING FOR CHARACTER BEFORE INITIAL SPACES

INSPECT TALLYING FOR LEADING SPACES

INSPECT TALLYING FOR LEADING ZEROES

JUST RIGHT CLAUSE

PERFORM VARYING UNTIL

PERFORM WITH TEST BEFORE

PERFORM WITH TEST AFTER

STRING DELIMITED BY IDENTIFIER

STRING DELIMITED BY LITERAL

STRING DELIMITED BY SIZE

STRING DELIMITED ON OVERFLOW

STRING DELIMITED WITH POINTER

UNSTRING DELIMITED BY IDENTIFIER

UNSTRING DELIMITED BY LITERAL

UNSTRING DELIMITED ON OVERFLOW

UNSTRING DELIMITED WITH POINTER OPTION

Comments

Post new comment

Navigation

Click the +1 button below to share it with your friends and colleagues

Share this if you liked it!

ASK A QUESTION ON FORUM

Jan-10

IBM DB2 Certification

Feb-10

re catalog uncatalogued datasets

open cursor takes long time

change data in half file

Jul-10

Basic ISREDIT Commands

Aug-10

mainframewizard.com

Basic SDSF Commands

Basic HSM commands

Personal Job Scheduler

Consolidated Report on Production Cycle:

How to Execute CLIST

Basic ISPF commands

Block comment Uncomment COBOL Statements:

Comment-Uncomment JCL

Delete datasets catalogued in JCL:

Disabling Edit-View Entry Panel

Job to Extract Abend info from SAR

Change Member stats

Arrays in CLIST

User Interface on Mainframe

Batch Job to Run CLIST-REXX

Passing parms argument between CLIST and Macro

Basic TSO commands

CALLING REXX FROM CLIST

CLIST to read a line

CLIST REXX Tips

ISREDIT Macro Picture Strings

REXX to extract member names in PDS

ISREDIT Macro Errors

Basic CLIST Commands

Basics of Mainframe

Time Stats of Job from SAR

Spool Data to a Dataset

Saving in View Mode

Pull SDSF Data in Batch

DMBATCH for Pulling NDM data in batch

Changing Long Strings

CLIST To Allocate System lib

Sep-10

MAINFRAME MANUALS

Link to mainframewizard

COBOL smallest program

COBOL-ACCEPT and DISPLAY

COBOL REDEFINE CLAUSE

COBOL RENAME CLAUSE

COBOL SUBTRACT VERB

COBOL MULTIPLY VERB

COBOL DIVIDE VERB

COBOL EDITED PICTURE CLAUSE

COBOL INTERVIEW QUESTIONS

COBOL INTERVIEW QUESTIONS WITH ANSWERS

COBOL INTERVIEW QUESTIONS IN PDF

COBOL INTERVIEW QUESTIONS-3

COBOL INTERVIEW QUESTIONS-4

COBOL INTERVIEW QUESTIONS-5

cobol-interview-questions-6

mainframe tutorials

mainframe tutorials video

Oct-10

Initialize a filler in cobol

JCL TO CONVERT VB TO FB FILE

JCL to list all datasets starting with

Sort JCL to Remove duplicates

JCL to List Migrated Datasets

Rexx to Save in View Mode

Clist to Tag COBOL code

CLIST to put flower box

REXX to Connect with DB2

COBOL Allowed Moves

Nov-10

Date and timestamp in load object

Ten Steps to Setup Hercules Turnkey Mainframe emulator

SUPERCE in Batch to compare datasets

Verification of CONTOKEN in SYSPACKAGE DBRMLIB LOADLIB

SORT Tips and Tricks and Examples

WIN32 Sality Virus remover

Welcome to Mainframewizard

Dec-10

JCL to submit particular steps of another JCL using IEBEDIT

DB2 query to select first or last N rows

Copying files from Tapes to DASD

Description of a DB2 Table

Difference in number of days using DB2 days function

Check for empty file

If the VSAM is empty then copy job abends

Check if Day light saving is in Effect

Transfer file from and to mainframe using FTP

Selecting various groups in SDSF

Low values to Spaces using SORT

Search string contains quotes

Retain the last executed command on command line

Autocomplete feature on mainframe

Searching a member in more than one pds at a time

Wrapping data at a particular column

Compress PDS - abend SE37

File Manager to get record count of VSAM

Page Not found message

Set Breakpoint before every CALL in xpediter

Jan-11

Update Data in one column of a DB2 Table using data in another column

Update Data in one DB2 table using data in another table

SORT JCL to Copy all records

SORT JCL with STOPAFT

SORT JCL with SKIPREC

SORT JCL with STOPAFT and SKIPREC

SORT JCL to sort in Char format

SORT JCL with INCLUDE

SORT JCL with OMIT

SORT JCL to filter data using INREC or OUTREC

SORT JCL to append data in a record using INREC or OUTREC

SORT JCL to put SPACES end of record using INREC or OUTREC

SORT JCL to Mask output data

SORT JCL to copy when location of matching data is not known

SORT JCL to SUM up values

SORT JCL to Split data using OUTFIL

COMMON JCL FOR SORT

JCL FOR SPLITTING DATA USING OUTFIL

RECORD AND PLAY TEXTPAD MACROS

Generate list of files in a folder using DOS

COBOL JUST RIGHT CLAUSE

COBOL INLINE PERFORM

COBOL PERFORM PARA

COBOL PERFORM THRU

COBOL GO TO DEPENDING ON

COBOL PERFORM UNTIL

COBOL PERFORM WITH TEST BEFORE

COBOL PERFORM WITH TEST AFTER

COBOL PERFORM TIMES

COBOL PERFORM VARYING UNTIL

COBOL EVALUATE TRUE

COBOL EVALUATE FALSE

COBOL EVALUATE IDENTIFIER

COBOL EVALUATE LITERAL

COBOL EVALUATE CONDITIONAL EXPRESSION

COBOL EVALUATE ARITHMETIC EXPRESSION

COBOL EVALUATE TRUE ALSO TRUE

COBOL INSPECT TALLYING FOR ALL SPACES

COBOL INSPECT TALLYING FOR ALL LITERAL

INSPECT TALLYING FOR ALL IDENTIFIER

COBOL INSPECT TALLYING FOR LEADING SPACES

INSPECT TALLYING FOR LEADING ZEROES

INSPECT TALLYING FOR CHARACTER

INSPECT TALLYING FOR CHARACTER BEFORE INITIAL SPACES

INSPECT TALLYING FOR CHARACTER AFTER INITIAL SPACES

INSPECT REPLACING ALL SPACES BY LITERAL

INSPECT REPLACING LEADING SAPCES BY LITERAL

INSPECT REPLACING CHARACTERS BY LITERAL BEFORE INITIAL LITERAL

STRING DELIMITED BY LITERAL

STRING DELIMITED BY IDENTIFIER

STRING DELIMITED BY SIZE

DIFFERENCE BETWEEN STRING and MOVE

STRING DELIMITED WITH POINTER

STRING DELIMITED ON OVERFLOW

UNSTRING DELIMITED BY LITERAL

UNSTRING DELIMITED BY IDENTIFIER

UNSTRING DELIMITED WITH POINTER OPTION

UNSTRING DELIMITED ON OVERFLOW

How to find the changes since last save?

How to find the TSO region in which you are logged on

How to find who is using your dataset

How to find datasets last referenced by you

How to compare a dataset with other dataset while viewing or editing it

How to list the commands issued earlier

How to retrieve the last command issue

How to assign a PF Key to a command

Saving breakpoints in xpediter

List all signed out elements in endevor

What is a MAINFRAME?

Mainframe Disaster Recovery

Cricket World cup 2011 India

What does EXCP in SDSF mean

JCL to Unload all members of PDS in a PS Flat file.

Copy flat file to VSAM file

Free COBOL compilers

Free mainframe emulators

Free mainframe Tools

SORT using REXX

Feb-11

Submit Articles

mainframe websites

What is Cloud computing

Walk-ins at NOIDA

Walk-ins at Hyderabad

Walk-ins at Chennai

Walk-ins at Bangalore

JCL to create new members in a PDS using IEBUPDTE

JCL to create members using Flat File

What is a VSAM?

mainframe jobs india

Wildcard character percent in DB2

Wildcard character underscore in DB2

Drop Index of a DB2 Table

Create a DB2 Table

Drop Primary Key on DB2 Table

Adding Primary Key on exisitng DB2 Table

Changing the primary key on existing DB2 Table

Creating Primary Key while creating DB2 Table

COBOL TO RECEIVE DATA FROM JCL

Would mainframe technology be relevant in the age of cloud computing?

unused tape dataset report

Synonym of DB2 Table

Alias of DB2 Table

tso line commands

Mar-11

What is mainframe express

Apr-11

Difference Between Catalog and Instream Procs

What is db2 plan

What is a db2 package?

What is the difference between Cursor stability and Repeatable read.

How to Delete Duplicate Rows from DB2 Table

How many Exec Statements can a JCL have at maximum?

migrating from mainframe to micro focus MFE

May-11

JCL interview question 1

JCL interview question 2

CICS Interview Questions with answers

JCL interview questions

db2 interview questions with answers

IBM Websphere application server

SELECT INTO SQL SERVER AND SELECT INTO DB2

DIFFERENCE BETWEEN COBOL SEARCH AND SEARCH ALL

Record length of DB2 Table

Jun-11

precompile compile and link edit jcl for cobol db2 program

Running Exe on mainframe

what is the difference between comp and comp-3 in COBOL?

Is it possible to submit a JCL in loop?

How to bring a Job back from SAR to Spool?

Can anyone help me in taking dump of a DB2 table?

Can we redefine a PIC X(100) item to X(200)?

Why we need Variable blocked files?

What is the difference between Disp=MOD and Disp=OLD

What is the purpose of using SYNC in COBOL?

What is an ASRA abend?

where to look for the version of zOS?

Printing copybook layout to a file

convert COMP-3 data in readable mode

Converting date in Julian format to Gregorian format

LRECL and RECFM for flat file created by VSAM unload

How to send email from mainframe?

Passing data from COBOL to JCL

DDNAMES prefixed with UT in COBOL program

Load VSAM data to DB2 TABLE

Submit selected steps in JCL without altering it

Adding new column and altering Primary Key of DB2 Table

How to concatenate strings in Ezytrieve

How to select nth max salary from employee table?

SQL CODE -625 while creating primary key

How to get the number of members in a PDS without opening it?

Manipulation with DB2 dates times and timestamps

What is the difference between Stop Run and Go Back

What is Cancel command in COBOL used for?

EJECT command in COBOL

Order By Clause in DB2

Difference between Primary key and Unique Key

Maximum length of a DB2 Column Name

Why Varchar columns use level number 49

DB2 cursor close if commit issued

What is the difference between OS/390 and z/OS

How to read a VSAM file with Partial Key

FTP file to from mainframe in Batch

Can we call a Cataloged Proc from another cataloged Proc

Static linking change made to called program not calling program

Notifying multiple users using JCL

Grant with Grant on Views

What is the COMP-X used for?

What is file status 9 and status key 13 in VSAM?

Examples of Inner Join, Left Outer Join, Right outer join

Difference between Static and Dynamic call

Jul-11

Dynamically called program stays in memory

What is the Size of S9(18)V99 COMP-3

Difference between CONTINUE and NEXT SENTENCE

Difference between performing section and paragraph

LRECL limit of SPUFI output dataset

CANCEL command to CANCEL calling program

Pull data from SAR using date as filter

How to check Copy Pending Flag and fix it

Elements Signed out to an ID in endevor

Index dropped and recreated error in DSN1COPY step

How to SAVE list of members in a PDS

How to control TSO session Time

SEARCH ALL not searching the entire Table

How to find the last run time of reorg and runstats

Converting EBCDIC data to ASCII format

Easytrieve equivalent of S9(7)V99 Comp-3 in COBOL

Compile and Run JCL for a COBOL program

Problems in Editing a huge file

Comparing two files in batch mode

Purpose of TYPRUN COPY in JCL

IP address using the mainframe id

Can we display value of Index in COBOL

Do we have REVERSE command in COBOL?

Length of each record in Variable file

Finding the Length of a string

Mainframewizard App for your NOKIA phone

Compiling COBOL in ASCII mode in mainframe express

Display hexadimal values using COBOL

Real life example of -805 sql code

On size error truncation or no effect

Access database at two LPARs using COBOL

What changes required for changing Static calling to dynamic calling

COBCH0576S Preceding statement is not imperative

Dynamic calling giving S0C1 abend while calling subprogram

How many plans packages needed?

How to get the attributes of a file on Tape?

How to convert a VSAM file to flat file?

Replacing data in all members of a PDS

How to run jobs in ASCII charset on mainframe express

Searching for Hex values in COBOL program

Db2 question which query will not work

Subquery used in Where returns more than one row

PC equivalent of fileaid

Relation between Plan, Packages and collection

When would Include command in Jcl get expanded

Why does Storage control program has no corresponding CICS table

What is special about this COBOL program

NIIT Tech,Exp:3-8 Yrs,Job-Location:Delhi/NCR-23rd July 2011

TCS,Exp:2-8 Yrs,Job-Location:Delhi/NCR-23rd July 2011

Edited Numeric item not getting initialized

Difference between FB and FBA RECFM

Magna Infotech,Exp:5+,Job location:Bangalore

Synova, Exp:5-6yrs,Job location:Bangalore

Relation between BLKSIZE and LRECL

Why do we code BLKSIZE=0 in JCL

How to skip the first step in a Job

max length of data passed from JCL to COBOL

Converting Easytrieve code to COBOLcode

CICS program does not need to open a file explicitly

GalaxE-Exp:5-8yrs,Job-location:Blr-Noida

Any free mainframe emulator for practicing COBOL etc

Cursor remain open or close when control returns to calling program

Subprogram containing DB2 Cursor called multiple times

Why VARCHAR item in COBOL must be defined at 49 level?

How to calculated maximum space using primary and secondary units

Is it possible to password protect datasets?

CSC,Exp:6-10yrs,Skillset-C++,Job-location:Chennai

How to fetch last n rows only in DB2?

Changing the attributes of column in a Table

Limit on size of array in cobol program

Aug-11

ISPF tips and tricks

DB2 702 certification study materials

Handle Ignore and Resp which one to use

Skip first n records and last n records in a file

DB2 commit question

Called program static or dynamic calling

CICS command to know DSN name allocated to CICS file name

CICS command to know program name allocated to CICS transaction

How to View the RCT entry for a CICS trx

Skipping xth and yth records in a file

Splitting a file into equal number of records

Prerequisites for concatenating datasets

How to run JCL using COBOL

How to pass data from COBOL to JCL

Compare two PDS

Add 1 to Hex values in cobol

Signout error in endevor

COBOL program to delete a PS file

Calling REXX from COBOL

What is Tandem Cobol

How to create dynamic array in COBOL

Sep-11

Walk-in 10th/14th/21st/28th Sep for Mainframe Developer/Sr. Developer/Module lead\Tech lead

New indexes to be used by COBDB2 program

PLAN_TABLE and EXPLAIN command

Reading last record in VSAM file

Attributes of a Tape dataset

Difference between Copy and Include

GDG version in report

Some amazing facts about mainframe

Instream or Catalog proc in JES spool

Difference between Library and PDS

How to send sms from mainframe

Execute REXX CLIST at logon

Restart a step in Nested Proc

Display Hex codes

Last modified date of a PS file

Cobol Get Cloudy

linkage in COBOL

Delete the latest version from endevor

S0C7 on Moving alphanumeric data to COMP-3

reformat packed comp-3 fields using file-aid

Oct-11

Un initialized variables in system

Screen scraping tool for emulator

To sort an output file having duplicates using sort.

Nov-11

Difference between Include and Jcllib

read a sequential file in reverse order in COBOL

fetch multiple rows without using CURSORS

Can we read empty VSAM file using COBOL

Viewing VSAM file without File Aid or File manager

mainframe files - strip spaces/blanks/x'40'

Plan or package which is executable

Why external sort better than internal sort

How to make a COBOL program reentrant

Basics of XPEDITOR

Would Standalone cobol program need link editing

What is uncommitted read and when it is used

Compiler option for getting statement of abended line

Alternat Index file in VSAM upon loading VSAM file

Retrieving Job from SAR

Sorting a VB file giving unexpected results

Loading VSAM data from EBCDIC environment to ASCII environment

Execute COBOL program using REXX

What is the latest version mainframe

Different levels of locking in DB2

Can a table have more than one primary key

Can DB2 interface with IMS-DB and IMS-DC

can alter be used to alter views and indexes

Which is more efficient "Between phrase" or "greater, lesser equal phrase"

Primary index drops when primary key dropped

Extend the expiry date of dataset

Can DB2 directory be accessed using SQL commands

What is a Page in DB2

Cloning a DB2 table

what is the use of getmain and freemain in cics?

What is AMODE and RMODE

What is the LRECL for printer files in COBOL

Which is better with respect to memory usage COMP or COMP-3

Difference between copy pending and check pending

Dec-11

NOIDA 5 Address Tata Consultancy Services (TCS)

Delete few records from a flat file

how to check the version of IMS database

Monitoring job delays

How to view packed data without file manager or file aid

mainframe computer

mainframe jobs at TCS

How to set maxcc=0???

Why RRDS VSAM does not support alternate index

FTP target file with date and time qualifier

Mainframe interview questions

Tata Consultancy Services NOIDA sector 63

Convert easytrieve to COBOL

COBOL TUTORIALS

Synsort for subtotal

How to setup xpediter on mainframe

(FOC198) FATAL ERROR IN DATABASE I/O. FOCUS TERMINATING

email attachment from mainframe

Julian calendar non leap Year

Moving spaces to numeric field

How to check the version of DB2 on mainframe

What is file status code of 02 in COBOL

How is mainframe for 2012 in india for a fresher

Julian calendar leap Year

How to check the version of Syncsort

db2 plan used by CICS region

Jan-12

Prospects of Mainframes Programmers in 2012

GDG versions in a JCL

Test changes to COBOL DB2 program

Can unique index be created on more than one columns

Can foreign key be defined on unique index

Update data in table with primary key and foreign key constraint

Compare two files and write matching records to a file and unmatched to another

Is binding required when program does not refer a newly added column

Non COBDB2 program calls COBDB2 program

JCL to XML conversion help

How to check the version of zos

IP Address for CryptoTerm

IT roles in techincal support

IT roles in Hardware management

IT roles in database administration

IT roles in web development

IT roles in Technical writing

IT roles in Network management

IT roles in Project Management

Shortcuts in xpediter

Replace FTP with SFTP

cost saving mainframe project

How to capture a value entered in an HTML page on to the Back end in mainframes.

IT roles in programming

What is the use of IEBUPDTE

Submit job from CICS and COBOL

List of mainframe companies

sort to calculate date difference

send email using SMTPNOTE in mainframe

List all datasets starting with Qualifier

Get List of running jobs in IOF

rexx db2 cursor

Conversion from Character to Binary

Job Opening in Siemens

legacy modernization

How to grant update access to my mainframe id

Feb-12

How to download textpad

Job Openings with Hughes Communications India

Get member name for ISREDIT macro

No Delete step in JCL contains UCC 11

what is NRWS in OPC

To update card dynamically

How can the system z mainframes (z10 and forward) and software address the Big Data power drain?

Mar-12

Add a new job in control-m

Apr-12

How a data in physical and symbolic map gets treated

Problem with SORT OUTRFIL and OUTREC

Problem with SORT OUTRFIL and OUTREC

Unload all the members of PDS(VB) to PS file

how to get a sar job back to ejes?

May-12

Is it possible to find how many mainframe-ids are working this time in a company?

Display database

OPER no in OPC scheduler

COBOL Double Precision Multiply

spool backup jobs

Read access to my PDS

Jun-12

Current schedule loaded in OPC

PC to Mainframe

cics

Jul-12

Reading file sequentially in CLIST

ISPS100 Invalid service name

SUM DECIMAL VALUE USING SYNCSORT

JOB

pls tell me any one

Creating a file using CLIST

Need FTP delete card to delete the files from shared folder

convert a VB file to FB

CLIST to write data in PS file

Copy members using CLIST from one pds to another

Aug-12

Create PDS using CLIST

CLIST to extract member names

record count of PS file using file aid

Trigger jobs using wait time

Sep-12

How to find number of similar HLQ members in a single PDS.

Oct-12

FTP huge file on mainframe

SAR BATCH MANUAL

How to get space used by a file

Pass data from clist to REXX

Convert Packed format to viewable format using file-aid

Nov-12

COBTRACE code for cobol

how to get the sign value of a filed (+,- or unsigned) from Packed decimal to flat file in Easytrieve(EZTP)

xpediter manual

compile and Link JCL for IMS program

SYSTEM COMPLETION CODE=0C1 REASON CODE=00000001

Dec-12

Provide the details required to raise SOBR request in mainframe

Writing 2 output from one Sort

regarding taking backup of a file

Jan-13

test jcl for errors

I am not able to see job status in sdsf while issuing a command "s.i"

DB2 Plan name for Test

Unanswered Forum Posts

sequential access

Split a file using delimiter in jcl

CREATION OF VSAM FILE

Feb-13

JCL Realtime questions

IEBPTPCH print PDS members to a file in alphabetical order

-CAUTION- Profile changed to NUMBER ON STD (from NUMBER OFF)

EZA1735I Std Return Code = 27000, Error Code = 00007

Who's online

There are currently 1 user and 26 guests online.

Online users

Daymude7837

Dr. Radut | page