Customer Information Control Systems – Session 2

Objectives of CICS – Session 2

 Purpose:
• To introduce the concepts of Screen Designing using CICS

 Product:
• To be able to code the Screen that will be used in the CICS
Program.
• To be able to send and receive data online using a CICS Program.

 Process:
• Theory Sessions.
• A review at the end of the session.

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2007 Capgemini - All rights reserved 1
VSAM – Session 2
 Screen Generation using BMS
• Mapset Generation
• Map Generation
• Field Generation
 Physical and Symbolic Maps
 The importance of the Attribute Byte
 BMS Commands
• Send
• Receive
 Cursor positioning Techniques
• Static Positioning
• Dynamic Positioning
 Stopper / Skipper Techniques
Learning & Culture
All work described was performed by Capgemini or a Capgemini affiliate
© 2007 Capgemini - All rights reserved 2
Input Data Stream to Application Program

 Only modified fields are transmitted

 Titles & Labels not transmitted

 Unused portion / Labels on right-hand side of field is not

transmitted.

 ENTER & PF keys cause transmission of data

 CLEAR & PA keys do not transmit data. Only identity of key

sent back

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 3
Basic Mapping Support – BMS

 BMS helps in solving the problems that may arise due to:
• Change in terminal device
• Change in Screen format, although field size may remain the same
• Change to be done in the program, because of the above two
reasons.

 Hence BMS provides

• device independence
• Format independence

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 4
Screen Generation using BMS – Mapset

 A Mapset
• Helps to move data streams to & from terminal

• Allows one program to converse with different types of terminals

• Introduces the attribute characteristics, depending on terminal type.

• Helps to maintains field locations on screen.

• Is coded as Assembler Macro

• Requires a PPT entry as CICS considers the MAPSET as an

Assembler program.

• Stores display fields in table called MAP

• Assembles a series of macro instructions to create a physical &

symbolic map Learning & Culture
All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 5
Screen Generation using BMS – Map

 A Map is a Screen format that is defined using BMS

 There are two types of Maps
• Physical Map
 Coded using BMS Macros, assembled & link edited into CICS load
library.

 CICS loads it when executing the program using this map.

• Symbolic Map
 Coded using BMS Macros, assembled and cataloged into a Copy Book

 It contains map data structure, which is copied into CICS application

program at time of compilation

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 6
Physical Map
 The primary objective of the physical map is to ensure the
device independence in the application programs.

 The physical map defines maximal data length and starting

position of each field to be read and allows BMS to interpret
an input NMDS.

 Physical map is a program in a form of load module.

 Requires a PPT entry as the Physical Map is a Load

Module.

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 7
Physical Map – continued

Physical Map coded Compiled and Link

using BMS Macro Edited to create the
(Assembly Load Module
Language Macro)

CICS loads the Entry done in PPT,

Physical map as as CICS considers
and when required this as a program
as it would any
other program

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 8
Symbolic Map

 The primary objective of the BMS symbolic map is to

ensure the format independence to application programs.

 A layout change in the formatted screen can be done

independent of the application program coding as long as
the field name and length remain the same.

 Symbolic map is included in a form of copy library member

in COBOL application programs (COPYLIB).

 at the time of application program compile, it will be copied

into the application program.

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 9
Symbolic Map – continued

Symbolic Map Compiled to create

coded using BMS temporary (working
Macro (Assembly storage) variables
Language Macro)

Used in the Copied into the

program as we program as a
would use any other COPYBOOK
temporary (working
storage) variables

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 10
BMC Macros

Macro / Command Name Meaning

DFHMSD Macro used to define a Mapset
DFHMDI Macro used to define a Map within the Mapset
DFHMDF Macro used to define a field within the Map
DFHMSD TYPE=FINAL To signify the end of the Mapset
END Command to signify that there are no more
source statements.

BMS Coding format

Column-1 Column-10 Column-17 Column-72
Label OPERATION PARAMETERS Continuation
(Operation code) (operands) Character

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 11
DFHMSD Macro

 General Syntax

