Filter
Top Products
Appendix J. Basic Mapping Support Example
This appendix has a list of steps that you must follow so you can use the CICS basic mapping support
(BMS) within the REXX/CICS environment. The steps include:
1. BMS maps must be assembled and linked into a CICS library. This library must be in the LIBDEF in
the CICS region startup JCL.
2. If you are going to use the REXX/CICS CONVTMAP command to generate a file structure, the BMS
map must be assembled to produce the map DSECT.
3. BMS maps must be defined to CICS using Resource Definition Online (RDO).
4. If you want to read from or send data to the screen, you need to GETMAIN CICS storage for the
length of the map input/output areas. The storage must be initialized to nulls.
5. If a field within a file structure is represented by more than one label, then the last label to reference
that field in the structure must be used when referencing the field.
The example in this appendix is using BMS map PANELG. The following is the map definition.
TITLE 'PANEL GROUP FOR REXX/CICS ' 00000010
PRINT ON,NOGEN 00000020
PANELG DFHMSD TYPE=MAP,LANG=ASM,MODE=INOUT,STORAGE=AUTO,SUFFIX= 00000030
TITLE 'TEST PANEL FOR REXX/CICS ' 00000040
DPANEL1 DFHMDI SIZE=(24,80),CTRL=(FREEKB),MAPATTS=(COLOR,HILIGHT), *00000050
DSATTS=(COLOR,HILIGHT),COLUMN=1,LINE=1,DATA=FIELD, *00000060
TIOAPFX=YES,OBFMT=NO 00000070
DFHMDF POS=(1,1),LENGTH=1,ATTRB=(PROT,BRT) 00000080
DFHMDF POS=(5,27),LENGTH=22,INITIAL='REXXCICS HEADER PANEL1', *00000090
ATTRB=(PROT,NORM) 00000100
DFHMDF POS=(5,73),LENGTH=6,INITIAL='PANEL1',ATTRB=(PROT,NORM) 00000110
DFHMDF POS=(9,6),LENGTH=25, *00000120
INITIAL='PLEASE ENTER YOUR USERID:',ATTRB=(PROT,NORM) 00000130
* DUSERID 00000140
DUSERID DFHMDF POS=(9,32),LENGTH=8,ATTRB=(UNPROT,BRT,IC,FSET) 00000150
DFHMDF POS=(9,41),LENGTH=1,ATTRB=(PROT,NORM) 00000160
DFHMDF POS=(14,6),LENGTH=4,INITIAL='MSG:',ATTRB=(PROT,NORM) 00000170
* DMSG 00000180
DMSG DFHMDF POS=(14,11),LENGTH=29,ATTRB=(UNPROT,NORM,FSET) 00000190
DFHMDF POS=(14,41),LENGTH=1,ATTRB=(PROT,NORM) 00000200
DFHMSD TYPE=FINAL 00000210
END 00000220
© Copyright IBM Corp. 1992, 2009 427