CICS LAB BOOK

CICS
Lab Book

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 1 / 83
 CICS LAB BOOK

Document Revision History

Date Revision No. Author Summary of Changes

23-Jan-2006 1.0 Content Creation
13-Nov-2009 2.0 Vandana Mistry Content Upgradation
11-Dec-2009 CLS Team Review
30-Jun-2011 3.0 Rajita Dhumal Content Upgradation
8th-Aug-2012 3.1 Rajita Dhumal Revamped after Assignment Review
2-Aug-2016 3.2 Veena K Revamp Post integration

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 2 / 83
 CICS LAB BOOK

Table of Contents
Document Revision History ................................................................................................ 2
Table of Contents ............................................................................................................... 3
Getting Started ................................................................................................................... 5
Overview ................................................................................................................ 5
Setup Checklist for CICS ....................................................................................... 5
Instructions ............................................................................................................ 5
Lab 1. Create Maps ........................................................................................................ 7
1.1: Compile and Submit the Map ......................................................................... 8
<<To Do>> ............................................................................................................ 8
Assignments (Part I): ............................................................................................. 8
<<To Do>> .......................................................................................................... 11
Lab 2. Translating and Compiling COBOL programs ................................................... 15
2.1: Code the following COBOL program ............................................................ 15
Lab 3. Display Current Date and Time ......................................................................... 18
3.1: Creating a map to display current date and time ......................................... 18
Lab 4. File Handling ...................................................................................................... 19
Assignments 1: .................................................................................................... 19
Assignments 2: .................................................................................................... 20
Lab 5. Analysis, Enhancement and Debugging Assignments ...................................... 22
Lab 6. Analysis, Enhancement and Debugging Assignments ...................................... 24
Functional components of the case study: .......................................................... 24
Lab 7. Browse records .................................................................................................. 26
5.1: Write a program for Customer Inquiry Module. ............................................ 26
Lab 8. Temporary Storage Queue ................................................................................ 27
6.1: Using TSQ in the MODIFY routine ............................................................... 27
Lab 9. Menu Handling ................................................................................................... 28
7.1: Creating a Menu driven application .............................................................. 28
Lab 10. Bank Application ............................................................................................ 30
1. Preface ................................................................................................................... 30
2. Project Requirements ........................................................................................... 30
3. Design Details ....................................................................................................... 30
3.1 File Layout ..................................................................................................... 30

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 3 / 83
 CICS LAB BOOK

3.2 Screen Design ............................................................................................... 31

3.3 Report Layout ................................................................................................ 32
Appendices ....................................................................................................................... 39
Appendix A: CEBR, CECI, CEMT, CEDF ........................................................... 39
Appendix A-1: CEBR: .......................................................................................... 39
Appendix A-2: CECI ............................................................................................ 43
Appendix A-3: CEMT ........................................................................................... 47
Appendix A-4: CEDF ........................................................................................... 57
Create Maps using CA-Realia Simulator .......................................................................... 61
Translating and compiling COBOL programs using Ca-Realia ........................................ 70
File Handling using CA-Realia.......................................................................................... 80
Appendix B: Table of Figures .............................................................................. 83

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 4 / 83
 CICS LAB BOOK

Getting Started
Overview

This lab book is a guided tour for learning CICS. It comprises solved examples and ‘To
Do’ assignments. Follow the steps provided in the solved examples and work out the ‘To
Do’ assignments given.

Setup Checklist for CICS

Here is what is expected on your machine in order for the lab to work.
Minimum System Requirements
• Network PCs with Mainframe Connectivity

Please ensure that the following is done:

• PASSPORT PC-TO-HOST (mainframe terminal simulator) is installed
• Connectivity to the Mainframe
• CA-Realia Software

Instructions

• Create a directory by your name in drive <drive>. In this directory, create a

subdirectory cics_assgn. For each lab exercise create a directory as lab <lab
number>.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 5 / 83
 CICS LAB BOOK

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 6 / 83
 CICS LAB BOOK

Lab 1. Create Maps

Goals • Learn to create, edit, and compile Maps.

Time 90-120 minutes

<<To Do>>
Create a Map with the following fields (constants):
ABC LTD.
1. File Maintenance
2. Inquiry Program

Enter your Choice: _

Ctrl+Enter = Process, F10 = EXIT

Message: _________________________________________________

Operator Message: Enter-Process, F3-Exit, F5-Refresh

a. Create a data entry field named Choice with the following attributes:
LENGTH =1
INITIAL=CHAR
ATTRB=UNPROT, IC, FSET

b. Create a Stopper field for the Choice field, with the following attributes:
c. Create the Message field (Display-only) with the following attributes:
d. Define a Stopper field for the Message field.
e. Define a Dummy field with the following attributes.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 7 / 83
 CICS LAB BOOK

1.1: Compile and Submit the Map

<<To Do>>

Assignments (Part I):

Create the following Maps:

1. Menu Screen:
Customer Information System

Hindustan Pvt. Ltd. Date: 99/99/99

Menu
1. Customer Maintenance
2. Customer Inquiry

Enter Valid Choice: _

Message: _______________________________________________

Operator Message: Enter-Process, F3-Exit, F5-Refresh

Note: The Choice field is a data entry field and the Message field is a display-only field.
The remaining fields are constants.