MSBINQ2 DFHMSD TYPE=&SYSPARM | DSECT | MAP, X

MODE=INOUT, X
LANG=COBOL, X
STORAGE=AUTO, X
TIOAPFX=YES, X
CNTL=(FREEKB,FRSET,ALARM,PRINT)

DFHMSD TYPE=FINAL

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 12
 DFHMSD Macro – continued
Option Meaning
TYPE This is used to define the map type
DSECT  for Symbolic Map
MAP  for Physical Map
&SYSPARM  will accept the value at runtime to confirm if
the symbolic or the physical map is to be defined.
FINAL  to indicate the end of mapset coding
MODE To indicate input / output operation
IN  for Input map
OUT  for output map
INOUT  for Input / Output Map. This is recommended for
maps that will both input and output the data.
LANG To define the language of the application program (COBOL,
PL/I or Assembler)
STORAGE=AUTO To acquire a separate symbolic map area for each mapset.
For now, this must always be given.

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 13
 DFHMSD Macro – continued
Option Meaning
TIOAPFX=YES To reserve 12 bytes of prefix space for BMS commands to
access TIOA properly. This must always be given.
CNTL To define the device control requests
FREEKB  to unlock the keyboard
FRSET  To reset MDT to 0 (off).
ALARM  To set the alarm at screen display time
PRINT  To indicate the mapset to be sent to the printer.

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 14
DFHMDI Macro

 It is used to code a Map

 It is used as many times as there are Maps to be coded in a

single Mapset.

 Largest map in Map Set should be coded first in COBOL

 can be used to override the settings done in the Mapset for

a particular Map.

 General Syntax
MPBINQ2 DFHMDI SIZE=(24,80), X
LINE=1, X
COLUMN=1, X
JUSTIFY=LEFT

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 15
DFHMDF Macro

 It is used to code a Field within a Map

 It is used as many times as there are Fields in the Map.

 For protected field only one DFHMDF macro needed.

 For unprotected field, 2 DFHMDF macros needed. One to

mark beginning & the other the end.

 can be used to override the settings done in the Map for a

particular Field.

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 16
DFHMDF Macro – continued

 General Syntax
DFHMDF POS=(3,1), X
INITIAL=‘CUSTOMER NO.:’, X
ATTRB=ASKIP, X
LENGTH=14

CUSTNO DFHMDF POS=(3,16), X

ATTRB=(UNPROT,NUM,FSET,IC), X
JUSTIFY=RIGHT, X
PICIN=‘9(8)’, X
PICOUT=‘9(8)’, X
LENGTH=8

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 17
 DFHMDF Macro – continued

Options Meaning
POS The row and column where the field is to be display. Note that this row
and column will also include the invisible Attribute byte.
INITIAL Hard coded values that you want displayed on the screen.
ATTRIB Used to define the characteristics of the field. This parameter can have
many options, that have been discussed in subsequent slides.
LENGTH The Length of the field, excluding the attribute character.
JUSTIFY RIGHT  for right justifying the field value
LEFT  for left justifying the field value
PICIN Defines the PICTURE Clause of the input field created in the symbolic
map
PICOUT Defines the PICTURE Clause of the output field created in the symbolic
map

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 18
Fields created in the Symbolic Map

File Name Meaning

FIELDNAMEI The [I]nput field is used to accept data from the user. If no
data were typed in the screen field, X‟00‟ (low-values) will
be filled.
FIELDNAMEO The [O]utput field is used to display data to the user.
FIELDNAMEL The [L]ength field which contains actual number of
characters typed in the screen field.
This is stored as Halfword Binary (PIC S9(04) COMP)
FIELDNAMEF The [F]lag byte field, which is normally X‟00‟(Low values).
It will be X‟80‟(high values) if the screen field has been
modified but cleared.
FIELDNAMEA The [A]ttribute byte

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 19
The Attribute Byte

 Each field in the map has an attribute field connected with

