Image
IBM Mainframe Computer
 
Log In
 
IBM Mainframe Home Image Mainframe Downloads Image IBM Manuals Image Mainframe Forum Image
 
Image
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 ]
Image IBM Mainframes - Sample Application programs Image

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...
 
Image Image Image

Programming Language: COBOL
 

Image

 SOLVING Y2K PROBLEM WITHOUT USING INTRINSIC FUNCTIONS
Image COBOL ERROR DESCRIPTOR COPY LIBRARY
Image COBOL 4 DIGIT SYSTEM YEAR FINDER (YY to YYYY)
Image

DAY FINDER (Return SUN/MON upto 9999/12/31 )
Image

WORLD TIME CALCULATOR (world time for INDIAN time)
Image CONVERT GREGORIAN DATE TO JULIAN DATE
Image

SORTING A TABLE - A GENERIC ALGORITHM
Image SEARCHING A MULTI DIM TABLE FOR ALL ELEMENTS
Image

FINDING THE RUN TIME SIZE OF A VARIABLE LENGTH TABLE
Image CIRCULAR QUEUE IN COBOL
Image

STACK DATA STRUCTURE IN COBOL
Image

QUINE PROGRAM IN COBOL
Image ALL PRIME FACTORS FINDER ROUTINE
Image

ALL PSEUDO RANDOM NUMBERS GENERATOR ROUTINE
Image PS/QSAM/SEQUENTIAL FILE MANIPULATION
Image

VSAM-ESDS/SEQUENTIAL FILE MANIPULATION
Image VSAM-RRDS/RELATIVE FILE MANIPULATION
Image

VSAM-KSDS/INDEXED FILE MANIPULATION
Note: Links automatically open in new window. Do not Right click!
Programming Language: CICS
 

Image

 SAMPLE HELLO WORLD PROGRAM IN CICS

Image

 VSAM/ESDS FILE MANIPULATION IN CICS

Image

 VSAM/RRDS FILE MANIPULATION IN CICS

Image

 VSAM/KSDS FILE MANIPULATION IN CICS

Image

 TSQ FILE MANIPULATION IN CICS

Image

 TDQ FILE MANIPULATION IN CICS

Image

 DISPLAYING ALL RECORDS IN ONE SCREEN DYNAMIC MULTIPAGE
Image MORE PSEUDO CONVERSATION IN ONE PROGRAM
Image SENDING ONLY THE SELECTED FIELDS FROM A MAP
Image

ALL IN ONE CICS PROGRAM
Note: Links automatically open in new window. Do not Right click!

Site Statistics
We have 116925 registered members and 428497793 sessions since May 2003

The newest registered member is WorkingStorage

Our users have posted a total of 312171 articles within 54953 topics
 
[ View Members ]
Forum: Recent Posts
» JCL & VSAM
Jobs to HELD state
by vasanthz

» CLIST & REXX
Trouble using REXX SDSF interface to read job's SYSOUT=*
by danny companez

» DB2
count contained values of several columns (in one table)
by Rohit Umarjikar

» JCL & VSAM
Mass Delete of PDS memebers?
by Rohit Umarjikar

» SYNCSORT
WER247A SORTOUT HAS INCOMPATIBLE LRECL
by sergeyken

» CICS
CICS - Resource limiting using omegamon classic interface
by VB

» Suggestions & Feedback
Cloudflare: You are being rate limited
by mcmillan

» DFSORT/ICETOOL
Alternative of JoinKeys in SORT
by sergeyken

» SYNCSORT
INPFIL FILES, FNAMES examples
by sergeyken

» DFSORT/ICETOOL
FINDREP before JOIN
by Joerg.Findeisen

» Compuware & Other Tools
FileAid move data from two files to one output file
by sergeyken

» DB2
DB2 Query to get the count of Unique selection
by Chidane

» CLIST & REXX
REXX to get all Dataset names from a list of volumes
by Willy Jensen

» DFSORT/ICETOOL
Sorting date into YYYYMMDD, and creating file with date name
by sergeyken

» DFSORT/ICETOOL
DFSORT Join Keys Controlcard
by Joerg.Findeisen

» CICS
How to close Datacom MUF URT used by CICSRegion in batch jcl
by kaverimanoj

» SYNCSORT
Sort SMF records?
by sergeyken

» TSO/ISPF
SFTP Return Codes
by AlexSalas95

» SYNCSORT
To Discard record with 0 entry if Duplicate is there
by sergeyken

» SYNCSORT
To Sort detail records in a file with Multiple Hdr and Trl
by Chidane
[ Site Map ]
Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
About Us | Trademarks | Terms of Use | Contact Us