2. Key Screen:

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 8 / 83
 CICS LAB BOOK

Customer Information System

Hindustan Pvt. Ltd. Date: 99/99/99

Enter Customer code: _______

Message: ___________________________________________________

Operator Message: Enter-Process, F3-Menu, F5-Refresh

Note: The Customer code field is a data entry field and the Message field is a display-
only field. The remaining fields are constants.

3. Detail Screen:

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 9 / 83
 CICS LAB BOOK

Customer Information System

Hindustan Pvt. Ltd. Date: 99/99/99

Modification/Inquiry/Data-entry

Customer Code: __________________

Name: ___________________

Address: ___________________

City: ___________________

Zip-Code: ___________________

Message: ___________________________________________________

Operator Message: ___________________________________________

Note: The Name, Address, City, and zip-code fields are data entry fields. The Customer
code, Message, and the Operator Message fields are display-only fields. The remaining
fields are constants.
Use following names for maps and mapsets:

Screen Map Name Mapset Name

Menu menumap menumap

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 10 / 83
 CICS LAB BOOK

Key keymap keymap

Detail detmap detmap

Case Study 1: Voting Eligibility

Here we are working with one case study-Voting Eligibility which accept birth details online and
writing them into a Birth register with unique SSN thereby generating the VOTER ID.
Major tasks are as mentioned below:
• Accept the SSN of a person
• Check eligibility criteria to vote
• Generate voter-ID based on eligibility criteria.
• Modification of the birth details is also done.
Accept the person’s details depending on the choice.
1 – BIRTH REGISTRATION
2 – DEATH REGISTRATION
3 – BIRTH MODIFICATION
4 – VOTER REGISTRY
If choice is 1, BIRTH DETAILS are entered.
If choice is 2, DEATH DETAILS are entered.
If choice is 3, the details of birth can be modified.
If choice is 4, the person can check whether he is eligible for applying the Voter ID and if some
other choice is made other than these 4 options, an error message is displayed.

Solve the given problems based on the above case study.

<<To Do>>

Problem 1:
Refer to shared file named ‘LOGIMAP’ for BMS coding
• The participants have to analyze the program, remove the error and successfully
execute the program.
• The participants have to document the error in the excel sheet along with steps
taken to resolve the errors.
Problem 2:
Refer to shared file named ‘MENMAP’ for BMS coding

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 11 / 83
 CICS LAB BOOK

• The participants have to analyze the program, remove the error and successfully
execute the program.
• BIRTH REGISTRATION choice is coded in the given program. Do enhance the
program for remaining choices such as DEATH REGISTRATION, BIRTH
MODIFICATION, VOTER REGISTRY, etc
• The participants have to document the error in the excel sheet along with steps
taken to resolve the errors.

Problem 3:
Create the following maps:

Birth Entry Map

Registration Map

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 12 / 83
 CICS LAB BOOK

Birth Details Modification Maps

Death Entry Map

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 13 / 83
 CICS LAB BOOK

Voter Status Map:

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 14 / 83
 CICS LAB BOOK

Lab 2. Translating and Compiling COBOL programs

Goals • To execute a simple pseudo conversational program

Time 30 minutes

2.1: Code the following COBOL program

IDENTIFICATION DIVISION.
PROGRAM-ID. SAMP1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-SWITCHES.
05 WS-END-SESSION PIC X(01) VALUE 'N'.
01 WS-END-SESSION-MSG PIC X(50) VALUE SPACES.
01 WS-COMM-AREA PIC X(01) VALUE SPACES.
*
COPY SAMPMAP.
COPY DFHAID.

LINKAGE SECTION.
01 DFHCOMMAREA PIC X(01).
**
PROCEDURE DIVISION.
0000-MAIN SECTION.
IF EIBCALEN = ZEROS
PERFORM 1000-FIRST-TIME
ELSE
MOVE DFHCOMMAREA TO WS-COMM-AREA
PERFORM 2000-SUBSEQUENT.
*
IF WS-END-SESSION = 'Y'
EXEC CICS
SEND TEXT
FROM(WS-END-SESSION-MSG)
LENGTH(+50)
ERASE
FREEKB
END-EXEC
EXEC CICS
RETURN
END-EXEC
ELSE
EXEC CICS
RETURN

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 15 / 83
 CICS LAB BOOK

TRANSID('TRN1')
COMMAREA(WS-COMM-AREA)
LENGTH(+1)
END-EXEC.
0000-EXIT.
EXIT.
*

