The information at this site is in draft form and is the property of Priscilla Grocer. The information may not be duplicated or distributed without her permission. ©Copyright 2000
| 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. |
| 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) |
| 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 |
| 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 |
| 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 |
| Assignments | Link to retrieve |
|---|---|
| Assignment to flip a name using method 1 | Name flip assignment
Note: I will be in on Saturday from 10:00 until 4:00 for help on assignments. |
| Programs to write | Link to retrieve |
|---|---|
| COPY/CALL | Modify a program to include a COPY in the DATA
DIVISION, a COPY in the PROCEDURE DIVISION and a CALL to a subprogram/module that
you write. You can use one of your programs or one
of mine. You must turn in the modified program, the files that are
being copied, and the subprogram/module that is being called as well as the
output that was produced. Note, if you already did this in CIS51 please give
me another copy of the work you did. |
| Label Program | Label assignment Label data to be entered Program to modify and use to enter label data to create file for label program Revisions to the label program |
| Two file matching programs |
Modify ONEMANY.CBL and MANYMANY.CBL |
| Internal sort/module program |
Sort program specifications sortdata.dat Data to use with sort program. |
| Order program information |
Order program specifications Order form layout Inventory data file - sequential - must be converted to indexed Customer data file - sequential - must be converted to indexed File specifications Program used to create inventory file Program used to create customer file |
| Report generator |
Report generator program that needs to be finished
and run Data to use with the report generator program |
| Dates, conversions, Y2K etc. |
Date difference and conversion assignment |
| Object Oriented Program |
Object oriented programming assignment The last programming assignment!!! Honest!!! |
| Test Information | Link to retrieve |
|---|---|
| Final Information | Status Sheet for CIS52 Send me an email and I will send you one of the exam questions (whether you want it or not!) It has been a pleasure working with you! |