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 114915 registered members and 331857452 visits(sessions) since May 2003

The newest registered member is himanshu shekhar

Our users have posted a total of 303427 articles within 53467 topics

[ View Members ]

Forum: Recent Posts

» Suggestions & Feedback
https/Secure Login
by mcmillan

» IMS DB/DC
Inserting records into the empty segment through Selcopy
by Uday Kumar Thota

» Suggestions & Feedback
Blank posts / 502 Bad Gateway
by prino

» DFSORT/ICETOOL
JOINKEYS to match two input files on the basis of different
by Rohit Umarjikar

» TSO/ISPF
Dynamically switching terminal model
by prino

» DFSORT/ICETOOL
Hexadecimal Group compare and write the group in ICETOOL
by Nic Clouston

» DFSORT/ICETOOL
Group comparison/update between two files HeaderVsdetail
by Nic Clouston

» PL/I & Assembler
Calling Assembler from REXX
by WilliamDownie

» JCL & VSAM
JCL for replacing code in Cobol
by Garry Carroll

» DB2
ABEND=04E FOR REASON=00E50013
by yogi.47eie

» CLIST & REXX
How to fetch Return Code of a JCL submitted through REXX ?
by Joerg.Findeisen

» TSO/ISPF
Move Cursor after paste
by prino

» CLIST & REXX
REXX/CLIST tool for BCSR and EDSR
by Garry Carroll

» DB2
Unloading DB2 table in CSV format along with header
by rajendra05

» CICS
Sample CICS Webservices Program
by Nic Clouston

» All Other Mainframe Topics
XYplorer - EBCDIC to ASCII translation - CP500 or what?
by prino

» All Other Mainframe Topics
Proc print in Mainframe
by Aleem S

» CLIST & REXX
How to pass arguments in a ISPSTART command in BATCH
by Pedro

» DFSORT/ICETOOL
Hex Value - vb file replace old date with current date
by premnath

» DFSORT/ICETOOL
How to find which file contains my searched data
by soumyabiswas

[ Site Map ]

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