1000-FIRST-TIME SECTION.
MOVE LOW-VALUES TO SAMPMAPI.
MOVE -1 TO CHOICEL.
EXEC CICS
SEND MAPSET('SAMPMAP')
MAP('SAMPMAP')
FROM(SAMPMAPI)
ERASE
FREEKB
CURSOR
END-EXEC.
1000-EXIT.
EXIT.
*
2000-SUBSEQUENT SECTION.
IF EIBAID = DFHENTER
PERFORM 2100-PROCESS-CHOICE
ELSE IF EIBAID = DFHPF10
MOVE 'SESSION ENDED' TO WS-END-SESSION-MSG
MOVE 'Y' TO WS-END-SESSION
ELSE
MOVE 'INVALID ATTENTION KEY PRESSED' TO MESSAGEI.
*
IF WS-END-SESSION NOT = 'Y'
PERFORM 2500-SEND-MAP.
2000-EXIT.
EXIT.
2100-PROCESS-CHOICE SECTION.
PERFORM 2110-RECEIVE-MAP.
IF CHOICEL = ZEROS OR CHOICEI = SPACES
MOVE 'YOU MUST ENTER CHOICE' TO MESSAGEO
ELSE
IF CHOICEI = 1
MOVE 'ASSIGN1 NOT READY' TO MESSAGEO
ELSE IF CHOICEI = 2
MOVE 'ASSIGN2 NOT READY' TO MESSAGEO
ELSE
MOVE 'INVALID CHOICE ' TO MESSAGEI.
2100-EXIT.
EXIT.
2500-SEND-MAP SECTION.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 16 / 83
 CICS LAB BOOK

MOVE -1 TO CHOICEL.
EXEC CICS
SEND MAPSET('SAMPMAP')
MAP('SAMPMAP')
FROM(SAMPMAPI)
FREEKB
CURSOR
END-EXEC.
2500-EXIT.
EXIT.

2110-RECEIVE-MAP SECTION.
EXEC CICS HANDLE CONDITION
MAPFAIL(2110-MAP-FAIL)
END-EXEC.

EXEC CICS
RECEIVE MAPSET('SAMPMAP')
MAP('SAMPMAP')
INTO(SAMPMAPI)
END-EXEC.
GO TO 2110-EXIT.
2110-MAP-FAIL
MOVE 'MAP FAIL OCCURRED' TO WS-END-SESSION-MSG.
MOVE 'Y' TO WS-END-SESSION.
2110-EXIT.
EXIT.

Example 1: Sample Program

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 17 / 83
 CICS LAB BOOK

Lab 3. Display Current Date and Time

Goals • To Create a Map to display current date and time

Time 1.5 Hrs

3.1: Creating a map to display current date and time

1. Create the following map:

DATE:

TIME:

MESSAGE:

F12=DISPLAY F3=EXIT F5=REFRESH

• When user presses F12 AID key, the Date and Time should be displayed.

Hint: Use the ABSTIME and the FORMATTIME function.

• If user presses F3 AID key, session should get terminated.

• If user presses F5 AID key, screen should get refreshed.
• If user presses any other key, screen should display the appropriate error
message.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 18 / 83
 CICS LAB BOOK

Lab 4. File Handling

Goals • Getting familiar with the programs based on file handling concepts.
Time 8 hours

Assignments 1:

Refer to shared file named ‘File Read Prog’ for CICS-COBOL coding for business logic
• The participants have to analyze the program, structure the same as per the
coding standards, remove the error and successfully execute the program.
• The participants have to document the errors in the excel sheet along with steps
taken to resolve the errors.
• 'EMPS’ is a transaction used to return information pertaining to an employee
when the “EMPID” is entered on the screen.
• Create VSAM Cluster along with the employees data.
• The map as shown below and the working storage section of the emp-info are
given for your reference. Code BMS file for the given map.
• If the employee id is found the information has to be sent to the screen (Status
field) with the message “Emp Id: XXX found.”.
• If the emp-id key is not found then status field should array the message “Key not
found.” and the ‘EMP ID” field should be set to bright.
• If the Exit option is set to “Y” then the task has to terminated.
Structure of the VSAM KSDS dataset.

Working-Storage Section.

01 EMP-IOAREA.
05 EMP-REC.
10 EMP-KEY PIC XXX.
10 EMP-NAME PIC X(32).
10 EMP-SEX PIC X.
10 EMP-DEPT PIC X(10)
10 EMP-DESIG PIC X(5).
10 EMP-SAL PIC 9(7).

EMPLOYEE INFORMATION FORM

Employee ID :
Employee Name :
Employee Designation:
Sex:
Department :
Salary :
Status :

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 19 / 83
 CICS LAB BOOK

EXIT : X

Assignments 2:

1. Write a program for Customer File Maintenance Module.

• Type the customer code on the Key screen.
• If customer code is not present in the data file, then perform the following to
add the record:
➢ Display the DETAIL screen with the following operator message:
F2-ADD, F3-KEY-SCREEN, F5-REFRESH
➢ Unprotect all the fields except the customer code field, with the
cursor on the Name field.
➢ Key in data in all fields, and validate as follows:
o If any of the fields is blank, position the cursor on the invalid
field and display appropriate error message.
o If all the data is valid, press the F2 key to add the record in
the dataset and the control should come back to the Key
screen.
o After the control comes to the Key screen, the Message
‘Record added’ should appear in the Message field of the
Key screen.
o In case the user presses the F3 key, no action should be
taken. The message ‘No record added’ should appear in the
Message field of the Key screen.

• In case the record exists in the file, display following Operator Message on
the Detail screen.
F2-MODIFY, F4-DELETE, F3-KEY-SCREEN, F5-REFRESH
➢ To modify the record, key in data in all fields (except customer code),
and validate as follows:
o If any of the fields is blank, position the cursor on the invalid
field and display appropriate error message.
o If all the data is valid, press the F2 key to modify the record
in the dataset and the control should come back to the Key
screen.
o After the control comes to the Key screen, the Message
‘Record Modified’ should be displayed in the Message field
of the Key screen.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 20 / 83
 CICS LAB BOOK

