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

The newest registered member is hamer011

Our users have posted a total of 311048 articles within 54749 topics

[ View Members ]

Forum: Recent Posts

» JCL & VSAM
Delete PDS members without deleting dataset itself
by Rohit Umarjikar

» HomeWorks & Requests
COBOL program might be running in loops - not sure
by Rohit Umarjikar

» CA Products
CA7 count with DATE variable
by hamer011

» CLIST & REXX
Get RECORD LENGTH, allocated space of a GDG from a REXX.
by enrico-sorichetti

» DFSORT/ICETOOL
small int to zoned decimal conversion
by sergeyken

» TSO/ISPF
SDSF and Rexx
by kokido

» PC Guides & IT News
2 attachments JCL
by J_sorted_U2

» DB2
Use Copy Utility
by Rohit Umarjikar

» SYNCSORT
Using Multiple IFTHEN and WHEN condition to check & replace
by andy12

» HomeWorks & Requests
To remove Constant from Detail rec without changing HEADER
by Rohit Umarjikar

» DFSORT/ICETOOL
To fetch records that has Ttamp value of last 7 days
by Chidane

» DFSORT/ICETOOL
To Omit records based n SORT condition
by Joerg.Findeisen

» DFSORT/ICETOOL
Looking for help with SORT JCL/SYNC sort
by andy12

» Mainframe Interview Questions
sort to find out the char which repeated in a string
by Rohit Umarjikar

» CICS
Check if CICS is online in JCL
by enrico-sorichetti

» SYNCSORT
Dynamically build sort control statements.
by sergeyken

» DFSORT/ICETOOL
Reading Empty Dataset
by sergeyken

» CLIST & REXX
Compare 2 alphabets in a REXX and find the greatest one
by justjpr

» All Other Mainframe Topics
Save SYSLOG in a MASS complex
by Joerg.Findeisen

» TSO/ISPF
can an ISPF appl save user changes in panels even in timeout
by expat

[ Site Map ]

IBMMainframes.com is not an official and/or affiliated with IBM^® in anyway
About Us \| Trademarks \| Terms of Use \| Contact Us