it.

 The attribute field is an invisible 1-byte character.

 It occupies a position on the map and always precedes the

field whose characteristics it controls.

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 20
 Attribute Character Format

Bit Function
0,1 Value determined by contents of bits 2 to 7
2 0 – Unprotected
1 – Protected
3 0 – Alphanumeric
1 – Numeric
2, 3 11 – Autoskip
4, 5 00 – Normal Intensity / Non-detectable
01 – Normal Intensity / Detectable
10 – High Intensity / Detectable
11 – Dark / Non-detectable
6 0 – Must be zero
7 0 – Not Modified (MDT Off)
1 – Modified (MDT On)
Learning & Culture
All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 21
 Some commonly used Attributes
Options Meaning
ASKIP Autoskip.
The cursor skips to the next field, hence data cannot be entered into the field.
PROT Protected Field.
Data cannot be entered, if entered then it causes an input-inhibit status.
UNPROT Unprotected Field.
Data can be entered. This should be specified for all input fields.
NUM Numeric field.
Only numeric fields (0 to 9) and special characters (“.” and “-”) are allowed.
Alphabet input causes input-inhibit status.
BRT Bright Display (highlight)
NORM Normal Display
DRK Dark Display (invisible). Useful for password field.
IC Insert Cursor.
The cursor will be positioned in this field.
If specified for more than 1 field, the cursor will be placed in the last field.
FSET Field Set.
MDT is set on, so that the field data will be sent to the program irrespective of
whether the data in the field was modified or not. Learning & Culture
All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 22
Standard Attribute Character List

 CICS provides the standard attribute character list in the

form of a COPY BOOK (DFHBMSCA), which can be copied
into the application program.

 Some of the useful standard attribute characters are:

Name Function
DFHBMASK AutoSkip
DFHBMFSE Unprotected, MDT on
DFHUNNUM Unprotected, MDT on, numeric
DFHUNIMD Unprotected, high intensity, MDT on
DFHUNINT Unprotected, high intensity, MDT on, numeric

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 23
Modified Data Tag (MDT)
 This is a one-bit attribute character.

 If it is off (0), it indicates that the field has not been

modified.

 If it is on (1), it indicates that the field has been modified.

 Only when the MDT is on, will the data of the field will be
sent from the terminal to the program.

 This is done to ensure that only modified data is transferred

to the program.

 Hence BMS maps and Application programs should be

developed based on careful consideration for MDT.

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 24
Modified Data Tag (MDT) – How to set / reset MDT
 There are four ways for setting or resetting MDT.
• When the user modifies the field, the MDT is automatically set ON

• If CNTL=FRSET is specified in the DFHMSD or DFHMDI macro,

when the Mapset or Map is sent to the terminal, MDT is reset to off
(0) for all the fields in the Mapset or Map.

• If FSET is specified in the ATTRIB parameter of the DFHMDF

macro, when the map is sent to the terminal, MDT is set to on (1) for
that field. This means that the data for this field will be sent back to
the program regardless of whether the field has been modified or
not.

• The MDT tag can to set on (1) or off (0) through the application
program by resetting the MDT bit using variables given in the
DFHBMSCA copybook.

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 25
BMS Commands

 CICS commands for BMS perform three basic functions:

• Map Sending Function

• Map Receiving Function

• Text Handling Function

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 26
BMS Commands – continued

 Map Sending Function

• The SEND MAP command is used to send a map to a terminal.

• Before issuing this command, the program needs to prepare the

data in the symbolic map of the map to be sent.

• The following fields of the symbolic map will get impacted

Name Meaning
FieldnameL The length field, this is updated only in case of dynamic positioning.
FieldnameA The attribute field, this is updated only in case of dynamic attribute
assignment.

FieldnameO The actual output data field to which the application program must
place the data.

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 27
BMS Commands – continued

 Map Sending Function

• General Syntax

EXEC CICS SEND