o In case the user presses the F3 key, no action should be

taken. The message ‘No record Modified’ should be
displayed in the Message field of the Key screen.

➢ To delete the record, press the F4 key.

o The record should get deleted, and the control should go
back to the Key screen with the appropriate message.

• After processing is done for add / modify / delete, the Key screen should be
displayed. The customer code, which got added / modified / deleted, should
get displayed on the Key screen with appropriate message ‘Record added /
Record modified / Record deleted’.
• For any map, if the user presses a wrong key, then display INVALID KEY
message in the error-message box.
• Make use of some variable of WS-COMM-AREA, to determine whether to
process KEY map, ADD map, or MODIFY map.
• Make use of sections while writing program code.
• Perform all necessary fields validations before proceeding further.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 21 / 83
 CICS LAB BOOK

Lab 5. Analysis, Enhancement and Debugging Assignments

Goals Solve Analysis, Enhancement and Debugging Assignments-Case Study 1
Time 8 Hrs

Case Study 1: Voting Eligibility

Solve the given problems based on the case study referred in Lab 1 i.e. Voting Eligibility.

Problem 1:
Refer to shared program named NYPROJ.txt for CICS-COBOL partial coding.
• The participants have to analyze the program, remove the error and successfully
execute the program.
• In order to make it modular, divide the business logic into subprograms.
• The participants have to document the error in the excel sheet along with steps
taken to resolve the errors.
• Wherever required, enhance the given program to fulfill the given requirements
by developing the correct business logic.
• In the shared program, authorized user credentials are hard coded. Create a
separate dataset which will take care of user credentials and refer to the same in
the code as a good practice.
• Some of the constraints that need to take care are:
o If the person is dead, then the respective record in the VOTER register
will be deleted only if that entry is present in voter list and will be updated
in the DEATH file.
o The status is given whether the person is eligible for the voter registry.
o If the person is alive and his age is greater than 18yrs, then that person
is eligible to be in voter list.
o If he/she is dead or not having the required age then respective message
is displayed.
o The details of the people are taken and are updated in the corresponding
birth and death files.
o If the person is eligible then those are updated in the voter registry.

Stretched Assignment based on the given Case Study:

Do implement COBOL Batch applications to generate the given reports.
➢ Generate BIRTH certificate with unique SSN.
➢ Accept the SSN, checks eligibility criteria to vote and generate voter-ID. Sample
Report for Voter Identity Card is provided for your reference.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 22 / 83
 CICS LAB BOOK

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 23 / 83
 CICS LAB BOOK

Lab 6. Analysis, Enhancement and Debugging Assignments

Goals Solve Analysis, Enhancement and Debugging Assignments-Case Studies
Time 4 Hrs

Case Study: The Census management system

The Census management system will be used to produce statistics that are relevant to
data users and that every action in a census must be directed towards producing relevant
output that meets the needs of public.

Functional components of the case study:

Following is a list of functionalities of the system. Wherever, the description of

functionality is not adequate; you can make appropriate assumptions and proceed.

◆ Data processing ( Data capture, Data editing, Coding, Tabulation)

◆ Dissemination (publication of printed tables and reports, dissemination on
computer media, on-line dissemination)
◆ Evaluation (demographic analysis for census evaluation, post-enumeration
survey)
◆ Analysis of the results
◆ Publication of census results (descriptive reports, basic statistical reports)

Refer to shared files for BMS coding as well for COBOL Coding.

• The participants have to analyze the program, remove the error and successfully
execute the program.
• File named census.cbl contains incomplete COBOL coding which you need to
understand and complete as per the requirements of the system
• The participants have to document the error in the excel sheet along with steps
taken to resolve the errors.

Case Study: Insurance Policy Processing System (IPPS)

Refer to shared file ‘INSURANCE POLICY PROCESSING SYSTEM’ for the problem.

Online Processing:
This is the initial step which will allow the Agent/Customer to create a new policy or the
customer can edit his existing policy. CICS would be used to create this OLTP (Online
Transaction Processing) System

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 24 / 83
 CICS LAB BOOK

Refer to the file structure and all other required details used in familiarization to MF
course.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 25 / 83
 CICS LAB BOOK

Lab 7. Browse records

Goals • Write program for browsing records of the customer file

Time 3 Hrs

5.1: Write a program for Customer Inquiry Module.

Step 1: Write a program for Customer Inquiry Module.

1. Display the DETAIL screen.
2. Allow the user to enter specific CUST-CODE or go for various AID keys.
3. Provide the following keys to the user to perform an inquiry:
➢ ENTER-PROCESS
➢ F1-FIRST
➢ F2-LAST
➢ F7-PREVIOUS
➢ F8-NEXT
➢ F5-REFRESH
➢ F3-EXIT
4. Display appropriate error messages in the error message box.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 26 / 83
 CICS LAB BOOK

Lab 8. Temporary Storage Queue

Goals • To create a TSQ and use it in modification

Time 2 hours

6.1: Using TSQ in the MODIFY routine

