| Sample programs | Link to retrieve |
|---|---|
| COBOL language elements | stringg.cbl Sample program using
string and unstring verbs colonprg.cbl Sample using colon to move characters |
| Misc. |
Program with Perform variations - Contains Perform varying from
by until and in line perform |
| Two file matching |
merge12.cbl
This program is a simple merge merge12.html This program is a simple merge oneortwo.cbl This program combines two files into one - max one id/file - record on each file optional oneortwo.html This program combines two files into one - max one id/file - record on each file optional oneatwo.cbl This program combines two files into one - max one id/file - both files required to have a record. oneatwo.html This program combines two files into one - max one id/file - both files required to have a record. onenorm.cbl This program has single record on file 1 and optional multiple records on file 2. The output is a single file with combined information. onenorm.html This program has single record on file 1 and optional multiple records on file 2. The output is a single file with combined information. onemany.cbl with errorsThis program has single record on file 1 and multiple on file 2 - a record must be present on both files - this program has errors that must be modified in the two file assignment. onemany.html with errorsThis program has single record on file 1 and multiple on file 2 - a record must be present on both files - this program has errors that must be modified in the two file assignment. manymany.cbl Both files can have multiple records per id. manymany.html Both files can have multiple records per id. manyloop.cbl Vertically looping through two files (can have multiple records per id) manyloop.html Vertically looping through two files (can have multiple records per id) |
| Three file matching |
match123.cbl
Matching three files - .cbl version. match123.html Matching three files - .html version. many123.cbl Three files with multiple possible on each - one output. (.cbl version) many123.html Three files with multiple possiible on each - one output. (.html version) loop123.cbl Vertically looping through three files (can have multiple records per id) loop123.html Vertically looping through three files (can have multiple records per id) |
| Randomly retrieving multiple from file 2 Sequentially reading file 1 |
crvsamm.cbl
program to create the vsam file from the sequential file - .cbl version crvsamm.html program to create the vsam file from the sequential file - .html version omanyidx.cbl processing program - .cbl version omanyidx.html processing program - .html version |
| Data files for file matching sample programs |
file1sng.dat file2sng.dat file3sng.dat file1mul.dat file2mul.dat file3mul.dat |
| Bubble sort |
bubble.cbl bubble.html bubembed.cbl bubembed.html |
| Relative files |
crerela2.cbl crerela3.cbl crerela4.cbl retrvrel.cbl |
| Screen processing |
scrntest.cbl
Sections within a screen scrntest.html Sections within a screen scroccur.cbl Screen with occurs scroccur.html Screen with occurs scrmenu.cbl Multi screens with things to consider scrmenu.html Multi screens with things to consider scrmenu2.cbl Multi screen with major edited scrmenu2.html Multi screen with major edited vsamproj.dat Data for scrmenu.cbl vsamproj.idx Data for scrmenu.cbl tablscrx.cbl Full screen using features like color etc. tablscrx.html Full screen using features like color etc. scrtest.cbl Not full screen using features like color etc. scrtest.html Not full screen using features like color etc. scrtest1.cbl Not full screen using features like color etc. - added 2 edit checks on data scrtest1.html Not full screen using features like color etc. - added 2 edit checks on data scrupdt.cbl Screen update with multiple screens scrupdt.html Screen update with multiple screens vsamscrf.dat Data file for screen update vsamscrf.idx Index file for screen update scrline.cbl Experiments with screens scrline.html Experiments with screens scrlinex.cbl Experiments with screens scrlinex.html Experiments with screens scrliney.cbl Experiments with screens scrliney.html Experiments with screens |
| Variable length records |
vary1.cbl vary1.html vary1.dat vary2.cbl vary2.html vary2.dat vary3.cbl vary3.html vary3.dat |
| Working with dates |
convdate.html convdate.cbl dayofwk.html dayofwk.cbl conv2000.html conv2000.cbl |
| Object Oriented Programs |
pay01cl.cbl pay01dr.cbl pay01xdr.cbl pay02cl.cbl pay02dr.cbl pay02ui.cbl pay02ycl.cbl pay02ydr.cbl pay02yui.cbl pay03cl.cbl pay03dbi.cbl pay03dr.cbl pay03ui.cbl pay04cl.cbl pay04dbi.cbl pay04dr.cbl pay04ui.cbl pay4data.dat pay4data.idx tax01cl.cbl tax01dbi.cbl tax01dr.cbl tax01ui.cbl |
| Data structures |
stack.cbl queue.cbl queuer.cbl |
| Relative files |
crerela2.cbl crerela3.cbl crerela4.cbl retrvrel.cbl |