Purpose: to learn how to bring up the screen and allow for user's entry using CICS command level COBOL functions.


1)  prepare a mapset in your CNTL.
2)  assemble the mapset using appropriate JCL.
3)  in CICS, use CECI to view map:

         (X = your group yy = your account number)
4) write a COBOL program including appropriate CICS command level statements which will enable the user to view the map, enter information and get back the same plus additional information.
5) compile the COBOL program using appropriate JCL.
6) in CICS, enter transaction.  If problems, edit and recompile program in ISPF.  Go back to CICS and enter CECI to allow for new copy.  Enter transaction again:


In CICS , enter X001 (X = group) and enter mortgage amount, then tab, enter years, then tab, enter interest rate and hit <return>.

Also in ISPF, browse  CCPX00.CSC.CNTL(MORTMAP)

 Choose one of the following:

1) MAP-A.   User enters student name, number and up to 5 grades. Upon <ret> total credits and grade point average are displayed.  Number should be numeric.  Student does not have to get 5 grades - maybe 1, 2, 3, or 4 grades.  Maybe an “X” or ‘ ’ could represent no grade.   An “A” counts 4 points, “B” 3 points and so on.  Each grade carries 4 credits, whether the student passes or not.

2)  MAP-B:  User enters name, employee number, address, ss#  hours worked,  and hourly rate.  Upon <ret> base pay, overtime, and gross pay are displayed.  Anything over 48 hours is double time.  Anything over 40 hours is time and one-half.  Overtime is double time + time and one-half.  Base pay is hourly rate * 40 hours or less.  Gross pay is base pay + overtime.

3)  MAP-C:  User enters book name, publisher name, book number, quantity, retail price, wholesale price, and amount sold. Upon <ret> net profit (retail price - wholesale price * amount sold) and inventory amount (wholesale price * [quantity - amount sold]) are displayed.  Wholesale price cannot be greater than retail price.  Quantity sold cannot be greater than amount on hand.

4)  MAP-D:  User enters name, employee number, social security number,  marital status, address, weekly salary and current payroll  week. YTD salary, weekly FICA, and YTD FICA should be displayed.  Any salary over 68K is exempt from FICA.  (Use .0765). An employee could pay full FICA, partial FICA, or no FICA.

5)  MAP-E:  User enters name, student id number, and up to five course numbers.  Upon  <ret>, course names (from a table), total credits taken (assume 4 credit hours per course) and total tuition are displayed ($250 per credit hour).  Valid course numbers are from 351-370.  A student does not have to take all 5 courses.  Course number of 000 means no course is taken (or no entry in that field means no course taken).

6)  MAP-F:  User enters customer number, name, address, previous meter reading (five numbers) current meter reading and charge per kilowatt.  Upon <ret>, the number of kilowatts and cost are displayed. There is a possibility of meter rollover.

7)  MAP-G:  User enters customer number, name, address, liability amount, collision amount, comprehensive amount, number of tickets this year and number of accidents this year.  Upon <ret>, basic auto semi-annual premium, surcharge  (if any), and total semi-annual premium are displayed.  Basic premium is total of all insurance * .1% (.001).  Each ticket or accident carries a 10% surcharge (0.1 * basic premium).  So 2 tickets and 1 accident would carry a 30% surcharge.
- a “name” field is really two fields
(LAST NAME and FIRST NAME - each 15 characters in length)

- an “address” field is really three fields
(STREET - 15-bytes, CITY - 10 bytes, and ZIP - 5 bytes)

all primary keys (customer number, student number, book number etc., should be 8 bytes long)