Use TSQ in the MODIFY routine (Assignment of Lab 4) to determine whether record has
been changed during the current task’s pseudo-conversational cycle. For this use the
following procedure:
Step 1: READ the record for specified customer code.
Step 2: If record is found, store it in a TSQ.
Step 3: Send the DETAIL map to perform MODIFY or DELETE routine.
Step 4: For processing detail screen for modification, perform read with update. After this
I/O, again read the record with UPDATE option and now compare this record, which is
read, and the one, which is there in the TSQ. If both are same, it implies that no other
task has modified that record. So continue processing. If the comparison fails, then
display the message “Record has already been modified by someone. Enter the changes
again”.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 27 / 83
 CICS LAB BOOK

Lab 9. Menu Handling

Goals • To create an Integrated Menu driven application

Time 3 Hours

7.1: Creating a Menu driven application

Step 1: Integrate Assignments of lab 1, lab 4, lab 5 to create a Menu driven application.
• Accept the choice from the MENU program.
➢ In case the operator selects option 1, pass control to the
Maintenance (Assignment part IV) program, which will perform File
Maintenance. After exiting from the File Maintenance program, the
control should come back to the Menu program.
➢ In case the operator selects option 2, pass control to the Inquiry
(Assignment 5) program, which will perform the Inquiry. After exiting
from the Inquiry program, the control should come back to the Menu
program.
➢ Ensure that Assignment Part IV and Assignment Part V get executed
only through the Menu program. It should not get invoked through
transaction code.

Note: Use XCTL to invoke Assignment part IV and Assignment V.

Hint: General Guidelines for all Assignments:

• Check for EIBCALEN=0 for invalid entry to INQUIRY and MAINTENANCE
program. (The entry should be always from MENU program).
• Check the CA-PROCESS-SW in the main section to branch out to different
sections.
• Use “GO TO” to take control to the EXIT paragraph in the section. (Code EXIT at
the end of every section).
• Code CICS command and the associated HANDLE CONDITION in the same
section.
• All working-storage variables must be initialized.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 28 / 83
 CICS LAB BOOK

• Each section must be preceded with proper documentation.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 29 / 83
 CICS LAB BOOK

Lab 10. Bank Application

Goals • To create an Integrated Bank application
Time 4 Hours

1. Preface
The purpose of this document is to provide specification description of the module
exercise & document the project results on completion.

2. Project Requirements
ABC Bank of India wants to create an application to automate their Business. This
application should allow them to maintain their customer information and daily
transactions of debit or credit. Application needs to be created in CICS and
VSAM.

3. Design Details

3.1 File Layout

❖ Input/Output:

Following files needs to be created

File1: ABCCUST – To store the customer information

Field Type Length Value/Format/Criteria

ABCCUST-ACCOUNT-NO X 6 VSAM Key
ABCCUST-ACC-TYPE X 1 S-Savings, C-Current
ABCCUST-NAME X 20 Customer Name
ABCCUST-DOB X 10 YYYY-MM-DD – Date of birth
ABCCUST-ADDRESS X 30 Includes Address, City, State
ABCCUST-PHONE X 10
ABCCUST-JOIN-DATE X 10 YYYY-MM-DD
ABCCUST-BALANCE 9 7v99 Comp-3 – Current Balance
Filler X 18
Total record length 110

File2: ABCTRAN – To store the daily transaction

Field Type Length Value/Format/Criteria

ABCTRAN-DATE X 8 VSAM Key – YYYY-MM-DD

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 30 / 83
 CICS LAB BOOK

ABCTRAN-TRAN-NO X 12 VSAM Key – Account number +

Current time HHMMSS
ABCTRAN-TRAN-TYPE X 1 C – Credit, D-Debit
ABCTRAN-AMOUNT 9 7V99 COMP-3
Filler X 24
Total record length 50

Note: Key of the file is combination of date and transaction number. Transaction number
is created based on the xxxxxxHHMMSS (Account number x(06) and current time stamp
X(06))

3.2 Screen Design

Screen 1: This screen is the main screen and customer entry/view and updates are
managed in this screen. All the fields are mandatory except Balance field. Balance field
is for view only

ABC BANK OF INDIA

CUSTOMER ENTRY SCREEN
Account No : ______ Account Type : _

Name : _________________ Date of Birth : ____-__-__

Address : ____________________________________

Phone : ____________

Joining Date : ____-__-__

Balance : 0000000.00

Message:
_______________________________________________________________
__________
============================================================
====================
PF2: REFRESH PF3: EXIT PF4: SAVE PF5: UPDATE
PF12: DELETE
PF13 – TRANS SCREEN PF14-REPORT1 PF15-REPORT2

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 31 / 83
 CICS LAB BOOK

Screen 2: This screen can be initiated from Customer entry screen by pressing PF13.
This screen is used to enter the transactions (Credit or Debit)

ABC BANK OF INDIA

TRANSACTION ENTRY SCREEN
Account No : ______

Transaction type : _

Amount : 000000.00

Current Balance : 0000000.00

Message:
________________________________________________________________
_________

PF2: REFRESH PF3: EXIT PF4: SAVE

PF13 – CUST SCREEN PF14-REPORT1 PF15-REPORT2

3.3 Report Layout

Report Screen 1:

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 32 / 83
 CICS LAB BOOK

ABC BANK OF INDIA

Daily Report Screen
Date :____-__-__

