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

The newest registered member is amaralpbr

Our users have posted a total of 305949 articles within 53890 topics

[ View Members ]

Forum: Recent Posts

» CICS
JSON transform using CICS bundles vs. COBOL JSON PARSE
by ankit.jain

» SYNCSORT
Removing date values lines/records from a file
by Rohit Umarjikar

» JCL & VSAM
No sysout coming in spool
by Robert Sample

» FAQ & Basics
Error explanation - RC status is 04
by Robert Sample

» JCL & VSAM
No SYSOUT coming in SPOOL
by Rohit Umarjikar

» CLIST & REXX
REXX Test under Mask???
by Willy Jensen

» IBM Tools
defining a global LUA function in InfoSphere Optim
by jzhardy

» PL/I & Assembler
The z/OS HTTP/HTTPS protocol
by lchui

» TSO/ISPF
'[' or ']' not appearing in my EDIT SESSION
by Rod Hittle

» General Talk & Fun Stuff
I don't really get the, "Start a new topic vs adding to"
by Rohit Umarjikar

» FAQ & Basics
INCORRECT USE OF PARENTHESIS ON THE DD STATEMENT
by Rohit Umarjikar

» HomeWorks & Requests
bind jcl in cobol db2
by Rohit Umarjikar

» JCL & VSAM
passing symbolic parameters through dataset
by Rohit Umarjikar

» DB2
DSNTIAUL and DB2 scalar functions
by Rohit Umarjikar

» PL/I & Assembler
OPTLINK linkage convention
by Joerg.Findeisen

» DFSORT/ICETOOL
To re-format the file using SORT card
by Joerg.Findeisen

» CLIST & REXX
Facing issue in Run Edit Macro Job
by Pedro

» CLIST & REXX
Can you give me examples of programs using rexx?
by Pedro

» CICS
EIBCALEN 0 even if we pass LEN and FROM on START Command
by Robert Sample

» DFSORT/ICETOOL
Read file names from existing file then replace data
by Rohit Umarjikar

[ Site Map ]

© 2000-2021 IBM Mainframes.com Research & Development Division
About Us \| Trademarks \| Terms of Use \| Contact Us