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

The newest registered member is Anusha_perumandla

Our users have posted a total of 308527 articles within 54311 topics
 
[ View Members ]
Forum: Recent Posts
» JCL & VSAM
INSYNC option with same function as INFORMAT(JCL in CAWABATC
by csbl

» DFSORT/ICETOOL
HOW to see the data(records) in the VSAM file using ISPF?
by Joerg.Findeisen

» IBM Tools
File Aid Batch
by dneufarth

» TSO/ISPF
step by step trace 4 ISPF dialog called assembler program
by Lynne

» IMS DB/DC
Can EATTR be coded in an IMS COBOL pgm?
by don.leahy

» IMS DB/DC
Conditional EATTR in MFS ?
by Time2Live

» All Other Mainframe Topics
Ca7 long running jobs report
by Robert Sample

» Java & MQSeries
Cobol COMP-2 fields getting scrambled by MQ?
by sergeyken

» SYNCSORT
To replace jobname in a file with another jobname.
by Rohit Umarjikar

» CICS
$AVRS/SAVRS
by RBABU

» CICS
CICS Access to RACF
by enrico-sorichetti

» Testing & Performance
Zunit Test case editor error
by moncy123

» DB2
Convert HEX to Numeric
by sergeyken

» CICS
executing XCTL command in COBOL without result
by Rohit Umarjikar

» Site Announcements
Mainframe 'Abend Assist' Ver 2.0 for Windows 10
by JTaranta

» CLIST & REXX
STEM usage in REXX
by sergeyken

» IBM Tools
Converting fixed length file to excel/csv
by sergeyken

» DFSORT/ICETOOL
How to extract the data for current year and previous year
by Joerg.Findeisen

» CLIST & REXX
LISTC in REXX
by sergeyken

» JCL & VSAM
Forcing a step to run (even if abended)
by Willy Jensen

[ Site Map ]
Back to Top