Account No Transaction Transaction Amount

Time Type
________________________________________________________________
______________________

xxxxxx xx:xx:xx x
000000.00
xxxxxx xx:xx:xx x
000000.00
xxxxxx xx:xx:xx x
000000.00
xxxxxx xx:xx:xx x
000000.00
xxxxxx xx:xx:xx x
000000.00
xxxxxx xx:xx:xx x
000000.00
xxxxxx xx:xx:xx x
000000.00
xxxxxx xx:xx:xx x
000000.00
xxxxxx xx:xx:xx x
000000.00
xxxxxx xx:xx:xx x
000000.00

Message:
________________________________________________________________
_________
=============================================================
===================
PF2: REFRESH PF3: EXIT PF7: UP PF8:
Down
PF13 – CUST SCREEN PF14-TRANS SCREEN PF15-
REPORT2

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 33 / 83
 CICS LAB BOOK

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 34 / 83
 CICS LAB BOOK

Report Screen 2:

ABC BANK OF INDIA

Customer Report Screen
Account No :______

Customer Name : Current Balance : 0000000.00

Date Transaction Transaction Amount
Time Type
________________________________________________________________
______________________

xxxx-xx-xx xx:xx:xx x
000000.00
xxxx-xx-xx xx:xx:xx x
000000.00
xxxx-xx-xx xx:xx:xx x
000000.00
xxxx-xx-xx xx:xx:xx x
000000.00
xxxx-xx-xx xx:xx:xx x
000000.00
xxxx-xx-xx xx:xx:xx x
000000.00
xxxx-xx-xx xx:xx:xx x
000000.00
xxxx-xx-xx xx:xx:xx x
000000.00
xxxx-xx-xx xx:xx:xx x
000000.00
xxxx-xx-xx xx:xx:xx x
000000.00

Message:
________________________________________________________________
_________
=============================================================
===================
PF2: REFRESH PF3: EXIT PF7: UP PF8:
Down

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 35 / 83
 CICS LAB BOOK

PF13 – CUST SCREEN PF14-TRANS SCREEN PF15-

REPORT1

Pseudo code
Screen 1: - Program 1: Customer Entry screen
1. User enters Account number and presses ENTER key: Account information needs to
be displayed based on the customer data available in the File.
a. If the customer information NOT FOUND then allow the user to type the rest
of the information.
b. If the customer information FOUND then allow the user to change the details,
(Except Balance) based on PF5 Key press update the changes. Based on
PF12 Key press delete the Account details

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 36 / 83
 CICS LAB BOOK

2. Enter all the information (Except Balance field – Protected) and press PF4: Insert the
record into ABCCUST file. If the account number already exists, display the error
message
3. PF13 Key press: Transfer the control to program 2 (Transaction Entry)
4. PF14 Key press: Transfer the control to Report program 1 (Daily report screen)
5. PF15 Key press: Transfer the control to Report program 2 (Customer report screen)
Screen 2: - Program 2: Transaction Entry screen
1. User enters Account number and presses ENTER key: Account Balance will be
displayed in the protected field.
2. Enter all the information (Except Balance field – Protected) and press PF4: Insert the
record into ABCTRAN file. If the account number not exists, display the error
message
3. PF13 Key press: Transfer the control to program 1 (Customer Entry)
4. PF14 Key press: Transfer the control to Report program 1 (Daily report screen)
5. PF15 Key press: Transfer the control to Report program 2 (Customer report screen)

Report 1: - Program 3: Daily Report screen

1. User enters Date and presses ENTER key: All the transaction belongs to that date
needs to be displayed.
a. Start the ABCTRAN file using key (Date + low values) and read all the
records and write into TSQ till the date ends.
b. From the TSQ read the records and display into Screen.
c. If the date is changed then delete the TSQ and reload the new records
d. If no records are available for that date, display error message

2. PF7 – Read the previous page of records from TSQ and display
3. PF8 – Read the next page of records from TSQ and display
4. PF13 Key press: Transfer the control to program 1 (Customer Entry)
6. PF14 Key press: Transfer the control to Program 2 (Transaction Entry)
7. PF15 Key press: Transfer the control to Report program 2 (Customer report screen)

Report 2: - Program 4: Customer Report screen

1. User enters Customer number and presses ENTER key: Customer information and
all the transaction belongs to that customer needs to be displayed.
a. Read the ABCCUST file and based on the customer number and display to
the screen (Save this to Commarea).
b. Start the ABCTRAN file using key (low values) and read all the records, and
write the matching customer records into TSQ till the file ends.
c. From the TSQ read the records and display into Screen.
d. If the Customer number is changed then delete the TSQ and reload the new
records
e. If no records are available for that Customer, display error message

5. PF7 – Read the previous page of records from TSQ and display
6. PF8 – Read the next page of records from TSQ and display
7. PF13 Key press: Transfer the control to program 1 (Customer Entry)
2. PF14 Key press: Transfer the control to Program 2 (Transaction Entry)
3. PF15 Key press: Transfer the control to Report program 1 (Daily report screen)

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 37 / 83
 CICS LAB BOOK

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 38 / 83
 CICS LAB BOOK

Appendices

Appendix A: CEBR, CECI, CEMT, CEDF

Appendix A-1: CEBR:

