IBM Mainframe Computer
 
Log In
 
IBM Mainframe Home Mainframe Downloads IBM Manuals Mainframe Forum
 
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 116793 registered members and 417506547 visits(sessions) since May 2003

The newest registered member is Azewing

Our users have posted a total of 311794 articles within 54890 topics
 
[ View Members ]
Forum: Recent Posts
» DFSORT/ICETOOL
Extract records for a specific condition IFTHEN=(WHEN=GROUP)
by mohan_shine

» DB2
To join 2 tables and to join 3rd table with resultant
by Chidane

» All Other Mainframe Topics
Identify Number of Multivolume Dataset
by Ilaventhan Senthil

» CICS
Getting EIBRESP=21 in CICS
by Rohit Umarjikar

» CICS
Queue application affecting performance
by Ziko13

» IBM Tools
Use of long filenames with GDKUTIL utility
by Joerg.Findeisen

» DFSORT/ICETOOL
Simplify SORT CARD to combine INREC and OUTREC
by Joerg.Findeisen

» DB2
IRLMWRT & UTIMEOUT
by Rohit Umarjikar

» IMS DB/DC
User ABEND U0476. Need help.
by Rohit Umarjikar

» CICS
Old SDFHCOB Copybook
by Rohit Umarjikar

» DB2
Executing DB2 SQL store procedure via JCL
by Rohit Umarjikar

» SYNCSORT
SYNCSORT-DB2 interface
by Rohit Umarjikar

» DFSORT/ICETOOL
JCL to merge two files side by side
by sergeyken

» DB2
Converting VARCHAR to XML
by sergeyken

» Testing & Performance
python on z/OS error no encoding declared
by Fabiana Bordacchini Della

» DFSORT/ICETOOL
Sort card to generate the DSN
by PRAVEEN KUMAR NY

» SYNCSORT
One to Many merge
by Rohit Umarjikar

» TSO/ISPF
creat new line command in front of Member from 3.4
by sergeyken

» PL/I & Assembler
SDUMPX macro fails to dump requested areas under z/OS 3.1
by gmcateer

» JCL & VSAM
Make job wait until submitted job is finished to complete
by AlexSalas95

[ Site Map ]
Back to Top