Comprehensive Educational information on Computer Programming!: CICS - MAP

Saturday, February 23, 2019

CICS - MAP

BMS receives the data entered by the user and then formats it into a symbolic map area. The application program has access only to the data present in the symbolic map. The application program processes the data and the output is sent to the symbolic map. BMS will merge the output of the symbolic data with the physical map.
CICS MAPS

Physical Map

Physical Map is a load module in the load library which contains information about how the map should be displayed.
  • It contains the details about the attributes of all the fields in the map and their positions.
  • It contains the display format of the map for a given terminal.
  • It is coded using BMS macros. It is assembled separately and link edited into the CICS library.

Symbolic Map

A Symbolic Map is a Copy book in the library. The Copy book is used by the CICS application program to send and receive data from the terminal.
  • It contains all the variable data which is copied into program's WORKINGSTORAGE section.
  • It has all the named fields. The application programmer uses these fields to read and write data into the map.

Skipper and Stopper Field

For an unprotected named field, in a map, if we have specified a length of 10, this means that the name field can take values whose length cannot exceed 10. But when you display this map using CICS and start entering values for this field on the screen, we can enter more than 10 Characters, i.e., till the end of the screen and we can enter even in the next line. To prevent this, we use Skipper field or stopper field. A Skipper field would generally be an Unnamed field of length 1, specified after a named field.
CICS Skipper & Stopper Field

Skipper Field

If we place a skipper field after the named unprotected field, then while entering the value, once the specified length is reached, the cursor will automatically position to the next unprotected field. The following example shows how to add a skipper field −
NUMBER  DFHMDF POS = (01,01), X
   LENGTH = 5, X
   ATTRB = (UNPROT,IC)
      DFHMDF POS = (01,07), X
      LENGTH = 1, X
      ATTRB = (ASKIP)

Stopper Field

If we place a stopper field after the named unprotected field, then while entering the value, once the specified length is reached, the cursor will stop its positioning. The following example shows how to add a stopper field −
NUMBER  DFHMDF POS = (01,01), X
   LENGTH = 5, X
 ATTRB = (UNPROT,IC)
    DFHMDF POS = (01,07), X
      LENGTH = 1, X
      ATTRB = (PROT)

Attribute Byte

The attribute byte of any field stores information about the physical properties of the field. The following diagram and the table explain the significance of each bit.
CICS Attribute Byte
Bit PositionDescriptionBit Settings
0 & 1 Determined by contents of bit 2 to 7
2 & 3Protection & Shift00 - Unprotected Alphanumeric
01 - Unprotected Numeric
10 - Protected Stop
11 - Protected Skip
4 & 5Intensity00 - Normal
01 - Normal
10 - Bright
11 - No-display ( Dark )
6 Must be Zero Always
7Modified Data Tag0 - Field has not been modified
1 - Field has been modified

Modified Data Tag

Modified Data Tag (MDT) is the last bit in the attribute byte.
  • MDT is a flag which holds a single bit. It specifies whether the value is to be transferred to the system or not.
  • Its default value is 1, when the field value is changed.
  • If MDT is 0, then data cannot be transferred; and if MDT is 1, then data can be transferred.

Send Map

The send map command writes formatted output to the terminal. It is used to send the map to the terminal from the application program. The following code segment shows how to send a map to the terminal −
EXEC CICS SEND 
   MAP('map-name')
   MAPSET('mapset-name')
   [FROM(data-area)]
   [LENGTH(data_value)]
   [DATAONLY]
   [MAPONLY]
   [CURSOR]
   [ERASE/ERASEAUP]
   [FREEKB] 
   [FRSET]
END-EXEC   
The following table lists the parameters used in a send map command along with their significance.
Sr.NoParameter & Description
1
Map-name
It is the name of the map which we want to send. It is mandatory.
2
Mapset-name
It is the name of the map set that contains the mapname. The mapset name is needed unless it is the same as the map name.
3
FROM
It is used if we have decided to use a different DSECT name, we must use the option FROM (dsect-name) along with SEND MAP command.
4
MAPONLY
It means that no data from your program is to be merged into the map and only the information in the map is transmitted.
5
DATAONLY
It is the logical opposite of MAPONLY. We use it to modify the variable data in a display that has already been created. Only the data from your program is sent to the screen. The constants in the map are not sent.
6
ERASE
It causes the entire screen to be erased before what we are sending is shown.
7
ERASEUP
It causes only unprotected fields to be erased.
8
FRSET
Flag Reset turns off the modified data tag in the attribute byte for all the fields on the screen before what you are sending is placed there.
9
CURSOR
It can be used to position the cursor on the terminal screen. Cursor can be set by moving -1 to the L part of the field and then sending the map.
10
ALARM
It causes the audible alarm to be sounded.
11
FREEKB.
The keyboard is unlocked if we specify FREEKB in either the map or the SEND command.
12
PRINT
It allows the output of a SEND command to be printed on a printer.
13
FORMFEED
It causes the printer to restore the paper to the top of the next page before the output is printed.

Receive Map

When we want to receive input from a terminal, we use the RECEIVE MAP command. The MAP and MAPSET parameters have exactly the same meaning as for the SEND MAP command. The following code segment shows how to receive a map −
EXEC CICS RECEIVE 
   MAP('map-name')
   MAPSET('mapset-name')
   [INTO(data-area)]
   [FROM(data-area)]
   [LENGTH(data_value)]
END-EXEC

Mapset Execution

The following steps are necessary to develop and execute a mapset −
  • Step 1 − Open a TSO session.
  • Step 2 − Create a new PDS.
  • Step 3 − Code a mapset in a new member according to the requirement.
  • Step 4 − Assemble the mapset using the JCL provided by the CICS administrator.
  • Step 5 − Open a CICS Session.
  • Step 6 − Install the program using the command −
    CEMT SET PROG(mapset-name) NEW
  • Step 7 − Type the following command to send the Map to the terminal −
    CECI SEND MAP(map-name) MAPSET(mapset-name) ERASE FREEKB

No comments:

Post a Comment