The Temporary Storage Browse (CEBR) is a CICS supplied transaction, which

browses Temporary Storage Queue (TSQ). It is a convenient tool if you need to display
the content to TSQ when you are monitoring an application program through EDF.
Invoking CEBR is simple. Type CEBR, and press Enter key. Then you can type the
command QUEUE <TSQ Name>, and press Enter key. The content of the TSQ will be
displayed.

Figure 1: CEBR

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 39 / 83
 CICS LAB BOOK

Figure 2: CEBR

Press PF3 key to end the session.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 40 / 83
 CICS LAB BOOK

Figure 3: Browse ended message

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 41 / 83
 CICS LAB BOOK

Figure 4: CEBR

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 42 / 83
 CICS LAB BOOK

Appendix A-2: CECI

CECI is Command Level Interpreter (CECI). It is a CICS-supplied transaction which

performs interactive patching into application System.
In CICS, you need to expedite modules. These can be instances wherein the module
gets trapped and even after ending the expediter session the module is not released.

Objective: To Release a Program:

Step 1: Type the command CECI REL PROG (H2537QAC)
H2537QAC is the module name.
Argument used for module is PROG (Program).

Figure 5: Typing the command

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 43 / 83
 CICS LAB BOOK

Output is as shown below:

Figure 6: Output

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 44 / 83
 CICS LAB BOOK

Step 2: Press Enter key to release the program.

Figure 7: Response: Normal

If the program is already released, the response is INVREQ as you can see in the screen
shot shown below:

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 45 / 83
 CICS LAB BOOK

Figure 8: Response: INVREQ

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 46 / 83
 CICS LAB BOOK

Also if the program name is not valid, Response is PGMIDERR. It means that the module
name entered is invalid or such a module does not exist.

Figure 9: Response: PGMIDERR

Appendix A-3: CEMT

CEMT (Enhanced Master Terminal) transaction is a CICS supplied transaction, which

manipulates the CICS environment, such as transactions, programs, files, TAQs, and
tasks.

Major functions:
• INQUIRE: To inquire about the status of CICS environments
• SET: To update the status of the CICS environments
• PERFORM: For further system operations

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 47 / 83
 CICS LAB BOOK

Example:
Objective: Close a file in CICS environment.
Steps:
Step 1: Type Command: CEMT SET FILE (H2537NBL)

Figure 10: Typing the command

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 48 / 83
 CICS LAB BOOK

Output is as shown below:

Figure 11: Output

Step 2: Type Clo and press Enter key.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 49 / 83
 CICS LAB BOOK

Figure 12: Typing Command

Output is as shown below:

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 50 / 83
 CICS LAB BOOK

Figure 13: Output

As you can see, the file was earlier Open (Ope) and now after keying in the command
‘Clo’ the status of the file has changed to Close (Clo).
To open the file, issue command ‘Ope’ in similar fashion.
End the transaction by pressing PF3 key.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 51 / 83
 CICS LAB BOOK

Figure 14: Session ended message

You can see that Status: Session Ended.

Note: The command is not case sensitive.
Using CEMT you can also NEWCOPY module.
Say you have made changes to your module but it has not reflected in the region. You
need to do a new copy (this means overlay the previous version).

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 52 / 83
 CICS LAB BOOK

Figure 15: Typing command

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 53 / 83
 CICS LAB BOOK

Figure 16: Output

As you can see, the Length is (00000000). This means that the module is not present in
the region.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 54 / 83
 CICS LAB BOOK

Figure 17: Output

Suppose you type the command NEWC.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 55 / 83
 CICS LAB BOOK

Figure 18: Output

The Length changes indicating that the module is now present in the region.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 56 / 83
 CICS LAB BOOK

Appendix A-4: CEDF

CEDF is the Execution Diagnostic Facility.

Step 1: Type CEDF on the screen, and press Enter key.

Figure 19: Typing the CEDF command

Output will be as shown below.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 57 / 83
 CICS LAB BOOK

Figure 20: Output

Step 2: Type the transaction to spawn, and press Enter key.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 58 / 83
 CICS LAB BOOK

Figure 21: Typing the command

Output will be as shown below:

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 59 / 83
 CICS LAB BOOK

Figure 22: Output

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 60 / 83
 CICS LAB BOOK

Create Maps using CA-Realia Simulator

• Learn to create, edit and compile Maps

Goals

Lab Setup
Successful installation of Advantage CA-Realia WorkBench 3.2 IDE

I. Start the WorkBench IDE

i) Select Start->Programs->Computer Associates->Advantage->CA-Realia-
>WorkBench ID

II. Create the Map

i) Select Tools->CICS Utilities->CICS BMS Map Edit

ii) Select F4 to Edit the Mapset Header definition

(1) Navigate using tab keys
(2) Select TYPE=&SYSPARM,CTRL->Freekb,MODE=Inout

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 61 / 83
 CICS LAB BOOK

(3) Select F9 to complete the definition of Map Header

iii) Select F3 to Edit the Map Header definition

(1) Navigate using tab keys

(2) Select CTRL->Freekb,EXATT->No,COLUMN->,LINE->1,TIOAPFX->Yes

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 62 / 83
 CICS LAB BOOK

(3) Select F9 to complete the definition of Mapset Header