MAP (name)
MAPSET (name)
FROM (data-area)
[CURSOR]
[ERASE| ERASEAUP]
[ALARM]
[FREEKB]
[FRSET]
[MAPONLY / DATAONLY]
END-EXEC.

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 28
BMS Commands – continued

 Map Sending Function

Option Meaning
MAP Name of the map that is being SENT
MAPSET Name of the mapset to which this map belong.
FROM Symbolic Map area from where the data is to be picked up to be displayed.
CURSOR This is used to position the cursor dynamically on any part of the screen.
ERASE This is used to erase the current screen completely, before displaying the
new contents.
ERASEAUP This is used to erase All UnProtected fields.
ALARM This is used to make an Alarm sound.
FREEKB This is used to unlock the keyboard
FRSET This is used to reset the MDT to 0 (off) for all unprotected fields on the
screen.
MAPONLY Only the default data from the physical map is to be sent to the terminal.
DATAONLY Only the program data is to be sent to the terminal.

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 29
BMS Commands – continued
 Map Receiving Function
• The RECEIVE MAP command is used to receive a map from the
terminal.

• The data is received from the terminal is placed in the Symbolic map
area.

• The following fields of the symbolic map will get impacted

Name Meaning
FieldnameL The length field is contain the actual number of characters typed on
the screen.
FieldnameF The flag byte which is normally X‟00‟ (low-values), will be X‟80‟ (high-
values) if the screen field has been modified, but erased.
FieldnameI The actual input data field. If no data entered, then X‟00‟ (low-values)
will be filled.
Learning & Culture
All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 30
BMS Commands – continued

 Map Receiving Function

• General Syntax

EXEC CICS RECEIVE

MAP (name)
MAPSET (name)
INTO (data-area)
END-EXEC.

Option Meaning
MAP Name of the map that is being RECEIVED
MAPSET Name of the mapset to which this map belong.
INTO Symbolic Map area where the data will be placed.

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 31
BMS Commands – continued

 Text Handling Function

• BMS prepares text without using a map and sends to the terminal.
• The SEND CONTROL commands is used by program to
dynamically establish device control options without actually sending
the map.
• General Syntax
EXEC CICS SEND
CONTROL
[CURSOR]
[ERASE| ERASEAUP]
[ALARM]
[FREEKB]
[FRSET]
END-EXEC.

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 32
Cursor Positioning Techniques

 There are two ways by which we can position the cursor.

• Static Positioning
 The cursor position is defined in the map by placing „IC‟ in the ATTRIB
parameter of the DFHMDF macro for a particular field.

 If there are more than one field with IC specified, then the cursor will be
placed on the field with the last IC.

 Example

DFHMDF POS=(3,16),
ATTRB=(UNPROT,FSET,IC),
LENGTH=8

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 33
Cursor Positioning Techniques – continued

 There are two ways by which we can position the cursor.

• Dynamic / Symbolic Positioning
 The cursor is positioned through the program by placing -1 into the field
length field (i.e. field-nameL).

 When this option is used, then the SEND MAP command must have the
CURSOR option specified.

 Example

MOVE -1 TO FLD1L
EXEC CICS SEND
MAP (------)
MAPSET (-----)
CURSOR
ERASE
END-EXEC.
Learning & Culture
All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 34
Cursor Positioning Techniques – continued

 Checking Cursor Position

• EIBCPOSN field in EIB is used to know the current position of the
cursor.

• This is a half-word (S9(4) COMP) binary field and contains the offset
position of the cursor in the screen.

• It is available after the completion of the RECEIVE MAP command.

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 35
Stopper / Skipper Techniques

 Skipper Technique:
• It is good practice to always skip the cursor to the next unprotected
field after one unprotected field has been completely entered.

• For this, the skipper field is used.

• The Skipper field is an unlabeled 1-byte field with the autoskip

attribute and is placed immediately after an unprotected field.

• The skipper field is defined as given below:

