basic mapping support l.
Download
Skip this Video
Download Presentation
Basic Mapping Support

Loading in 2 Seconds...

play fullscreen
1 / 32

Basic Mapping Support - PowerPoint PPT Presentation


  • 269 Views
  • Uploaded on

Basic Mapping Support. Day2. Objectives. Introduction to BMS Screen Layout Physical map and Symbolic map Map and Mapset Creating a simple map Map definition macros Modified data tag and other attributes Handling program attention keys Programming to use maps SEND MAP command

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about 'Basic Mapping Support' - cain


Download Now An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript
objectives
Objectives
  • Introduction to BMS
    • Screen Layout
    • Physical map and Symbolic map
    • Map and Mapset
  • Creating a simple map
    • Map definition macros
    • Modified data tag and other attributes
    • Handling program attention keys
  • Programming to use maps
    • SEND MAP command
    • RECEIVE MAP command
    • Data validation
    • Changing the attributes dynamically
bms basic mapping support
BMS – Basic Mapping Support
  • An interface between CICS programs and the terminal devices
  • In BMS, the design and format of the application can be separate from the logic
  • BMS finds the device information from the terminal rather than the application program
formatted screens
Formatted Screens
  • Screens with fields in proper positions with proper attributes.
  • Require Buffer Control Characters (BCCs) to be sent along with data.
  • The mixture of BCCs and TEXT is called as Native Mode Data Stream (NMDS) which depends on the protocol of the terminal being used.
formatted screen an example
Formatted Screen - an Example

SCR1 MAIN MENU DATE: 04/03/98

TIME : 12:14:16

1. EMPLOYEE RECORD MAINTENANCE

2. EMPLOYEE DETAILS BROWSE

3. EXIT

SELECTION : - (1/2/3)

Your Choice Please

F1 - Help F3 - Exit ENTER - Process

physical maps
Physical Maps
  • Physical map contains the display format for the map, for a given terminal, available as a load library member.
    • Length and location
    • Attributes
    • Constants
    • Device characteristics

BMS macro coding

Assembly

Linkedit

Load module

LOADLIB

To be used by CICS

symbolic maps
Symbolic Maps
  • Symbolic map contains all variable data which is copied into programs working storage section, available as copy library member.

BMS macro coding

Assembly

Symbolic map generation

Copied (COPY) into CICS appl. program

COPYLIB

map mapset
MAP & MAPSET
  • MAP
    • is a single screen format
  • MAPSET
    • is a collection of maps link-edited together to create a load module.
    • should have a PPT entry.
  • Naming
    • 1 to 7 chars of generic name for maps and mapsets
    • 1 char added by CICS.
bms assembly language program
BMS Assembly Language Program
  • BMS map is a program written in Assembly Language to manage screens.
  • The BMS Macros are
    • DFHMSD (Mapset definition)
    • DFHMDI (Map definition)
    • DFHMDF (Map Field definition)
dfhmsd parameters
DFHMSD Parameters
  • TYPE=DSECT/MAP/&&SYSPARM/FINAL
  • MODE=IN/OUT/INOUT
  • LANG=ASM/COBOL/PL1
  • STORAGE=AUTO/BASE=name
  • CTRL=(PRINT,FREEKB,ALARM,FRSET)
  • TERM=terminal type,SUFFIX=n
  • TIOAPFX=YES/NO
  • MAPATTS=(COLOR,HIGHLIGHT,.......)
  • DSATTS=(COLOR,HIGHLIGHT,.......)
    • COLOR=DEFAULT/colour
    • HIGHLIGHT=OFF/BLINK/REVERSE/UNDERLINE
example of dfhmsd
Example of DFHMSD

DFHMSD TYPE=&&SYSPARM, X

CTRL=(FREEKB,FRSET), X

LANG=COBOL, X

STORAGE=AUTO, X

TIOAPFX=YES, X

MODE=INOUT, X

TERM=3270

DFHMSD TYPE=FINAL

END

dfhmdi parameters
DFHMDI Parameters
  • SIZE=(LINE,COLUMN)
  • LINE=line-number
  • COLUMN=column-number
  • JUSTIFY=left/right
  • CTRL=(PRINT,FREEKB,ALARM,FRSET)
  • TIOAPFX=YES/NO
  • MAPATTS=(COLOR,HIGHLIGHT,.......)
  • DSATTS=(COLOR,HIGHLIGHT,.......)
    • COLOR=DEFAULT/colour
    • HIGHLIGHT=OFF/BLINK/REVERSE/UNDERLINE
example of dfhmdi
Example of DFHMDI

MAPNAME DFHMDI SIZE=(24,80), X

LINE=01, X

COLUMN=01, X

CTRL=(FREEKB,FRSET)

dfhmdf parameters
DFHMDF Parameters
  • POS=(line,column)
  • LENGTH=number
  • INITIAL=‘text’
  • JUSTIFY=(LEFT/RIGHT,BLANK/ZERO)
  • ATTRB=(ASKIP/PROT/UNPROT, NUM, BRT/NORM/

DRK, IC, FSET)

  • COLOR=DEFAULT/colour
  • HIGHLIGHT=OFF/BLINK/REVERSE/UNDERLINE
  • PICIN=‘value’
  • PICOUT=‘value’
  • OCCURS=n
