Editing CICS (section)

===Example of BMS Map Code===
Basic Mapping Support defines the screen format through assembler macros such as the following.  This was assembled to generate both the ''physical map set''{{snd}} a load module in a CICS load library{{snd}} and a ''symbolic map set''{{snd}} a structure definition or ''DSECT'' in PL/I, COBOL, assembler, etc. which was copied into the source program.<ref>{{cite web|last=IBM Corporation|title=Basic mapping support|url=http://publib.boulder.ibm.com/infocenter/cicsts/v2r3/index.jsp?topic=/com.ibm.cics.ts23.doc/dfhp3/dfhp370.htm|archive-url=https://archive.today/20130103084403/http://publib.boulder.ibm.com/infocenter/cicsts/v2r3/index.jsp?topic=/com.ibm.cics.ts23.doc/dfhp3/dfhp370.htm|url-status=dead|archive-date=2013-01-03|work=CICS Information Center}}</ref>

<syntaxhighlight lang="cobolfree">
 LOSMATT DFHMSD TYPE=MAP,                                               X
                MODE=INOUT,                                             X
                TIOAPFX=YES,                                            X
                TERM=3270-2,                                            X
                LANG=COBOL,                                             X
                MAPATTS=(COLOR,HILIGHT),                                X
                DSATTS=(COLOR,HILIGHT),                                 X
                STORAGE=AUTO,                                           X
                CTRL=(FREEKB,FRSET)
 *
 LOSATT  DFHMDI SIZE=(24,80),                                           X
                LINE=1,                                                 X
                COLUMN=1
 *
 LSSTDII DFHMDF POS=(1,01),                                             X
                LENGTH=04,                                              X
                COLOR=BLUE,                                             X
                INITIAL='MQCM',                                         X
                ATTRB=PROT
 *
         DFHMDF POS=(24,01),                                            X
                LENGTH=79,                                              X
                COLOR=BLUE                                              X
                ATTRB=ASKIP,                                            X
                INITIAL='PF7-          8-           9-          10-     X
                    11-            12-CANCEL'
 *
           DFHMSD   TYPE=FINAL
           END
</syntaxhighlight>