DFHMDF POS=(xx,xx),ATTRIB=ASKIP,LENGTH=1

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 36
Stopper / Skipper Techniques – continued

 Stopper Technique:
• Sometimes instead of the Skipper technique, we may use another
technique in which, the cursor should be intentionally stopped after
the field in order to prevent erroneous field overflow by the user.

• For this, the stopper field is used.

• The Stopper field is an unlabeled 1-byte field with the protect

attribute and is placed immediately after an unprotected field.

• The stopper field is defined as given below:

DFHMDF POS=(xx,xx),ATTRIB=PROT,LENGTH=1

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 37
BMS error conditions

Error Condition Meaning

MAPFAIL This occurs if the data to be mapped has the length of zero.
This happens if the user presses the ENTER key without
typing data or no FSET is specified in the DFHMDF macros.
INVMPSZ Occurs if the specified map is too wide or too long for the
terminal.
OVERFLOW occurs if the mapped data does not fit on the current page
especially in the SEND MAP Command
INVREQ A RECEIVE MAP command is issued in a task that is not
associated with a terminal or An attempt was made to issue
an EXEC CICS RECEIVE MAP command from a remotely
linked-to program.

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 38
Putting it all together…….

 Let us now design and code a screen to see the total

impact. Given below is the screen that needs to be coded:

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 39
Putting it all together…….
 The Mapset will be coded as given below:
