Getting Started
2 snippetsBasic BMS map definition
Simple Map
MAPNAME DFHMSD TYPE=&SYSPARM,LANG=COBOL,MODE=INOUT,
CTRL=(FREEKB,FRSET),STORAGE=AUTO,TIOAPFX=YES
MAP1 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1
DFHMDF POS=(1,1),LENGTH=20,ATTRB=(BRT,PROT),
INITIAL='SAMPLE SCREEN'
DFHMSD TYPE=FINAL
ENDField Definition
FIELD1 DFHMDF POS=(5,10),LENGTH=30,
ATTRB=(UNPROT,IC),
INITIAL='Enter Name:'Map Definition
2 snippetsDFHMSD - Map Set Definition
Map Set Attributes
MAPSET1 DFHMSD TYPE=&SYSPARM,
LANG=COBOL,
MODE=INOUT,
TERM=3270,
CTRL=(FREEKB,FRSET),
STORAGE=AUTO,
TIOAPFX=YESMultiple Maps
MAPSET1 DFHMSD TYPE=&SYSPARM,LANG=COBOL
MAP1 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1
* Fields for MAP1
MAP2 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1
* Fields for MAP2
DFHMSD TYPE=FINALMap Definition (DFHMDI)
2 snippetsIndividual map specifications
Basic Map
CUSTMAP DFHMDI SIZE=(24,80),
LINE=1,
COLUMN=1,
CTRL=(FREEKB,FRSET)Map with Color
COLORMAP DFHMDI SIZE=(24,80),
LINE=1,
COLUMN=1,
DSATTS=(COLOR,HILIGHT),
COLOR=NEUTRALTired of looking up syntax?
DocuWriter.ai generates documentation and explains code using AI.
Field Definition (DFHMDF)
4 snippetsDefining screen fields
Input Field
CUSTNO DFHMDF POS=(3,10),
LENGTH=6,
ATTRB=(UNPROT,NUM),
INITIAL='______'Protected Field
TITLE1 DFHMDF POS=(1,30),
LENGTH=20,
ATTRB=(BRT,PROT),
INITIAL='CUSTOMER INQUIRY'Output Field
NAMEO DFHMDF POS=(5,20),
LENGTH=30,
ATTRB=(PROT,FSET)Bright Field
ERRORMSG DFHMDF POS=(23,1),
LENGTH=79,
ATTRB=(BRT,PROT),
COLOR=REDField Attributes
3 snippetsCommon ATTRB values
Protection
* PROT - Protected (display only)
* UNPROT - Unprotected (input allowed)
* ASKIP - Autoskip (skip to next field)
FIELD1 DFHMDF POS=(5,10),LENGTH=20,ATTRB=PROT
FIELD2 DFHMDF POS=(6,10),LENGTH=20,ATTRB=UNPROTIntensity
* NORM - Normal intensity
* BRT - Bright (highlighted)
* DRK - Dark (hidden, for passwords)
LABEL1 DFHMDF POS=(3,1),LENGTH=10,ATTRB=(PROT,BRT)
PASSWD DFHMDF POS=(4,10),LENGTH=8,ATTRB=(UNPROT,DRK)Cursor & Modified
* IC - Initial cursor position
* FSET - Field has been modified
* NUM - Numeric only
INPUT1 DFHMDF POS=(5,10),LENGTH=30,ATTRB=(UNPROT,IC)
AMOUNT DFHMDF POS=(7,10),LENGTH=10,ATTRB=(UNPROT,NUM)Color & Extended Attributes
2 snippetsEnhanced display features
Color Attributes
REDFIELD DFHMDF POS=(10,10),
LENGTH=20,
ATTRB=PROT,
COLOR=RED
BLUEFLD DFHMDF POS=(11,10),
LENGTH=20,
ATTRB=UNPROT,
COLOR=BLUEHighlight
HIFIELD DFHMDF POS=(12,10),
LENGTH=20,
ATTRB=PROT,
HILIGHT=BLINKSymbolic Map Usage
2 snippetsCOBOL copybook integration
Send Map (COBOL)
EXEC CICS SEND MAP('MAP1')
MAPSET('MAPSET1')
FROM(MAP1O)
ERASE
CURSOR
END-EXEC.Receive Map (COBOL)
EXEC CICS RECEIVE MAP('MAP1')
MAPSET('MAPSET1')
INTO(MAP1I)
END-EXEC.Common Patterns
3 snippetsTypical BMS map structures
Header Line
HEADER DFHMDF POS=(1,1),
LENGTH=80,
ATTRB=(BRT,PROT),
INITIAL='==== CUSTOMER MAINTENANCE ===='Input/Output Pair
NAMEI DFHMDF POS=(5,10),LENGTH=30,ATTRB=(UNPROT,IC)
NAMEO DFHMDF POS=(5,10),LENGTH=30,ATTRB=(PROT,FSET)Error Message Line
MSGI DFHMDF POS=(24,1),LENGTH=79,ATTRB=(UNPROT,DRK)
MSGO DFHMDF POS=(24,1),LENGTH=79,ATTRB=(BRT,PROT),
COLOR=RED