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

The newest registered member is Daniel Andrada

Our users have posted a total of 304876 articles within 53706 topics
 
[ View Members ]
Forum: Recent Posts
» DFSORT/ICETOOL
Write a current record plus previous record filed
by sergeyken

» DB2
DECIMAL HOST VARIABLE OR PARAMETER 14 CONTAINS
by don.leahy

» CICS
Program level statistics
by Rohit Umarjikar

» DFSORT/ICETOOL
Sort to extract lines
by Rohit Umarjikar

» CLIST & REXX
REXX to find /* Define and write the next 9 lines
by Rohit Umarjikar

» CLIST & REXX
SAY backslash within ISPF
by Pedro

» DFSORT/ICETOOL
Cant find hex value using IFTHEN=(WHEN
by Rohit Umarjikar

» DB2
DB2 SQL query to read and update data from a file
by Santhosh S M

» IBM Tools
Tivoli INFO/MANAGEMENT
by d2

» DFSORT/ICETOOL
Compare 2 files replace data in 1st file with 2nd file
by Rohit Umarjikar

» DFSORT/ICETOOL
Write records with 3 or less rows in a group
by Joerg.Findeisen

» JCL & VSAM
How to search multiple members of a PDS in another PDS
by appu9jain

» All Other Mainframe Topics
Connect:Direct Add yesterday date in TODSN filename in JCL
by sergeyken

» IBM Tools
How to search multiple strings in a PDS
by Rohit Umarjikar

» DFSORT/ICETOOL
copy file 2 data into file1 for matched records
by Rohit Umarjikar

» CICS
CICS webservice - Flexible Interface
by techarch

» All Other Mainframe Topics
Hercules - IMWEBSRV
by vasanthz

» All Other Mainframe Topics
Connect:Direct - Add timestamp in the TODSN filename in JCL
by Joerg.Findeisen

» All Other Mainframe Topics
Connect Direct with Date and Time Stamp
by Joerg.Findeisen

» JCL & VSAM
How to append Previous date into a Sending Node file in JCL
by GautamSid

[ Site Map ]
Back to Top