IBM Mainframe Sample Programs

Where to Go?

Mainframe Forum

Mainframe Wiki

Quick References

Free Downloads

Sample JCLs

Job Openings

Interview Questions

[ Site Map ]

Member: Login

Username:

Password:

Remember me

[Forget Password?]

NewUser: Register

User name:

E-Mail:

Password:

Password (again):

[ New User SignUp ]

IBM Mainframes - Sample Application programs

Sample Mainframe Programs

This page contains Sample Programs, algorithms & data Structures, predefined functions, File and database manipulation, Online data access etc...

Here you can find sample COBOL and CICS Programs like Y2K Problem solving, 4 digit year conversion, world time calculator, date to day, Prime number generation, pseudo conversation, SORT & Merge, Stack & Queue, Pseudo number generation etc...

Programming Language: COBOL

SOLVING Y2K PROBLEM WITHOUT USING INTRINSIC FUNCTIONS

COBOL ERROR DESCRIPTOR COPY LIBRARY

COBOL 4 DIGIT SYSTEM YEAR FINDER (YY to YYYY)

DAY FINDER (Return SUN/MON upto 9999/12/31 )

WORLD TIME CALCULATOR (world time for INDIAN time)

CONVERT GREGORIAN DATE TO JULIAN DATE

SORTING A TABLE - A GENERIC ALGORITHM

SEARCHING A MULTI DIM TABLE FOR ALL ELEMENTS

FINDING THE RUN TIME SIZE OF A VARIABLE LENGTH TABLE

CIRCULAR QUEUE IN COBOL

STACK DATA STRUCTURE IN COBOL

QUINE PROGRAM IN COBOL

ALL PRIME FACTORS FINDER ROUTINE

ALL PSEUDO RANDOM NUMBERS GENERATOR ROUTINE

PS/QSAM/SEQUENTIAL FILE MANIPULATION

VSAM-ESDS/SEQUENTIAL FILE MANIPULATION

VSAM-RRDS/RELATIVE FILE MANIPULATION

VSAM-KSDS/INDEXED FILE MANIPULATION

Note: Links automatically open in new window. Do not Right click!

Programming Language: CICS

SAMPLE HELLO WORLD PROGRAM IN CICS

VSAM/ESDS FILE MANIPULATION IN CICS

VSAM/RRDS FILE MANIPULATION IN CICS

VSAM/KSDS FILE MANIPULATION IN CICS

TSQ FILE MANIPULATION IN CICS

TDQ FILE MANIPULATION IN CICS

DISPLAYING ALL RECORDS IN ONE SCREEN DYNAMIC MULTIPAGE

MORE PSEUDO CONVERSATION IN ONE PROGRAM

SENDING ONLY THE SELECTED FIELDS FROM A MAP

ALL IN ONE CICS PROGRAM

Note: Links automatically open in new window. Do not Right click!

Site Statistics

We have 115086 registered members and 335282031 visits(sessions) since May 2003

The newest registered member is Sundaralingam

Our users have posted a total of 304038 articles within 53566 topics

[ View Members ]

Forum: Recent Posts

» CICS
COBOL/CICS Emulators
by Rohit Umarjikar

» TSO/ISPF
exclude the 5 first lines for compare using SUPERC
by Mahsa Rouzkhatouni

» CLIST & REXX
Is there a way to determine Clist usage in an LPAR?
by enrico-sorichetti

» CLIST & REXX
How to replace a string dynamically in Rexx
by sergeyken

» IMS DB/DC
problem in select max when executing the transaction in para
by enrico-sorichetti

» PL/I & Assembler
Usage of BINSEARCH PL/I
by sergeyken

» CA Products
Exception Filter
by inforajesh

» TSO/ISPF
Remove additional information in SUPERC output... Just lines
by sergeyken

» SYNCSORT
how to extract a portion (e.g. fields 10 - 20) of a record
by Rohit Umarjikar

» TSO/ISPF
Move Cursor after paste
by Luis A. Valdes

» Compuware & Other Tools
CONTROL-M SCHEDULING DEFINITION FACILITY
by rohanthengal

» Compuware & Other Tools
Control M features to check string in SYSOUT and mark NOTOK
by rohanthengal

» CLIST & REXX
Determine Library REXX exec was executed from
by Pedro

» JCL & VSAM
IRXJCL & PARMS
by m204prgmr2

» DB2
choice of clustering index
by jzhardy

» PL/I & Assembler
linking an ALC program to a Relational Database Program?
by enrico-sorichetti

» CICS
How to define transaction that trigger program in remote sys
by Alberto De Magistri

» ABENDS & Debugging
Printing a dataset in DUMP format with offset from start
by Phrzby Phil

» JCL & VSAM
DFDSS COPY using Filter REFDT statement
by markzasz

» DB2
Next line in SQL
by Rohit Umarjikar

[ Site Map ]

© 2003-2021 IBM MAINFRAMES Research & Development Division
About Us \| Trademarks \| Terms of Use \| Contact Us