**********************************************************************
* *-----BMS MAP------* *
* PROGRAM NAME: DATABS *
* MAPSET NAME : DATABS *
* MAP NAME : DATABS *
* *------------------* *
**********************************************************************
DATABS DFHMSD TYPE=&SYSPARM,MODE=INOUT, X
CTRL=(FREEKB,FRSET), X
LANG=COBOL,STORAGE=AUTO,TIOAPFX=YES
DATABS DFHMDI SIZE=(24,80),LINE=1,COLUMN=1,JUSTIFY=LEFT
DFHMDF POS=(1,32),LENGTH=17,ATTRB=(ASKIP,BRT), X
INITIAL='DATABASE :- SEARCH'
DFHMDF POS=(1,50),LENGTH=1,ATTRB=(ASKIP)
DFHMDF POS=(3,22),LENGTH=12,ATTRB=(ASKIP,BRT), X
INITIAL='NAME :-'
NAME DFHMDF POS=(3,35),LENGTH=25,ATTRB=(UNPROT,IC,FSET) X
DFHMDF POS=(3,61),LENGTH=1,ATTRB=(ASKIP)
DFHMDF POS=(4,22),LENGTH=12,ATTRB=(ASKIP,BRT), X
INITIAL='DOB DD:-’
Learning & Culture
All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 40
Putting it all together…….
DOB-DD DFHMDF POS=(4,35),LENGTH=2,ATTRB=(UNPROT,FSET)
DFHMDF POS=(4,38),LENGTH=2,ATTRB=(ASKIP,BRT),INITIAL='MM'
DOB-MM DFHMDF POS=(4,41),LENGTH=2,ATTRB=(UNPROT,FSET)
DFHMDF POS=(4,44),LENGTH=2,ATTRB=(ASKIP,BRT),INITIAL='YY'
DOB-YY DFHMDF POS=(4,47),LENGTH=2,ATTRB=(UNPROT,FSET)
DFHMDF POS=(4,50),LENGTH=1,ATTRB=(ASKIP)
DFHMDF POS=(5,22),LENGTH=12,ATTRB=(ASKIP,BRT), X
INITIAL='EMP ID :-'
DFHMDF POS=(5,41),LENGTH=1,ATTRB=(ASKIP)
DFHMDF POS=(11,7),LENGTH=17,ATTRB=(ASKIP,BRT), X
INITIAL='NAME
NAME-DB DFHMDF POS=(11,25),LENGTH=25,ATTRB=(PROT,ASKIP)
DFHMDF POS=(11,50),LENGTH=1,ATTRB=(ASKIP)
DFHMDF POS=(13,7),LENGTH=19,ATTRB=(ASKIP,BRT), X
INITIAL='DATE OF JOINING MM:-'
DOJ-DD DFHMDF POS=(13,27),LENGTH=2,ATTRB=(UNPROT,FSET)
DFHMDF POS=(13,30),LENGTH=2,ATTRB=(ASKIP,BRT),INITIAL='MM'
DOJ-MM DFHMDF POS=(13,33),LENGTH=2,ATTRB=(UNPROT,FSET)
DFHMDF POS=(13,36),LENGTH=2,ATTRB=(ASKIP,BRT),INITIAL='YY'
DOJ-YY DFHMDF POS=(13,39),LENGTH=2,ATTRB=(UNPROT,FSET)
DFHMDF POS=(13,42),LENGTH=1,ATTRB=(ASKIP)
Learning & Culture
All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 41
Putting it all together…….
DFHMDF POS=(15,7),LENGTH=17,ATTRB=(ASKIP,BRT), X
INITIAL='DEPARTMENT :-'
DEPT DFHMDF POS=(15,25),LENGTH=25,ATTRB=(PROT,ASKIP)
DFHMDF POS=(15,50),LENGTH=1,ATTRB=(ASKIP)
DFHMDF POS=(17,7),LENGTH=17,ATTRB=(ASKIP,BRT), X
INITIAL='ACCOUNT :-'
ACCT DFHMDF POS=(17,25),LENGTH=25,ATTRB=(PROT,ASKIP)
DFHMDF POS=(17,50),LENGTH=1,ATTRB=(ASKIP)
DFHMDF POS=(19,7),LENGTH=17,ATTRB=(ASKIP,BRT), X
INITIAL='DESIGNATION :-'
DESIG DFHMDF POS=(19,25),LENGTH=25,ATTRB=(PROT,ASKIP)
DFHMDF POS=(19,50),LENGTH=1,ATTRB=(ASKIP)
DFHMDF POS=(21,7),LENGTH=17,ATTRB=(ASKIP,BRT), X
INITIAL='OFFSHORE/ONSITE:-'
STATUS DFHMDF POS=(21,25),LENGTH=8,ATTRB=(PROT,ASKIP)
DFHMDF POS=(21,34),LENGTH=1,ATTRB=(ASKIP)
DFHMDF POS=(24,7),LENGTH=8,ATTRB=(ASKIP,BRT), X
INITIAL='MESSAGE:-'
MESSAGE DFHMDF POS=(24,16),LENGTH=62,ATTRB=(PROT,ASKIP)
DFHMDF POS=(24,79),LENGTH=1,ATTRB=(ASKIP)
DFHMSD TYPE=FINAL
END Learning & Culture
All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 42
Putting it all together…….

 When this Mapset is compiled, the physical map and the

symbolic map is created.
 The symbolic map will be as given below:
