COBOL code // It has be a COBOL code because I'll be using Net Express MIcro focus 5.1 for COBOL

Programming Assignment One Write a program to create a report for the customer maximum credit. It is important to the report requestor that maximum credit values are listed individually, i.e., one line on the report for each eligible customer record on the file. Not all customers are eligible for credit. In order for a customer to have a maximum credit value, the customersfactor must be a non-zero value or the customer must have a status of 1 through 7. The maximum credit value is calculated as the credit on the record * the factor on the same record. All customers are working towards being included in a region and approximately 50% of the customers are eligible for a larger factor. The average credit is $1,500. Seventy percent of the companys customer are located outside of the U.S. Less than of 10% of the companys customers have an invalid phone number. The customer file has an unknown number of customers on it and is using a sentinel or trailer value to stop processing. The sentinel value is a customer number equal to 99999999. The sentinel record and any records after it should not appear on the report or be included in any processing.

Customer.dat file exmaple:

00000001Maria Anders Berlin Germany 030-0074321 0004524350100000002Ana Trujillos Mexico City Mexico (5) 555-4729 0000030000200000003Antonio Moreno Mexico City Mexico (5) 555-3932 9999999999300000004Thomas Hardy London UK (171) 555-7788 0005010000500000005

Field Name Type Length Format Decimal Places 0 Customer number Customer first name Customer last name Customer city Customer country Customer phone Customer factor Customer region Customer credit Customer status Numeric Alpha Alpha Alpha Alpha Alpha Numeric Numeric Numeric Numeric 8 16 16 16 16 17 2 1 7 1 Start Position 1 9 25 41 57 73 90 92 93 99 ONO 1 0 2 0