|
Mainframe Application programming Development Solutions
This
page contains free Sample Programs for Students, Interview programs,
popular algorithms & data Structures, predefined functions, File
and database manipulation, Online data access, sample projects etc..
Sample
COBOL and CICS Programs like Hello World, Y2K Problem solving, 4 digit
year conversion, world time calculator, date to day, Prime number
generation, pseudo conversation, SORT & Merge, Stack & Queue,
Pseudo no generation in COBOL and CICS...
Note: The COBOL
programs are written to be compatible with all COBOL
compilers(including PC), so do not expect structured coding! |
Programming Language:
COBOL |
|
|
YEAR2000!: There are many solutions for Y2k. All of they cause another problem YEAR 1600!! This is a simple solution for Y2K without using even REDEFUNES clause. Just tery out this.Click on for source.‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cobol/cob1.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> SOLVING Y2K PROBLEM WITHOUT USING INTRINSIC FUNCTIONS |
|
ERROR DESCRIPTOR!: This Program act as a copy lirary that can be used with all COBOL File programs to find out the errors. It describe FILE STATUS code as well as VSAM status codes. Click on for source.‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cobol/cob18.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> COBOL ERROR DESCRIPTOR COPY LIBRARY |
|
4 DIGIT SYSTEM YEAR: This program converts a 2 digit system year into 4 digit year. this may be used with os/vs cobol and vs cobol II hwere system return a two digit year‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cobol/cob3.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> COBOL 4 DIGIT SYSTEM YEAR FINDER (YY to YYYY) |
|
DAY FINDER!: This program finds the day of your birthday or any given date from 01/01/0001 to 31/12/9999 and return whether it is sunday or mondat ext...‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cobol/cob4.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> DAY FINDER (Return SUN/MON upto 9999/12/31 )
|
|
WORLD TIME CALCULATOR!: This program find the equivalent time of any country for the indian time‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cobol/cob5.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> WORLD TIME CALCULATOR (world time for INDIAN time)
|
|
DATE TO DAY!: Converts a date value to the equvalent day value (means no month - 9999/999 format)‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cobol/cob6.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> CONVERT GREGORIAN DATE TO JULIAN DATE |
|
TABLE SORT!: Cobol does not give any facility to sort a table directly. This program sort the table in ascending order‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cobol/cob7.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> SORTING A TABLE - A GENERIC ALGORITHM
|
|
TABLE SEARCH!: Cobol can search a single dimensional table. This tprogram search a multidimensional table for all occurances of the given input‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cobol/cob8.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> SEARCHING A MULTI DIM TABLE FOR ALL ELEMENTS |
|
TABLE LENGTH!: This algorithm finds the Run time allocated storage size of a variable lentgh table‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cobol/cob9.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> FINDING THE RUN TIME SIZE OF A VARIABLE LENGTH TABLE
|
|
QUEUE!: This program implements a QUEUE (first in first out)strucutre in cobol.‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cobol/cob10.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> CIRCULAR QUEUE IN COBOL |
|
STACK!: This program implements a data stack in COBOL (last in first out)‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cobol/cob11.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> STACK DATA STRUCTURE IN COBOL
|
|
STACK!: This program implements a data stack in COBOL (last in first out)‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cobol/cob19.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)">
QUINE PROGRAM IN COBOL
|
|
PRIME SERIES!: This program finds the possible prime factors of the given Integer‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cobol/cob12.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> ALL PRIME FACTORS FINDER ROUTINE |
|
PSEUDO RANDOM NO!: This program generates all Pseudo random numbers upto the given limit. You can use this to provide password / software key by modfying the variables initial value!‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cobol/cob13.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> ALL PSEUDO RANDOM NUMBERS GENERATOR ROUTINE
|
|
PS/QSAM!: This program illustrates all the possible functions of a QSDS file using COBOL‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cobol/cob14.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> PS/QSAM/SEQUENTIAL FILE MANIPULATION |
|
VSAM/ESDS!: This program illustrates all the possible functions of a n ESDS file using COBOL‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cobol/cob15.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> VSAM-ESDS/SEQUENTIAL FILE MANIPULATION
|
|
VSAM/RRDS!: This program illustrates all the possible functions of a RRDS file using COBOL‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cobol/cob16.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> VSAM-RRDS/RELATIVE FILE MANIPULATION |
|
VSAM/KSDS!: This program illustrates all the possible functions of a KSDS file using COBOL‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cobol/cob17.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> VSAM-KSDS/INDEXED FILE MANIPULATION
|
Note: Links automatically open in
new window. Do not Right click! |
More Sample Program & Tutorials are available in our ‘MASTER the MAINFRAMES‘ CD Pack
|
Programming Language:
CICS |
|
|
CICS MULTIPAGE!: This program displays all the records of a file in a single screen using MULTIPAGE technique‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cics/cics8.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)">
SAMPLE HELLO WORLD PROGRAM IN CICS |
|
CICS MULTIPAGE!: This program displays all the records of a file in a single screen using MULTIPAGE technique‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cics/cics5.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)">
VSAM/ESDS FILE MANIPULATION IN CICS |
|
CICS MULTIPAGE!: This program displays all the records of a file in a single screen using MULTIPAGE technique‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cics/cics6.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)">
VSAM/RRDS FILE MANIPULATION IN CICS |
|
CICS MULTIPAGE!: This program displays all the records of a file in a single screen using MULTIPAGE technique‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cics/cics7.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)">
VSAM/KSDS FILE MANIPULATION IN CICS |
|
CICS MULTIPAGE!: This program displays all the records of a file in a single screen using MULTIPAGE technique‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cics/cics9.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)">
TSQ FILE MANIPULATION IN CICS |
|
CICS MULTIPAGE!: This program displays all the records of a file in a single screen using MULTIPAGE technique‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cics/cics10.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)">
TDQ FILE MANIPULATION IN CICS |
|
CICS MULTIPAGE!: This program displays all the records of a file in a single screen using MULTIPAGE technique‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cics/cics3.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> DISPLAYING ALL RECORDS IN ONE SCREEN DYNAMIC MULTIPAGE |
|
CICS PSEUDO CONVERSATION!: A Sample CICS program that illustrate more pseudo conversations in one program‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cics/cics2.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> MORE PSEUDO CONVERSATION IN ONE PROGRAM |
|
CICS!: A sample program which send only the selected fields from the map‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cics/cics4.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> SENDING ONLY THE SELECTED FIELDS FROM A MAP |
|
CICS!: This program illustrates all the possible operations that can be handled by CICS Command level‘,‘white‘)" ;="" onmouseout="kill()" href="javascript:void(0)" href_cetemp="javascript:void(0)" onclick="MM_openBrWindow(‘programs/cics/cics1.html‘,‘wallpaper‘,‘toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0‘)"> ALL IN ONE CICS PROGRAM
|
Note: Links automatically open in
new window. Do not Right click! | |
|
|
|