01 DATABSI.
02 FILLER PICTURE X(12).
02 MAP-NAMEL COMP PICTURE S9(4).
02 MAP-NAMEF PICTURE X.
02 MAP-NAMEI PICTURE X(024).
02 MAP-DOB-DDL COMP PICTURE S9(4).
02 MAP-DOB-DDF PICTURE X.
02 MAP-DOB-DDI PICTURE X(002).
02 MAP-DOB-MML COMP PICTURE S9(4).
02 MAP-DOB-MMF PICTURE X.
02 MAP-DOB-MMI PICTURE X(002).
02 MAP-DOB-YYL COMP PICTURE S9(4).
02 MAP-DOB-YYF PICTURE X.
02 MAP-DOB-YYI PICTURE X(002).
02 MAP-EMP-IDL COMP PICTURE S9(4).
02 MAP-EMP-IDF PICTURE X.
02 MAP-EMP-IDI PICTURE X(005).
02 MAP-NAME-DBL COMP PICTURE S9(4).
02 MAP-NAME-DBF PICTURE X.
Learning & Culture
All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 43
Putting it all together…….
02 MAP-NAME-DBI PICTURE X(025).
02 MAP-DOJ-MML COMP PICTURE S9(4).
02 MAP-DOJ-MMF PICTURE X.
02 MAP-DOJ-MMI PICTURE X(002).
02 MAP-DOJ-DDL COMP PICTURE S9(4).
02 MAP-DOJ-DDF PICTURE X.
02 MAP-DOJ-DDI PICTURE X(002).
02 MAP-DOJ-YYL COMP PICTURE S9(4).
02 MAP-DOJ-YYF PICTURE X.
02 MAP-DOJ-YYI PICTURE X(002).
02 MAP-DEPTL COMP PICTURE S9(4).
02 MAP-DEPTF PICTURE X.
02 MAP-DEPTI PICTURE X(025).
02 MAP-ACCTL COMP PICTURE S9(4).
02 MAP-ACCTF PICTURE X.
02 MAP-ACCTI PICTURE X(025).
02 MAP-DESIGL COMP PICTURE S9(4).
02 MAP-DESIGF PICTURE X.
02 MAP-DESIGI PICTURE X(025).
02 MAP-STATUSL COMP PICTURE S9(4).
02 MAP-STATUSF PICTURE X.
02 MAP-STATUSI PICTURE X(008).
02 MAP-MESSAGEL COMP PICTURE S9(4).
02 MAP-MESSAGEF PICTURE X.
02 MAP-MESSAGEI PICTURE X(045).
Learning & Culture
All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 44
Putting it all together…….
01 DATABSO REDEFINES DATABSI.
02 FILLER PICTURE X(12).
02 FILLER PICTURE X(2).
02 MAP-NAMEA PICTURE X.
02 MAP-NAMEO PICTURE X(024).
02 FILLER PICTURE X(2).
02 MAP-DOB-DDA PICTURE X.
02 MAP-DOB-DDO PICTURE X(002).
02 FILLER PICTURE X(2).
02 MAP-DOB-MMA PICTURE X.
02 MAP-DOB-MMO PICTURE X(002).
02 FILLER PICTURE X(2).
02 MAP-DOB-YYA PICTURE X.
02 MAP-DOB-YYO PICTURE X(002).
02 FILLER PICTURE X(2).
02 MAP-EMP-IDA PICTURE X.
02 MAP-EMP-IDO PICTURE X(005).
02 FILLER PICTURE X(2).
02 MAP-NAME-DBA PICTURE X.
02 MAP-NAME-DBO PICTURE X(025).
02 FILLER PICTURE X(2).
02 MAP-DOJ-MMA PICTURE X.
02 MAP-DOJ-MMO PICTURE X(002).
02 FILLER PICTURE X(2).

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 45
Putting it all together…….
02 MAP-DOJ-DDA PICTURE X.
02 MAP-DOJ-DDO PICTURE X(002).
02 FILLER PICTURE X(2).
02 MAP-DOJ-YYA PICTURE X.
02 MAP-DOJ-YYO PICTURE X(002).
02 FILLER PICTURE X(2).
02 MAP-DEPTA PICTURE X.
02 MAP-DEPTO PICTURE X(025).
02 FILLER PICTURE X(2).
02 MAP-ACCTA PICTURE X.
02 MAP-ACCTO PICTURE X(025).
02 FILLER PICTURE X(2).
02 MAP-DESIGA PICTURE X.
02 MAP-DESIGO PICTURE X(025).
02 FILLER PICTURE X(2).
02 MAP-STATUSA PICTURE X.
02 MAP-STATUSO PICTURE X(008).
02 FILLER PICTURE X(2).
02 MAP-MESSAGEA PICTURE X.
02 MAP-MESSAGEO PICTURE X(045)

Learning & Culture

All work described was performed by Capgemini or a Capgemini affiliate
© 2011 Capgemini - All rights reserved 46
Thank You For Your Time