iv) Select F2 to Edit the map definition

(1) Move the Arrow keys and position it at the point where the heading
(constant) has to appear

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 63 / 83
 CICS LAB BOOK

v) Press F2 to select the attributes of the field

(1) Navigate using tab keys
(2) To select individual attributes such as Brt, Askip press F1
(3) The selected option will be highlighted, as shown in the figure below

vi) Press F9 to complete the definition of the field. Type the Initial value for the field

<<to do>>
Similarly, create a Map with the following fields (constants)

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 64 / 83
 CICS LAB BOOK

(1) Create a Data entry field named choice with the following attributes

(2) Create a Stopper field for the choice field, with the following attributes

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 65 / 83
 CICS LAB BOOK

(3) The map with the choice field and the stopper field should resemble the
following screen

(4) Create the Message field (Display-only) with the following attributes

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 66 / 83
 CICS LAB BOOK

(5) Press F9 to complete the definition of the Message field

(6) Define a stopper field for the Message field

(7) Define a Dummy field with the following attributes

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 67 / 83
 CICS LAB BOOK

(8) The final map should resemble the screen displayed below

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 68 / 83
 CICS LAB BOOK

(9) Press ESC to complete the definition of the map

vii) Press F5 to save the Map definition and F10 to exit the Map

III. Compile the Map

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 69 / 83
 CICS LAB BOOK

<<to do>>
1) Select the Mapset from the appropriate directory.
2) View the additional files generated, after successful compilation of the
mapset.
3) View the sampmap.bms,sampmap.cbl file in any editor

Translating and compiling COBOL programs using Ca-Realia

I. Code the following COBOL program in the Workbench IDE(Editor).

II. Add appropriate entries in the PPT and PCT for the COBOL Program and the Mapset.
i. Select CICS system setup

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 70 / 83
 CICS LAB BOOK

ii. Select the CSS file from the appropriate folder

ii. Select Resource->Transaction (PCT), to add entries in the Program

Control Table

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 71 / 83
 CICS LAB BOOK

iii. Select Edit->Insert to add entries in the PCT

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 72 / 83
 CICS LAB BOOK

iv. Add the following entry to associate the Transaction with the
program.

v. Select Resource->Program to add entries in the PPT

vi. Add the following entries to add the program and the Mapset in the
PPT.

III. Build the Cobol Program.

1. Select Build->Options->Program:<Undefined>…

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 73 / 83
 CICS LAB BOOK

2. Select CICS Application

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 74 / 83
 CICS LAB BOOK

3. Build the COBOL program

4. Select Build->Options->Program:<Undefined>…

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 75 / 83
 CICS LAB BOOK

5. On the above screen select New… and then select the

Session Init File and the working directory.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 76 / 83
 CICS LAB BOOK

6. Open the file sample.css in any editor and enter TRN1 as the
transaction.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 77 / 83
 CICS LAB BOOK

7. Execute the Program

8. The screen as shown below is displayed

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 78 / 83
 CICS LAB BOOK

<< to do >>
1) Enter the choice as 1,2,3 and note the message.
2) Press an invalid AID key and note the message

9. Press the F10 key to terminate the session

IV. Debug the CICS Program

The debug option can be used to debug the CICS program.

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 79 / 83
 CICS LAB BOOK

File Handling using CA-Realia

I. Add the dataset to the FCT.

i. <<to do >>
1. Select Tools->CICS utilities-> CICS system setup…

2. Select sample.css from the appropriate folder

ii. Select Resource->File Name

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 80 / 83
 CICS LAB BOOK

iii. Select Edit->Insert

iv. Specify the file type, length of the key field, maximum record length,
dsname

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 81 / 83
 CICS LAB BOOK

v. The Filename gets added in the FCT

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 82 / 83
 CICS LAB BOOK

After adding the dataset to the FCT, the dataset can now be referred to in any
program, which references the dataset.

Appendix B: Table of Figures

Figure 1: CEBR.............................................................................................................................. 39
Figure 2: CEBR.............................................................................................................................. 40
Figure 3: Browse ended message ................................................................................................. 41
Figure 4: CEBR.............................................................................................................................. 42
Figure 5: Typing the command ...................................................................................................... 43
Figure 6: Output ............................................................................................................................. 44
Figure 7: Response: Normal .......................................................................................................... 45
Figure 8: Response : INVREQ ...................................................................................................... 46
Figure 9: Response: PGMIDERR .................................................................................................. 47
Figure 10: Typing the command .................................................................................................... 48
Figure 11: Output ........................................................................................................................... 49
Figure 12: Typing Command ......................................................................................................... 50
Figure 13: Output ........................................................................................................................... 51
Figure 14: Session ended message .............................................................................................. 52
Figure 15: Typing command .......................................................................................................... 53
Figure 16: Output ........................................................................................................................... 54
Figure 17: Output ........................................................................................................................... 55
Figure 18: Output ........................................................................................................................... 56
Figure 19: Typing the CEDF command ......................................................................................... 57
Figure 20: Output ........................................................................................................................... 58
Figure 21: Typing the command .................................................................................................... 59
Figure 22: Output ........................................................................................................................... 60

©2016 Capgemini. All rights reserved.

The information contained in this document is proprietary and confidential. For Capgemini only. | 83 / 83