example of dfhmdf
Example of DFHMDF

DFHMDF POS=(01,01), LENGTH=4, X

INITIAL=‘SCR1’, X

ATTRB=(PROT,NORM)

DATEM DFHMDF POS=(01,70), LENGTH=08, X

ATTRB=(PROT,NORM)

DFHMDF POS=(01,79), LENGTH=1, X

ATTRB=ASKIP

mdt modified data tag
MDT - Modified Data Tag
  • It is used to know whether the field is modified by the user or not.The field is only receivable if it has been modified.
format of symbolic map
FORMAT OF SYMBOLIC MAP
  • A 12-byte TIOA (Terminal Input/Output Area) prefix.
  • The mapnames are suffixed with ‘I’ and ‘O’
  • When performing INPUT functions fields suffixed with ‘L’, ’F’ and ‘I’ are meaningful
  • When performing OUTPUT functions fields suffixed with ‘A’, and ‘O’ are meaningful
using occurs clause
Using OCCURS clause
  • It is a tedious task to define different field names in a listing which are same and access them.
  • To overcome this you use the OCCURS clause in the field and you can address the field by using the subscript.
send map
SEND MAP

EXEC CICS SEND

MAP(‘map name’)

[MAPSET(‘mapset name’)]

[FROM(data-area)]

[LENGTH(data_value)]

[DATAONLY]

[MAPONLY]

[CURSOR]

[ERASE/ERASEAUP]

[FREEKB]

[FRSET]

END-EXEC

send map20
SEND MAP

Ex. EXEC CICS SEND

MAP(‘EMPMAP’)

MAPSET(‘EMPLIST’)

ERASE

FREEKB

END-EXEC

receive map
RECEIVE MAP

EXEC CICS RECEIVE

MAP(‘map name’)

[MAPSET(‘mapset name’)]

[INTO(data-area)]

[FROM(data-area)]

[LENGTH(data_value)]

END-EXEC

receive map22
RECEIVE MAP

Ex. EXEC CICS RECEIVE

MAP(‘EMPMAP’)

MAPSET(‘EMPLIST’)]

END-EXEC

validate fields
Validate Fields
  • Fields can be evaluated using the L, F or the I sub-fields
  • The key pressed by the user is evaluated by using EIBAID
  • CICS provides you with a pre-coded set which holds the symbolic values of attention identifier
    • COPY DFHAID (DFHENTER, DFHCLEAR, DFHPF1 etc)
dynamic cursor positioning
Dynamic Cursor positioning.
  • Move -1 to the symbolic map variable suffixed with L.
  • Send the map with a CURSOR option in SEND MAP.
dynamically changing attributes
Dynamically changing attributes.
  • COPY DFHATTR in your program.
  • Choose the attribute from the list you want to use and move it to the symbolic field variable suffixed with ‘A’.
  • You can also do it by copying DFHBMSCA having different options.
dfhbmsca attribute values
DFHBMSCA attribute values

Variable Protection Intensity Modified Data Tag

(FSET/FRSET)

DFHBMUNP Unprotected Normal Off

DFHBMUNN Numeric Normal Off

DFHBMPRO Protected Normal Off

DFHBMASK Autoskip Normal Off

DFHBMBRY Unprotected Bright Off

DFHPROTI Protected Bright Off

DFHBMASB Autoskip Bright Off

DFHBMDAR Unprotected Non-display Off

DFHPROTN Protected Non-display Off

DFHBMFSE Unprotected Normal On

DFHUNNUM Numeric Normal On

DFHBMPRF Protected Normal On

DFHBMASF Autoskip Normal On

DFHUNIMD Unprotected Bright On

DFHUNINT Numeric Bright On

DFHUNNOD Unprotected Non-display On

DFHUNNON Numeric Non-display On

slide27

Sample mapset Development

Step 1: Open a tso session.

Step 2: Create a new PDS.

Step 3: Code the following mapset in a new member.

slide28

Sample mapset Development

Step 4: Assemble the mapset using the clist TRNGBMS.

Step 5:Open a CICS Session.

Step 6: Install the program using the command

CEMT SET PROG(mapset-name) NEW

slide29

Execution of the sample mapset

Step1: Open Client session for Mainframe, type CICS3 and hit ENTER key. Enter your User id and Password and press the Enter Key.

slide30

Execution of the sample mapset

Step 2:Type the command

CECI SEND MAP(map-name) MAPSET(mapset-name) ERASE FREEKB

summary
Summary
  • What is a BMS?
  • What are the two kinds of maps? Why do we need them?
  • What are the macros used to define?
  • What is MDT, FSET and FRSET?
  • What are the symbolic map fields generated?
  • How to detect the key pressed?
  • How to dynamically change the attributes of the fields?
  • Sample Mapset development
ad