The ACME
Stock Reorder System

ACME99.Cbl is a model answer. Don't look at this until you have made your own attempt at the program.

The main program (ACME99.cbl) calls the PostageRate.Cbl program..

DataFiles.Doc (A word file showing the contents of the Orders file after running the program and of the Stock and Manufacturer files both before and after running the program.)

InStk.Dat and In-Manf.Dat are sequential files that must be converted into the relative Stock File (Stock.Dat) and the indexed Manufacturer File (Manf.Dat) by using the Seq2Direct.Cbl program.

The conversion program is required because direct access files are not standard ASCII files and cannot be viewed or edited in a standard text application like Notepad.

To view the contents of the Stock and Manufacturer files they must first be converted into sequential files using the Direct2Seq.Cbl program.

Introduction

Acme Manufacturing Plc. manufactures a range of cheap catering equipment for the European market. Some of the parts used are fabricated within the company, but most are standard units purchased from a range of companies in Europe and Ireland.

General Description

A program is required which will process the Stock file and Manufacturer file to create an Orders file containing ordering information for all the parts that need to be re-ordered (i.e. where the QtyInStock is less than the ReorderLevel).

For each stock item that needs to be re-ordered the program will create a record in the Orders file and will set an ONORDER flag in the Stock file to show that the item has been ordered.

Acme Manufacturing tries to pay all suppliers in EU countries in advance. For these countries, the COSTOFITEMS and POSTAGE fields of each Orders file record must be calculated.

With the exception of the Republic of Ireland, postage rates for all EU countries are the same. The postage rates are obtained by calling a program "PostageRate" with two parameters; the POSTNUMBER (In) and the POSTCHARGE (In/Out). The POSTNUMBER is derived, as shown by the decision table below. The POSTCHARGE is the value returned (in Euro and Cent :- max €99.99) by "PostageRate" for a particular POSTNUMBER. Note, that if the total weight of the items ordered is greater than 50kg then the items cannot be sent by post and the POSTAGE must be set to €0.00.

File Descriptions

Orders file (Sequential)

The CostOfItems is the QtyRequired multiplied by the ItemCost.

Stock File (Relative)

Note: The relative record key is obtained by subtracting 10000 from the StockNumber.

Manufacturer File (Indexed)

Note. 

The constituent parts of the address are separated by commas, with the country name coming last. 

The country name for Ireland and Northern Ireland is always Ireland even though, for postage charge purposes, Northern Ireland is treated as an Other EU country. 

The second last item in an Irish address is the county name.  This allows us to distinguish Northern Ireland addresses from those in the Republic.   
e.g.  SMALL PARTS LTD.,15 SHORE ROAD,BALLYMENA,ANTRIM,IRELAND

Each constituent part of the address will immediately follow its preceding comma.

Addresses are always in upper case.

EU countries
Austria, Belgium, Denmark, England, Finland, France, Germany, Greece, Ireland, Italy, Luxembourg, Portugal, Scotland, Spain, Sweden, Wales.

Northern Ireland counties
Antrim, Armagh, Derry, Down, Fermanagh, Tyrone.

Copyright Notice

This COBOL project specification is the copyright property of Michael Coughlan. You have permission to use this material for your own personal use but you may not reproduce it in any published work without written permission from the author.