
Appendix D. Programming experience 451
Member CKDIPT referring the same disk extent for input
* $$ SLI ICCF=(CKDIPT),LIB=(13)
Example: D-10 SYSIPT disk reference
* CHANGE THE EXTENT TO VALUES SUITABLE FOR YOUR INSTALLATION
// DLBL IJSYSIN,'ASM.WORKFILE',0
// EXTENT SYSIPT,,1,0,13260,300
ASSGN SYSIPT,DISK,VOL=SYSWK1,SHR
CICS COBOL source to send map SMAPEX1
We are now at the point where the BMS map can be bound to CICS applications
by copying the data structure and using EXEC CICS commands to send the map
to a terminal. A related CICS COBOL program is shown in Example D-11.
Example: D-11 CICS COBOL program to present BMS map
ID DIVISION.
*------------------------------------ ...